Search the Community

Hello, I am new to AutoLISP and I have been trying to find/create a code that will simplify drawing HVAC ductwork. I have found an existing code from an autodesk discussion group: http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Doubleline-Duct-lisp-routine/td-p/3198454 (The last posting: DUCTNEW.lsp) This code is meant to do exactly what I am trying to accomplish, except that when it prompts "continue, split, double-split, transition" the only command that works properly is . Any tips or help would be greatly appreciated

I have a lisp routine that we have used for several years. The routine takes a pline, offsets it on either side based on user defined spacing then inserts a premade block to symbolize a road. The block is spaced according to user defined spacing. For instance, a block can be inserted at 2 times the width of the "road" as many times as needed to symbolize the entire length of the offset pline. Hopefully this makes sense! This lisp routine works great on it's own. However, once inserted into a macro, it starts the block insertion at the end of the pline, only inserting one block. This is happening in all versions of AutoCAD we are using from 2004 through 2011. Is there a setvar that should be reset or cleared within the lisp routine? Any suggestions would be appreciated. Thanks!

I have a LISP routine that opens a drawing related to the drawing already open, and another one that performs some layer manipulation in the 2nd drawing, does a COPYALL, and closes the 2nd drawing. What I haven't been able to figure out, through vast amount of internet searching along with trial and error, is how to be able to return to the original drawing and paste the contents. I can, of course, do it manually, but I'd like to automate it as much as possible. I've tried various lisp and script routines, also nested variations of those. The result is either a process halts due to the file opening, or a script or lisp doesn't wait for the previous one to complete before it runs. Does what I'm trying to do even sound possible??? If so, any light that can be shed on this would be greatly appreciated. Thanks.

I am trying to find a lisp that will create a single line flex like a "spline" but if it gets to be longer than 10'-0" then it should show as a "hard round duct" for the remaiing part. (according to code flex can not be longer than 10') can anyone help me or have a lisp that is cappable of doing this? thank you!

OK LISP Masters! I have this one ALMOST where I need it. (some of the functions are still incomplete, but I know how to get those to work). Here is what this lisp is supposed to do. You are presented with a dialog box with options for device type, and other device options, then based on your options, it inserts a block, adds your other picked options, then keeps going. When you right click, the dialog should return, letting you pick different options, so you can insert different blocks. I have the whole thing working, EXCEPT for the "right click to return the dialog". Can anyone please help? (defun c:notif(/ :dlgId :done);new combined notification (setq CVR (getvar "useri2") SCL (GETVAR "userr1") lyr (getvar "clayer") osm (getvar "osmode") ) (if (= 0 scl)(command (alert "Please Set your scale and try agagin")(exit))) (COMMAND "OSMODE" "514") (COMMAND "-LAYER" "s" "F-ALRM-INDC" "") (setq :dlgId (load_dialog "notif.dcl")) (setq :done 3) (while (/= :done 0) (if (not (new_dialog "DLG_Notif" :dlgId)) (exit) ) (action_tile "devStrobe" "(setq dev 1)") (action_tile "devHRNStrobe" "(setq dev 2)") (action_tile "devSPKStrobe" "(setq dev 3)") (action_tile "devHorn" "(setq dev 4)") (action_tile "devSpeaker" "(setq dev 5)") (action_tile "mtWall" "(setq mt 1)") (action_tile "mtCeil" "(setq mt 2)") (action_tile "cd15" "(setq cd 15)") (action_tile "cd30" "(setq cd 30)") (action_tile "cd75" "(setq cd 75)") (action_tile "cd95" "(setq cd 95)") (action_tile "cd110" "(setq cd 110)") (action_tile "cd135" "(setq cd 135)") (action_tile "cd177" "(setq cd 177)") (action_tile "cd185" "(setq cd 185)") (action_tile "wat25" "(setq wat 4)") (action_tile "wat5" "(setq wat 5)") (action_tile "wat1" "(setq wat 1)") (action_tile "wat2" "(setq wat 2)") (action_tile "wat75" "(setq wat 7)") (action_tile "lensClear" "(setq lens 1)") (action_tile "lensAmber" "(setq lens 2)") (action_tile "lensCombo" "(setq lens 3)") (action_tile "spcWP" "(setq wp 1)") (action_tile "spcWG" "(setq wg 1)") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq :done (start_dialog)) (cond ((= :done 1) (setvar "cmdecho" 0) (if (= wat 4)(setq watt ".25W")) (if (= wat 5)(setq watt ".5W")) (if (= wat 1)(setq watt "1W")) (if (= wat 2)(setq watt "2W")) (if (= wat 7)(setq watt "7.5W")) (setq :txting 0) (while (= 0 :txting) (initget 0) (if (= dev 1) (progn (COMMAND "_.-INSERT" "FA_STROBE_ONLYW" pause SCL "" pause CD) (setq :txting 0))(setq :txting 1)) (if (= dev 2) (COMMAND "_.-INSERT" "FA_Hornstrobe" pause SCL "" pause CD)) (if (= dev 3) (COMMAND "_.-INSERT" "FA_Speakerstrobe" pause SCL "" pause CD watt)) ) (setvar "cmdecho" 1) );done ((= :done 0) (prompt "\nEnd notification command.") ) );cond ; (if (= 1 cvr)(command "-layer" "s" "F-STRB-COVR" "")) ; (setq elast (entlast)) ; (IF (= 1 CVR)(command "_.-insert" "sg-15cd" "_non" ; (cdr (assoc 10 (entget elast))) "1" "" (* 180. (/ (cdr (assoc 50 (entget elast))) pi)))) ); while (unload_dialog :dlgId) (COMMAND "CLAYER" LYR) (COMMAND "OSMODE" OSM) (princ) ) I also have the LISP and DCL files attached. NOTIF.LSP notif.dcl

Maybe it is better to ask the question in this manner: What is the best way to manage the LISP codes and know when to load which code from which address. Maybe it is not wise to load all codes at ACAD startup as it is related to loading, I can assume it consumes bits and bytes and make the program fat which is not good. But my problem is that: When number of codes are handful, there is no problem remembering the name and what they do, but when they increase it is hard to know which LISP is necessary and in which folder I should look for it? How the you guys manage your LISP codes?

Had some fun with a recent sub, resulted in these two programs Autoloader This program will generate autoload expressions for all LISP files in a selected directory, proceeding to write such expressions to a text file output (from which the user may copy the contents to an ACADDOC.lsp or destination of their choice). GetSyntax A fun one - sparked from this thread, involving a question regarding how to determine the command to use to call a program when there is no indication in the code header and no loading messages indicating such information. This program will read a selected LISP file and print a report detailing the command syntax for all defined commands in the selected file. Both programs use my GetSyntax sub, which reads a supplied LISP file and returns a list of defined commands within the supplied file. Enjoy! Lee

Hi all, I have just found out that i am going to be asked to add very basic attributed blocks to all of our drawing stock. All the data for each blcok currently sits in a CSV file, and I was wondering (or actually hoping:wink:) whether it is possible to create this without having to create each block individually. Would any bright sparks have any thoughts on if or how it could be possible ? Currently still using ACAD 2008 (frustrating but true!) Many thanks Vicki

I work in an architecture office and we are FINALLY starting to upgrade our computers. We have already purchased one computer. It is windows 7 64-bit. We use AutoCAD 2002 and the boss man wants to keep using AutoCAD 2002 because he has everything set up just the way he wants it. He is just too lazy and too worried about money to take the time to upgrade to newer versions of CAD and set them up the exact same way. I could go on and on about that. Now, to the problem at hand. I have CAD2002 installed on the new machine by doing the XP virtual machine. However, we have a LISP routine that was made years ago for CAD2002 and now it isn't working on the new machine. I have loaded it the same way I have done on all other machines running Windows XP Pro 32-bit. If any one has any possible solutions or needs more information from me please let me know. I would like to get this problem fixed so he gets off of my back. Thank you in advance for the assistance.

OK.. here is the story. This is a modified version of a LISP that I wrote that works perfectly. I added a few more variables to it (there are a ton), and now all the sudden, I'm getting a 'stringp nil' error when it runs, and I cant seem to figure out why! I dont have a ton of experience writing LISPs, so my code is probably very redundant and sloppy, so please excuse the mess Thanks in advance if anyone is able to help out! (defun c:gmE1 () (setq osnapsettings (getvar "osmode")) (setq lyr (getvar "clayer")) (setvar "osmode" 0) (setvar "fieldeval" 13) (command "-layer" "s" "F-ANNO-REV" "") (setq zp1 "37.3,29.6") (setq zp2 "41.6,13.9") (setq rp1 "37.4661,14.3748") (setq rp2 "37.4661,14.5992") (setq rp3 "37.4661,14.8236") (setq rp4 "37.4661,15.048") (setq rp5 "37.4661,15.2724") (setq rp6 "37.4661,15.4968") (setq rp7 "37.4661,15.7212") (setq rp8 "37.4661,15.9456") (setq rp9 "37.4661,16.17") (setq rp10 "37.4661,16.3944") (setq rp11 "37.4661,16.6188") (setq rp12 "37.4661,16.8432") (setq rp13 "37.4661,17.0676") (setq rp14 "37.4661,17.292") (setq rp15 "37.4661,17.5164") (setq rp16 "37.4661,17.7408") (setq rp17 "37.4661,17.9652") (setq rp18 "37.4661,18.1896") (setq rp19 "37.4661,18.414") (setq rp20 "37.4661,18.6384") (setq rpt1 "37.4661,29.215") (setq rpt2 "37.4661,28.9906") (setq rpt3 "37.4661,28.7662") (setq rpt4 "37.4661,28.5418") (setq rpt5 "37.4661,28.3174") (setq rpt6 "37.4661,28.093") (setq rpt7 "37.4661,27.8686") (setq rpt8 "37.4661,27.6442") (setq rpt9 "37.4661,27.4198") (setq rpt10 "37.4661,27.1954") (setq rpt11 "37.4661,26.971") (setq rpt12 "37.4661,26.7466") (setq zw1 "38,25") (setq zw2 "42,17.2") (setq zw3 "38,23") (setq zw4 "41.16,16.56") (command "zoom" "e") (command "rectangle" zp1 zp2) (command "zoom" "w" zp1 zp2) (setq r1 (getint "\nEnter First Rev Line Number use ZERO for NONE: ")) (setq r2 (getint "\nEnter Second Rev Line Number use ZERO for NONE: ")) (if (= r2 0)(setq r3 0)(setq r3 (getint "\nEnter Third Rev Line Number use ZERO for NONE: "))) (if (= r3 0)(setq r4 0)(setq r4 (getint "\nEnter Fourth Rev Line Number use ZERO for NONE: "))) (if (= r4 0)(setq r5 0)(setq r5 (getint "\nEnter Fifth Rev Line Number use ZERO for NONE: "))) (if (= r5 0)(setq r6 0)(setq r6 (getint "\nEnter 6th Rev Line Number use ZERO for NONE: "))) (if (= r6 0)(setq r7 0)(setq r7 (getint "\nEnter 7th Rev Line Number use ZERO for NONE: "))) (if (= r7 0)(setq r8 0)(setq r8 (getint "\nEnter 8th Rev Line Number use ZERO for NONE: "))) (if (= r8 0)(setq r9 0)(setq r9 (getint "\nEnter 9th Rev Line Number use ZERO for NONE: "))) (if (= r9 0)(setq r10 0)(setq r10 (getint "\nEnter 10th Rev Line Number use ZERO for NONE: "))) (if (= r10 0)(setq r11 0)(setq r11 (getint "\nEnter 11th Rev Line Number use ZERO for NONE: "))) (if (= r11 0)(setq r12 0)(setq r12 (getint "\nEnter 12th Rev Line Number use ZERO for NONE: "))) (if (= r12 0)(setq r13 0)(setq r13 (getint "\nEnter 13th Rev Line Number use ZERO for NONE: "))) (if (= r13 0)(setq r14 0)(setq r14 (getint "\nEnter 14th Rev Line Number use ZERO for NONE: "))) (if (= r14 0)(setq r15 0)(setq r15 (getint "\nEnter 15th Rev Line Number use ZERO for NONE: "))) (if (= r15 0)(setq r16 0)(setq r16 (getint "\nEnter 16th Rev Line Number use ZERO for NONE: "))) (if (= r16 0)(setq r17 0)(setq r17 (getint "\nEnter 17th Rev Line Number use ZERO for NONE: "))) (if (= r17 0)(setq r18 0)(setq r18 (getint "\nEnter 18th Rev Line Number use ZERO for NONE: "))) (if (= r18 0)(setq r19 0)(setq r19 (getint "\nEnter 19th Rev Line Number use ZERO for NONE: "))) (if (= r19 0)(setq r20 0)(setq r20 (getint "\nEnter 20th Rev Line Number use ZERO for NONE: "))) (setq rt1 r1 rt2 r2 rt3 r3 rt4 r4 rt5 r5 rt6 r6 rt7 r7 rt8 r8 rt9 r9 rt10 r10 rt11 r11 rt12 r12) (if (> r13 0)(setq rt1 r13)) (if (> r14 0)(setq rt2 r14)) (if (> r15 0)(setq rt3 r15)) (if (> r16 0)(setq rt4 r16)) (if (> r17 0)(setq rt5 r17)) (if (> r18 0)(setq rt6 r18)) (if (> r19 0)(setq rt7 r19)) (if (> r20 0)(setq rt8 r20)) (COMMAND "-PURGE" "B" "" "N") (command "zoom" "e") (Command "erase" "w" zp2 zp1 "") (command "zoom" zp1 zp2) (setq z (itoa 0)) (setq rr1 (itoa r1) rr2 (itoa r2) rr3 (itoa r3) rr4 (itoa r4) rr5 (itoa r5) rr6 (itoa r6) rr7 (itoa r7) rr8 (itoa r8) rr9 (itoa r9) rr10 (itoa r10) rr11 (itoa r11) rr12 (itoa r12) rr13 (itoa r13) rr14 (itoa r14) rr15 (itoa r15) rr16 (itoa r16) rr17 (itoa r17) rr18 (itoa r18) rr19 (itoa r19) rr20 (itoa r20) ) (setq a (strcat "%<\\AcSm SheetSet.REV ")) (setq d (strcat " DATE \\f \"%tc1\">%")) (setq e (strcat " DESCRIPTION \\f \"%tc1\">%")) (setq i (strcat " APPR \\f \"%tc1\">%")) (setq j (strcat " ENG \\f \"%tc1\">%")) (setq k (strcat " PROJ \\f \"%tc1\">%")) (if (< r1 10 )(setq ru1 (strcat z rr1))(setq ru1 (strcat rr1))) (if (< r2 10 )(setq ru2 (strcat z rr2))(setq ru2 (strcat rr2))) (if (< r3 10 )(setq ru3 (strcat z rr3))(setq ru3 (strcat rr3))) (if (< r4 10 )(setq ru4 (strcat z rr4))(setq ru4 (strcat rr4))) (if (< r5 10 )(setq ru5 (strcat z rr5))(setq ru5 (strcat rr5))) (if (< r6 10 )(setq ru6 (strcat z rr6))(setq ru6 (strcat rr6))) (if (< r7 10 )(setq ru7 (strcat z rr7))(setq ru7 (strcat rr7))) (if (< r8 10 )(setq ru8 (strcat z rr8))(setq ru8 (strcat rr8))) (if (< r9 10 )(setq ru9 (strcat z rr9))(setq ru9 (strcat rr9))) (if (< r10 10 )(setq ru10 (strcat z rr10))(setq ru10 (strcat rr10))) (if (< r11 10 )(setq ru11 (strcat z rr11))(setq ru11 (strcat rr11))) (if (< r12 10 )(setq rv12 (strcat z rr12))(setq ru12 (strcat rr12))) (if (< r13 10 )(setq ru13 (strcat z rr13))(setq ru13 (strcat rr13))) (if (< r14 10 )(setq ru14 (strcat z rr14))(setq ru14 (strcat rr14))) (if (< r15 10 )(setq ru15 (strcat z rr15))(setq ru15 (strcat rr15))) (if (< r16 10 )(setq ru16 (strcat z rr16))(setq ru16 (strcat rr16))) (if (< r17 10 )(setq ru17 (strcat z rr17))(setq ru17 (strcat rr17))) (if (< r18 10 )(setq ru18 (strcat z rr18))(setq ru18 (strcat rr18))) (if (< r19 10 )(setq ru19 (strcat z rr19))(setq ru19 (strcat rr19))) (if (< r20 10 )(setq ru20 (strcat z rr20))(setq ru20 (strcat rr20))) (setq date1 (strcat a ru1 d) desc1 (strcat a ru1 e) appr1 (strcat a ru1 i) eng1 (strcat a ru1 j) proj1 (strcat a ru1 k) date2 (strcat a ru2 d) desc2 (strcat a ru2 e) appr2 (strcat a ru2 i) eng2 (strcat a ru2 j) proj2 (strcat a ru2 k) date3 (strcat a ru3 d) desc3 (strcat a ru3 e) appr3 (strcat a ru3 i) eng3 (strcat a ru3 j) proj3 (strcat a ru3 k) date4 (strcat a ru4 d) desc4 (strcat a ru4 e) appr4 (strcat a ru4 i) eng4 (strcat a ru4 j) proj4 (strcat a ru4 k) date5 (strcat a ru5 d) desc5 (strcat a ru5 e) appr5 (strcat a ru5 i) eng5 (strcat a ru5 j) proj5 (strcat a ru5 k) date6 (strcat a ru6 d) desc6 (strcat a ru6 e) appr6 (strcat a ru6 i) eng6 (strcat a ru6 j) proj6 (strcat a ru6 k) date7 (strcat a ru7 d) desc7 (strcat a ru7 e) appr7 (strcat a ru7 i) eng7 (strcat a ru7 j) proj7 (strcat a ru7 k) date8 (strcat a ru8 d) desc8 (strcat a ru8 e) appr8 (strcat a ru8 i) eng8 (strcat a ru8 j) proj8 (strcat a ru8 k) date9 (strcat a ru9 d) desc9 (strcat a ru9 e) appr9 (strcat a ru9 i) eng9 (strcat a ru9 j) proj9 (strcat a ru9 k) date10 (strcat a ru10 d) desc10 (strcat a ru10 e) appr10 (strcat a ru10 i) eng10 (strcat a ru10 j) proj10 (strcat a ru10 k) date11 (strcat a ru11 d) desc11 (strcat a ru11 e) appr11 (strcat a ru11 i) eng11 (strcat a ru11 j) proj11 (strcat a ru11 k) date12 (strcat a ru12 d) desc12 (strcat a ru12 e) appr12 (strcat a ru12 i) eng12 (strcat a ru12 j) proj12 (strcat a ru12 k) date13 (strcat a ru13 d) desc13 (strcat a ru13 e) appr13 (strcat a ru13 i) eng13 (strcat a ru13 j) proj13 (strcat a ru13 k) date14 (strcat a ru14 d) desc14 (strcat a ru14 e) appr14 (strcat a ru14 i) eng14 (strcat a ru14 j) proj14 (strcat a ru14 k) date15 (strcat a ru15 d) desc15 (strcat a ru15 e) appr15 (strcat a ru15 i) eng15 (strcat a ru15 j) proj15 (strcat a ru15 k) date16 (strcat a ru16 d) desc16 (strcat a ru16 e) appr16 (strcat a ru16 i) eng16 (strcat a ru16 j) proj16 (strcat a ru16 k) date17 (strcat a ru17 d) desc17 (strcat a ru17 e) appr17 (strcat a ru17 i) eng17 (strcat a ru17 j) proj17 (strcat a ru17 k) date18 (strcat a ru18 d) desc18 (strcat a ru18 e) appr18 (strcat a ru18 i) eng18 (strcat a ru18 j) proj18 (strcat a ru18 k) date19 (strcat a ru19 d) desc19 (strcat a ru19 e) appr19 (strcat a ru19 i) eng19 (strcat a ru19 j) proj19 (strcat a ru19 k) date20 (strcat a ru20 d) desc20 (strcat a ru20 e) appr20 (strcat a ru20 i) eng20 (strcat a ru20 j) proj20 (strcat a ru20 k) ) (if (> r1 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp1 "" "" "" r1 date1 eng1 appr1))() (if (> r2 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp2 "" "" "" r2 date2 eng2 appr2))() (if (> r3 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp3 "" "" "" r3 date3 eng3 appr3))() (if (> r4 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp4 "" "" "" r4 date4 eng4 appr4))() (if (> r5 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp5 "" "" "" r5 date5 eng5 appr5))() (if (> r6 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp6 "" "" "" r6 date6 eng6 appr6))() (if (> r7 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp7 "" "" "" r7 date7 eng7 appr7))() (if (> r8 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp8 "" "" "" r8 date8 eng8 appr8))() (if (> r9 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp9 "" "" "" r9 date9 eng9 appr9))() (if (> r10 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp10 "" "" "" r10 date10 eng10 appr10))() (if (> r11 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp11 "" "" "" r11 date11 eng11 appr11))() (if (> r12 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp12 "" "" "" r12 date12 eng12 appr12))() (if (> r13 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp13 "" "" "" r13 date13 eng13 appr13))() (if (> r14 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp14 "" "" "" r14 date14 eng14 appr14))() (if (> r15 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp15 "" "" "" r15 date15 eng15 appr15))() (if (> r16 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp16 "" "" "" r16 date16 eng16 appr16))() (if (> r17 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp17 "" "" "" r17 date17 eng17 appr17))() (if (> r18 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp18 "" "" "" r18 date18 eng18 appr18))() (if (> r19 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp19 "" "" "" r19 date19 eng19 appr19))() (if (> r20 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp20 "" "" "" r20 date20 eng20 appr20))() (if (> r1 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt1 "" "" "" rt1 date1 eng1 appr1 desc1))() (if (> r2 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt2 "" "" "" rt2 date2 eng2 appr2 desc2))() (if (> r3 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt3 "" "" "" rt3 date3 eng3 appr3 desc3))() (if (> r4 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt4 "" "" "" rt4 date4 eng4 appr4 desc4))() (if (> r5 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt5 "" "" "" rt5 date5 eng5 appr5 desc5))() (if (> r6 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt6 "" "" "" rt6 date6 eng6 appr6 desc6))() (if (> r7 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt7 "" "" "" rt7 date7 eng7 appr7 desc7))() (if (> r8 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt8 "" "" "" rt8 date8 eng8 appr8 desc8))() (if (> r9 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt9 "" "" "" rt9 date9 eng9 appr9 desc9))() (if (> r10 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt10 "" "" "" rt10 date10 eng10 appr10 desc10))() (if (> r11 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt11 "" "" "" rt11 date11 eng11 appr11 desc11))() (if (> r12 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt12 "" "" "" rt12 date12 eng12 appr12 desc12))() (setvar "osmode" osnapsettings) (setvar "clayer" lyr) (COMMAND "ZOOM" "E") (PRINC) )

So I have tried to modify a batt insulation lsp originally created by David Sides to draw studs. You would think this would be easy because all I need are 45 degree lines, but I am having some trouble. I have gotten it to work for Horizontal walls and it is ok for vertical walls a bit glitchy but not horrible. Walls at an angle on the otherhand are horrible. Any advice? ;; STUD.LSP ;; ;;========================================================== (setq xos (getvar "osmode")) (setvar "osmode" 0) (defun SSV (savelist) (mapcar '(lambda (sysvar) (list sysvar (getvar sysvar)) ) savelist) ) (setq lista '("aunits" "auprec" "blipmode" "cmdecho" "orthomode")) ;;========================================================= (defun RSV (savelist) (mapcar '(lambda (sysvar) (setvar (car sysvar)(cadr sysvar)) (car sysvar) ) savelist) ) ;;========================================================== (defun HI () (setq olderr *error*) (defun *error* (errstr) (print errstr)(princ) (setq lista (RSV lista)) (setq *error* olderr) (princ) ) (setq lista (SSV lista)) (setvar "aunits" 3) (setvar "auprec" (setvar "blipmode" 0) (setvar "cmdecho" 0) (setvar "orthomode" 0) (prompt "\nArchitectural studs. ") (prompt "\nBy Alison Baillargeon. July 12, 2011. ") (princ) ) ;;============================================================ (defun BYE () (setq lista (RSV lista)) (setq *error* olderr)(princ) (princ "\nProcessing complete. ") (princ) ) ;;============================================================ (defun c:STUD (/ A ANG1 ANG2 ANG3 LEN1 LEN2 PT1 PT2 PT3 PT4 PT5 THK1 THK2 THK3 THK4) (HI) (setq PT1 (getpoint "\nEnter start point... ") PT2 (getpoint PT1 "\nEnter end point. ") THK1(getreal "\nEnter wall thickness. ") THK2(* THK1 THK1) THK3(+ THK2 THK2) THK4(sqrt THK3) LEN1(distance PT1 PT2) LEN2(/ LEN1 THK1) ANG1(angle PT1 PT2) ANG2(+ ANG1 0.7854) ANG3(+ ANG1 5.4977) a 0 ) (while (< a LEN2) (if (= a 0) (progn (setq PT3 (polar PT1 ANG2 THK4) PT4 (polar PT3 ANG3 THK4) PT5 (polar PT4 ANG2 THK4) A 0.5 ) (command ".pline" PT1 "w" 0.0 0.0 PT3 PT4) ) (progn (setq PT3 PT5 PT4 (polar PT3 ANG3 THK4) PT5 (polar PT4 ANG2 THK4)) (command PT3 PT4) (setq a (+ a 2)) ) ) ) (command "") (command ".break" "l" PT4 (polar PT4 ANG1 THK4)) (BYE) (setvar "osmode" xos) (princ) )

Hi everyone, I'm only starting to learn about Lisp programing, and really don't know a lot about that...yet... so here is a problem.. I would like to create a program, which could draw several lines horizontaly. In my imagination it should work like this: In AutoCad I show a square, and the program asks me how many lines I want to be drawn. When I give her a number, she divides total square length by my given number, and then draws the lines ( the length of a line program also gets from the square). The question would be: Can AutoCad calculate? (In my case divide) And maybe someone already has something similar?

Hello, I'm building a lisp to add new text based on a standard distance givven by the user. The lisp is: (defun c:myFunction() (setq point (getpoint "Click on start point :")) (setq qtd (getint "\nQuantity of blocks :")) (setq dist (getint "\nDistance :")) (setq x 0 y 0 q 0) (setq pp point) (setq x (car pp)) (while (< q qtd) (setq Text (getstring "Text :")) (command "text" pp "2" "0" Text ) (setq x (+ pp dist)) (setq q (+ q 1)) ) ) But when it asks the Text to be entered, I type it but the following error shows up. error: bad argument type (+ PP DIST) (SETQ X (+ PP DIST)) I think its the type of dist and pp, because one is getint and other is getpoint.

I'm a student. I am learning about LISP routines. What I'm trying to do is write a lsp that has the user key in point (using createpointmanual I'm assuming) and then draw a polyline from one point to the next. So far my program should to do this: - prompts user to key in point(s) - draws a polyline that connects the points I'm guessing I have to make a list for the points and keep adding to the list as each point is created. Can I use a counter, let say p1 (point 1) then p2 p3 p4 and so on, and then add it to the list? Example: (setq aa (list p1)) (setq aa (append aa p2)) *I know I have to keep adding to this list. I think I'm just confusing myself Anyone got any resources or ideas or answers on what code I need to write?

I have over a thousand block reference points that I have imported into AutoCAD. I would like to convert these block reference "crosshairs" into circles. I want the diameter of these circles to correspond with the elevation numbers from the data set. If you're wondering why I want this, I am trying to make a map of trees in a plot and the diameter is one of the crucial bits of information I want displayed for every tree. Inputing the data in PENZD style limits the amount of information displayed and, since I only need a 2D map, the elevation represents the diameters. I have a lisp code for converting points to circles but I haven't found a way to convert block reference data to circles. If anyone could write that code or instruct me on how this can be accomplished, I would greatly appreciate it. Thanks!

So new to LISP it's ridiculous, and I need help. I'm doing some designs for lighting and sound, and I have sets of blocks at various points around a floorplan. I plan on making these blocks (dynamic blocks if necessary) and giving them similar nomenclature according to what they are (speakers, monitors, motors, trusses, etc.). Now, rather than going through and measuring the distance by hand, so to speak, for every single item, I'd love to find a LISP routine where I can insert a custom (like 200, 0) insertion point to measure from, and measure each (or batch) block's distance from that point. If the results could be posted in a table, that would be even more awesome. Presumably I would use the names of the similar blocks, as in, any block with the word "motor" in its tag or name. I sense I am asking for something rather big here...

Hi, I'm new to writing LISP's and have finnished a couple for my studio. Just to keep busy when tides are low. The last I'm almost done with is an offset lisp that offsets in sequence (I do't really care if there are lisps already made for this, I've been trying to practice on my lisp routine making). I first choose the number of offsets, then the value for each offset and finally the side to offset. My problem is that when I zoom in close to the line the lisp works great - I mean, it offsets to the valeus I inputed. But when I'm a bit far out on the zoom it offsets to different values. I really don't know why it is doing this. Do I need to adjust the zoom sesitivity or something? Is there such a thing? Here is the code I wrote (it's in portuguese). Don't mind the messy way it's wirten. Thanks ;Criado por Rodrigo Líbano (defun c:offseq (/ numof numof2 numof3 list carl carls carlss voffx vof2x vof1x p2x side) (initget 7) (setq numof (getint "\nNúmero de offsets [2 ou mais]:")) (initget 7) (setq voffx (getdist "\nValor do primeiro offset:")) (setq numof (- numof 1)) (setq numof2 numof) (setq numof3 numof) (setq list (cons voffx voffx)) (setq vof1x voffx) (while numof (initget 7) (setq vof2x (getdist (strcat "\nValor do próximo offset [Restam:" (rtos numof 2 0)"]:"))) (setq vof2x (+ vof2x vof1x)) (setq list (cons vof2x list)) (setq vof1x vof2x) (setq numof (1- numof)) (if (= numof 0) (setq numof nil) (setq numof numof) ) ); end while (princ list) (setq carlss carls) (while (setq p2x (cadr (entsel "\nSelecione Objeto:"))) (setq side (getpoint "\nSelecione lado:")) (while numof2 (setq carl (nth numof2 list)) (if (= numof2 numof3) (setq carls (- carl carl)) (setq carls (nth (+ numof2 1) list)) ); end if (setq carls (- carl carls)) (setvar "OFFSETDIST" carl) (command "._UNDO" "_GROUP") (command ".OFFSET" carl p2x side "") (if (= numof2 0) (setq numof2 nil) (setq numof2 (- numof2 1)) ); end if ); end while (setq numof2 numof3) (setq carl carlss) ); end while (princ) )

Post Moved for Lisp Forum: here is the Link I'm creating a function for talude. But, on the line: command "chprop" ULT "" "LT" "" "autotalude1" "") it doesnt recognizes the command. can anyone tell me why? Here is the part of the code where I invert the propertie: (setq ULT (entlast)) (command "pedit" ult "spline" "") (setvar "celtype" "autotalude2") (initget 1 "S N") (setq inv (getkword "\nWant to Invert?<S/N>")) (if (= inv "S") (command "chprop" ULT "" "LT" "" "autotalude1" "") (setvar "celtype" "autotalude1") ;(command "pedit" ULT "r" "" "yes" "" "s" "") ;(command "pedit" ult "S" "") )

I was just following the tutorial and i realised that i could not load the testline lisp. AutoCad states [; error:too many arguments ]? I have tried everythin i could think of to no avail. It would be very helpful if someone could shine some light on this issue. Regards Kenneth

I am new to this forum and LISP programming so please bear with my lack of knowledge. I have a couple of hundred blocks which I'm interested in changing the values of specific tags using lisp (or something else). I have lots of different blocks, and they all have two attributes. The tag for attribute 1 is "X", with a value of "100" The tag for attribute 2 is "Y", with a value of "200" Is is possible to change all the blocks in the drawing, such that the attribute 1 value is renamed from "100" to "1", and the attribute 2 value is renamed from "200" to "2". I would like, if possible, to preserve and leave unchanged the tags associated with the respective attributes, and change only the value. So basically, once the script is done, I will still have the blocks with the same attributes, just different tag values. To clarify; I'm interested in replacing attribute values rather than changing attribute tag names. I hope this makes sense and that it is possible. Many Thanks

Already, another challenge for experts from LIPS: In working with various entities overlaid with different colors and layers, you can get a selection of colors of visible entities in the upper layer, ignoring the entities of the same color located in a lower draw order?

Hi, I am looking to lock multiple layers simultaneously by selection window. Or by clicking multiple times. The inbuilt lock layer (_laylck) command does not seem to support selection windows and only does one layer at a time. I would like to do mutiples. I am fairly new to LISP but fairly good at script writing (been on LT for several year, now on full!!!) I found this script on the forum; type "frz" to run lisp (defun c:frz () (setvar "cmdecho" 0) (setq data (enget (car (entsel))))) (setq laynme assoc 8 data)) (setq lay (cdr laynme)) (command "layer" "freeze" lay "") (princ)) Though autocad (2011) throws out an error (see below) Any suggestions on how to modify the above a) to work and b) to do what i want? Or is there a better way? Thanks for your help!

Hello everybody! I have a dynamic block with several look-up values for the polylines width and I'd like to label them (as a text in the drawing over the block), and be able to move this label where best fits. I've being trying inside the block, but then it can't be moved outside of it. I tried MText with field outside the block, but it has to be applied in many one by one. I was wondering if someone can help me on this. Should I use the block itself (how?) or there is a lisp for this? I have a lisp for bearing and distance for lines, which places the bearing text above them and the distance text below those lines, no matter what angle is. It will place in the middle and in the same angle as the line. I edited this lisp file, but I have no idea how to change it for my purpose, as I don't understanding all the codes inside of it. Thank you so much! I'd appreciate someone's help!

Ok. So I'm using a lisp routine that has been previously set up. It wouldn't display any of the current UCS coordinates. I think I fixed that. But now, I have caused a problem with the leaders. Specifically the line that is supposed to go underneath the N but above the easting. In WCS it works out just fine, but in the UCS it shoots off up and right. usually based on how far I am from the World Origin. Help! Below is the code. (Sadly I don't know exactly where the problem is) Main Function--------------------------------------------------------------------------- ;;;Function draws a leader with no text. (defun bmcdNE (wLeader wElev wa / ap np ep N E) (BMCDTextStyles) ;load standard text styles (BMCDDimStyles) ;load standard dim styles ;save variables (NEsave-vars) ; setup error handler here (setvar "cmdecho" 0) (setq *error* leader-error) ;check and set dscale (if (= dscale nil) (setq dscale (getvar "dimscale")) );end if (QlSave);saves current settings ;Now we need to set the current settings for the needed leader (setq NoText '(4 ;1. AnnoType 60 0Mtext<def> 1Copy 2Tolerance 3BlockReference 4None 0 ;2. ReuseAnno 61 0None<def> 1Next 2Current 1 ;3. LeftAttach 62 0TopOfTop 1MiddleOfTop<def> 2Middle 3MiddleOfBottom 4BottomOfBottom 3 ;4. RightAttach 63 0TopOfTop 1MiddleOfTop 2Middle 3MiddleOfBottom<def> 4BottomOfBottom 0 ;5. Underline 64 1On 0Off<def> 0 ;6. Splined 65 1On 0Off<def> 1 ;7. NoPointLimit 66 1On 0Off<def> 2 ;8. NumPoints 67 Integer (Must be greater than 2) 3<def> 0 ;9. Wordwrap 68 1On<def> 0Off 1 ;10. AlwaysLeftJust 69 1On 0Off<def> 0 ;11. Angle1 70 0Any<def> 1Horizontal 2?d 3Ed 40d 5 d 0 ;12. Angle2 71 0Any<def> 1Horizontal 2?d 3Ed 40d 5 d 0 ;13. Box 72 1On 0Off<def> 0.0 ;14. Textwidth 40 Real (Must be > 0.0) 0.0<def> "." ;15. Arrowname 3 String (or User defined arrow as block name) See definitions below ));end setq (command "osnap" "end,mid,intersection,center") (SetQleader NoText) (setvar "dimlwd" -1) (setvar "texteval" 1) (setvar "orthomode" 0) (setq style (cdr(assoc 40 (tblsearch "style" (getvar "textstyle"))))) ;gets the text height from style. (setq comp (cdr(assoc 41 (tblsearch "style" (getvar "textstyle"))))) ;stores the compression factor. (if (= 0 style) (setq ts (getvar "textsize"))) ;sets the text size to the active textsize. (if (/= 0 style) (setq ts style)) ;sets the text size to the style size. (command "layer" "set" "G-ANNO-TEXT" "") (setq pt1 (getpoint "\nEnter starting point:")) ;Gets the first point for the ;coordinate and line. (setvar "osmode" 0) (setvar "luprec" 2) (setq save-pt1 pt1) ;;; ;do we need to covert the point from pspace to mspace? (if (= (getvar "tilemode") 0) (setq cs_from 0) ;WCS (setq cs_to 1) ;UCS (setq pt1 (trans pt cs_from cs_to 0) ; disp = 0 indicateds that pt is a point ) (setq x1 (car pt1)) ;Stores the x coord of the first point. (setq y1 (cadr pt1)) ;Stores the y coord of the first point. (setq z1 (caddr pt1)) ;stores the z coord of the first point. JAH (setq xabs (abs x1)) ;Gets the absolute value of the x point. (setq yabs (abs y1)) ;Gets the absolute value of the y point. (setq zabs (abs z1)) ;Gets the absolute value of the z point. AMS (setq x (rtos xabs (getvar "lunits") (+(getvar "luprec")0))) ;Converts the x coord from real to string. (setq y (rtos yabs (getvar "lunits") (+(getvar "luprec")0))) ;Converts the y coord form real to string. (setq z (rtos zabs (getvar "lunits") (+(getvar "luprec")0))) ;Converts the z coord form real to string. JAH ;if the number of decimal places is less than the precission add zeros (while (< (strlen (substr x (+(vl-string-search "." x) 2))) (getvar "luprec")) (setq x (strcat x "0")) ) ;if the number of decimal places is less than the precission add zeros (while (< (strlen (substr y (+(vl-string-search "." y) 2))) (getvar "luprec")) (setq y (strcat y "0")) ) ;if the number of decimal places is less than the precission add zeros (while (< (strlen (substr z (+(vl-string-search "." z) 2))) (getvar "luprec")) (setq z (strcat z "0")) ) (setq IN x) ;Sets variable for subroutine. (COMMA) ;CALLS SUBROUTINE. (setq x OUT) ;Saves variable from subroutine. (setq IN y) ;Sets variable for subroutine. (COMMA) ;CALLS SUBROUTINE. (setq y OUT) ;Saves variable from subroutine. (setq IN z) ;Sets variable for subroutine. (COMMA) ;CALLS SUBROUTINE. (setq z OUT) ;Saves variable from subroutine. (setq pt1 save-pt1 ) (if (> X1 0) (setq E (strcat "E " x )) ;Checks to see if X coordinate ) (if(< X1 0) (setq E (strcat "W " x )) ;is positive or negitive ) (if(= X1 0) (setq E (strcat "BASELINE " x )) ;and sets the proper label. ) (if(> Y1 0) (setq N (strcat "N " y )) ;Checks to see if Y coordinate ) (if(< Y1 0) (setq N (strcat "S " y )) ;is positive or negitive ) (if(= Y1 0) (setq N (strcat "BASELINE " y )) ;and sets the proper label. ) (setq ABC "ABC ") ;;;build the elevation label (setq Zelev (strcat "EL " z)) (setq nl (strlen N)) ;Gets the string length of the N variable. (setq el (strlen E)) ;Gets the string length of the E variable. (cond ((> nl el) (setq ll nl)) ;Tests to see if the N var is longer than ;the E var. ((> el nl) (setq ll el)) ;Tests to see if the E var is longer than ;the N var. ((= nl el) (setq ll nl)) ;Tests to see if the N and E var are equil. ) ;end cond (setq pt2 (getpoint pt1 "\nEnter second point:")) ;The pt1 is used to create ;a rubberband line. (grdraw pt1 pt2 -1) ;Draws a tempory line to let you see ;where you are and what is going on. (setq x2 (car pt2)) ;Stores the Second X point (setq y2 (cadr pt2)) ;Stores the Second Y point (setq pt3 (getpoint pt2 "Enter side to offset:")) ;The pt2 is used to create ;a rubberband line. (setq x3 (car pt3)) ;Stores the Third X point (setq y3 (cadr pt3)) ;Stores the Third Y point (cond ((> x2 x3) (setq lx (- x2 (* 0.8 ts ll comp)))) ;Checks to see wich way ((> x3 x2) (setq lx (+ x2 (* 0.8 ts ll comp)))) ;you are drawing the line ) ;and sets the end of line ;to match the text length. (cond ((> x2 x3) (setq tx lx)) ;Based on the direction of the line ((> x3 x2) (setq tx (+ x2 ts))) ;the text X point is calculated. ) (setq ta (+ y2 (* ts 3))) (setq ap (list tx ta)) (setq tn (+ y2 ts)) ;Calculates the Y point for North or South text. (setq np (list tx tn)) ;Creates the point to place the text. (setq te (- y2 ts )) ;Calculates the Y point for East or West test. (setq ep (list tx te)) ;Creates the point to place the text. (setq tElev (- y2 (* ts 3))) ;Calculates the Y point for Elevation text. (setq elevP (list tx tElev)) ;Creates the point to place the text. (setq ly y2) ;Sets the last Y point EQ. to the second Y point. (setq pt4 (list lx ly)) ;Creates the point for the end of the line. (command "pline" pt2 pt4 "") ;Places the line. (setq theline (vlax-ename->vla-object (entlast))) ;get the line object (if (= style 0) (command "text" "J" "ML" np ts "0" N)) ;Places the top text. (if (/= style 0) (command "text" "J" "ML" np "0" N)) ;Places the top text. (setq toptext (vlax-ename->vla-object (entlast))) ;get the text object (if (= style 0) (command "text" "J" "ML" ep ts "0" E)) ;Places the bottom text. (if (/= style 0) (command "text" "J" "ML" ep "0" E)) ;Places the bottom text. (setq bottomtext (vlax-ename->vla-object (entlast))) ;get the text object (if wa (progn (if (= style 0) (command "text" "J" "ML" ap ts "0" ABC)) (if (/= style 0) (command "text" "J" "ML" ap "0" ABC)) (setq atext (vlax-ename->vla-object (entlast))) ) ) ;;;Create the text for the elevation text (if wElev (progn (if (= style 0) (command "text" "J" "ML" elevP ts "0" Zelev)) ;Places the bottom text. (if (/= style 0) (command "text" "J" "ML" elevP "0" Zelev)) ;Places the bottom text. (setq Elevtext (vlax-ename->vla-object (entlast))) ;get the text object );end progn );end if ;rotate the text and line to make it horizontal (setq viewrotation (getvar "viewtwist")) ;ucs twist (setq retval (vla-rotate theline (vlax-3d-point pt2) (* viewrotation -1))) (setq retval (vla-rotate toptext (vlax-3d-point pt2) (* viewrotation -1))) (setq retval (vla-rotate bottomtext (vlax-3d-point pt2) (* viewrotation -1))) (if wa (setq retval (vla-rotate atext (vlax-3d-point pt2) (* viewrotation -1))) ) (if wElev (setq retval (vla-rotate Elevtext (vlax-3d-point pt2) (* viewrotation -1))) );end if ;;;get the end point of the now rotated line this will also be the endpoint for the qleader (setq theLineCoords (vlax-variant-value (vla-get-Coordinates theline))) (setq newXPt (vlax-safearray-get-element theLineCoords 0)) (setq newYPt (vlax-safearray-get-element theLineCoords 0)) (setq newEndPt (list newXPt newYPt)) ;in order to avoid the the mtext dialog we set the default qleader settings above (setq ss (ssget "_X" (list (cons 0 "*MTEXT,TEXT")(cons 1 "Ex. TP*")))) (if wLeader (progn (vl-cmdf "qleader" pt1 pt2 newEndPt "") (vla-delete theline) ;delete our temp line );end progn );end if (Merge) (QlRestore) (setvar "cmdecho" 1) ;Turns on the command echo. (redraw) (NErestore-vars) (princ) );end defun (defun c:LNE () (bmcdNE T nil nil) (princ) );end defun (defun c:LNEL () (bmcdNE T nil T) (princ) );end defun (defun c:LNEEL () (bmcdNE T T T) (princ) );end defun (defun c:LNEE () (bmcdNE T T nil) (princ) );end defun (defun c:NEE () (bmcdNE nil T nil) (princ) );end defun (defun c:NEEL () (bmcdNE nil T T) (princ) );end defun (defun c:NEL () (bmcdNE nil nil T) (princ) );end defun (defun c:NE () (bmcdNE nil nil nil) (princ) );end defun I am using "lneel" as my command.

I want to plot one particular layout in a drawing with multiple layouts. I want to set up a string of commands, using lisp, to print out the current/ open layout. Here is the current string I'm using: (defun c:plot40_B1 nil (vl-load-com) (command "_.-plot" "yes" "" "\\\\Kwifs1\\KWIN_40" "B1" "Millimeters" "LANDSCAPE" "NO" "Extents" "FIT" "CENTER" "YES" "KWIN39_BW.ctb" "YES" "W" "NO" "NO" "yes" ) (princ) ) This does not work - here is the F2 echo of the commands as they are processed by AutoCAD: plot40_KWIN39_BW _.-plot Detailed plot configuration? [Yes/No] <No>: yes Enter a layout name or [?] <K-17831>: Enter an output device name or [?] [url="file://kwifs1/KWIN_40"]\\KWIFS1\KWIN_40[/url]>: [url="file://kwifs1/KWIN_40"]\\Kwifs1\KWIN_40[/url] Enter paper size or [?] <A3>: A3 Enter paper units [inches/Millimeters] <Millimeters>: Millimeters Enter drawing orientation [Portrait/Landscape] <Landscape>: LANDSCAPE Plot upside down? [Yes/No] <No>: NO Enter plot area [Display/Extents/Layout/View/Window] <Extents>: Extents Enter plot scale (Plotted Millimeters=Drawing Units) or [Fit] <Fit>: FIT Enter plot offset (x,y) or [Center] <Center>: CENTER Plot with plot styles? [Yes/No] <Yes>: YES Enter plot style table name or [?] (enter . for none) <KWIN39_BW.ctb>: KWIN39_BW.ctb Plot with lineweights? [Yes/No] <Yes>: YES Scale lineweights with plot scale? [Yes/No] <Yes>: W The problem is this question: Enter a layout name or [?] : Currently the bit of the lisp that goes against that question is "". I have tried "Current" and "Layout", as I just want it to print the layout I have open, without entering a particular layout name, as this is obviously a print routine I want to use over and over again. Not sure what the > part of "Enter a layout name or [?] :" is. I am not sure what a valid answer is to "print current layout". I tried to turn off dialog boxes so I could find out what my options are at the command prompt, but can't figure this out. The old CmdDia = 0 doesn't work. Would greatly appreciate some advice!!!