Search the Community

Hi, I have been searching for a lisp to export txt to excel. Every lisp i've come across doesn't quite cut it. We use AutoCAD LT 2013 and AutoCAD 07. I want from every txt object (of a certain layer) the content + the X and Y coordinates. Hope that you guys cab help me out. Greetz, TekenaarNL

Hi , I have this in my mind for a while and I know it's possible but I don't know how:cry: I am looking for a lisp to link 2 blocks ( to create a relationship). I have a block "Premises" and another block for " EnclosureBox". I want to " link" a few premises to the enclosure box and then to be able to extract theenclosurebox with the premises included. I will try to attach also the file Many thanks

Is there a quick and practical way to get X & Y values on a polyline other than by way of "LIST". because I need the X & Y value just like the 2nd image. Thank you Master. img 1 : https://drive.google.com/open?id=0B1KbDu2x_byvU2F6NlpvNWJrU0k img 2 : https://drive.google.com/open?id=0B1KbDu2x_byvVE9qdmpBLWcxWHM

I work for a utility company and we developed a system to export data from a database that contains information (UTM locations and identifier tag numbers) about utility poles on our system, then we converted that data into a .csv file and used a LISP file to import that data into AutoCAD where it would place a block in the correct position on a landbase map according to its UTM coordinates. We first started using this LISP file on AutoCAD Map 3D 2007 (also worked with standard AutoCAD 2007 as well) and continued to use it successfully for all versions up until 2017. When we recently updated our version to ACAD Map 3D 2017, I tried to run this LISP routine and I would immediately get an error and it would promptly abort the command. We tried this file on a few other computers in the office and got the same results. I was fortunate that I still had a version of 2014 on my PC so we could continue to move work along, but in the meantime we are losing productivity in processing these jobs and we are not proficient in LISP coding to troubleshoot the problem. I don't know if we are alone in having LISP files malfunction with the 2017 version of AutoCAD, but if anyone can give me some guidance on what may be causing the issue, I'd greatly appreciate it! I have attached the file below, so take a look and see if there is any way to make this work again! Thanks! insblk2.lsp

Hi all, I'm hoping you can help. I require a lisp file that can count the number of blocks in a drawing and calculate the total area of say a polyline that is in each block and plot it in a table format? Can anyone point me in the right direction please? Thanks Peter

Hello all, I would like to change the dimensions measured by 1/2" on panels measured within our acad drawings as we order materials 1/2" shorter. To date, we manually dimension each item drawn several hundred times and decrease the dimension by 1/2" again and again. Obviously, this is not efficient and prone to human error. Can anyone tell me the lisp code or alternate method to do this? I've researched this and it generally becomes an argument as to why anyone would want to show an inaccurate measurement without an answer. As a side note, I don't really have any practical knowledge of lisp files as I'm just learning about them.

After spending waaaay too much time looking for a board and batten hatch pattern for vanilla ACAD, I found this in a Revit forum: *Board & Batten, 2.5" Batten at 16" o.c. ;%TYPE=MODEL 90, 0, 0, 16, 16, 16 90, 2.5, 0, 16, 16, 16 Doesn't work for vanilla ACAD, though. Since I don't know the first thing about LISP programming (somehow it is never as 'easy' as the people who say, "Oh, it's easy!" claim), would anyone be kind enough to help me figure out what needs to change to be a regular ol' AutoCAD .pat?

Hi boys and girls! I have a good one for you... I have a set of LISP routines (around 20 of them), which I use pretty much all the time. I used to autoload them into each drawing using either StartUp suit (if I was lazy), or by ACADDOC.lsp, if StartUp suit was glitching... Never had a problem. However, I've just had my CAD upgraded from 2011 to 2013, and SOME of my LISP files simply won't autoload, whatever I do! About half of them... I've tried StartUp suit. I've tried creating autoload functions within both ACADDOC.lsp and ACAD.lsp. I even tried to copy ALL codes from ALL files into a single file (ACADDOC)... Some of routines just won't autoload. I know that both ACAD.lsp and ACADDOC.lsp are loading within each drawing. I know that LISP files are not corrupt, because they load manually without a problem. It's just a pain to do it manually each time I open a drawing. The only reason I can think of that some of my routines have some old code, incompatible with 2013 release autoloading feature (strange!). It does my HEAD in! Any thoughts??? Thanks in advance!

Hello, I'm an AutoLISP newbie and I need to iterate through a folder of .DWG files, running a lisp on each file one at a time with no prompts to the user. Can this be done in AutoLISP? Here is the lisp that will be run on each file: ;delete_layers_except (vl-load-com) ;(defun c:demo (/ aDoc name) (setvar 'Clayer "0") (repeat 4 (vla-purgeall (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object))))) (vlax-for itm (vla-get-layers aDoc) (if (and (not (wcmatch (setq name (vla-get-name itm)) "*|*")) (not (eq name "0")) (not (member name '("Fixture-Shapes" "CHECKLANE" ;"Arch-Wall-Interior (Construction)" ;"Arch-Wall-Interior" ;"Arch-Wall-Exterior" )))) (progn (vla-put-lock itm :vlax-false) (vl-cmdf "_.-laydel" "_N" name "" "_Y")) ) ) (repeat 4 (vla-purgeall aDoc)) (princ) ; ) ;explode_all ;(defun c:explodeall () (setvar "draworderctl" 0) (setvar "qaflags" 1) (command "._explode" (ssget "X" )"") (setvar "qaflags" 0) ; ) ;erase_hatch ;(defun c:nohatch () ;(if (or (ssget '((0 . "HATCH"))) (ssget "_X" '((0 . "HATCH")))) (setq ss1 (ssget "X" '((0 . "HATCH")))) (command "_.erase" ss1 "") ; ) ;plot ;(defun c:pp () (command "-plot" "no" "Layout1" "previous plot" "DWG to PDF" "" "" "") (princ) ; ) Thank you!!

(defun c:bhy() (setvar "cmdecho" 0) (graphscr) (setq fd (open "c:\\CAD\\BHY.txt" "r") info (read-line fd) ) (while (/= info nil) (setq eas (atof (substr info 4 13)) nor (atof (substr info 15 12)) ipt (list eas nor) fi (atoi (substr info 27 3)) ba (atof (substr info 31 3)) x (fix ba) y (fix (* (- ba x)10)) xs (itoa x) ys (itoa y) ) (command "insert" "Bathy" ipt 1 1 0 xs ys fi) (setq info (read-line fd)) ) (close fd) (princ) )

I'm new to AutoCAD LT, and it's been ten years since I used any CAD software- and it was MiniCAD that I used. I remember in that program that we used to use a linetype with directional arrows interspersed in it for showing things like flow direction, but I can't find it in LT. Also, that program didn't use lisp files- so I have no idea what I'm doing with one, how to make it, program it into LT, etc. Can anyone tell me step-by-step from the beginning how I would go about creating (or finding already created) this linetype?