Lisp routine for Section Mark

[matthewrussell]

Yes that is the location. I just changed the lisp file ill test it out now

[matthewrussell]

Ok I have an idea. It seems to me that it is looking for a file called PersonalCADSupportSec-ball.dwg instead of just looking for Sec-ball.dwg as shown below in the command box.

 

Ok this is what I am thinking since the file location is set can this part of the code look like this

 

(command
  "layer" "m" "TAGS" ""
  "insert" (strcat "Sec-ball") #loc DMS DMS "0" #sectno #drawno
  "insert" (strcat "Sec-arr")  #loc (* -1 DMS) DMS (rtd #ang)
); Arrow

 

All I did was remove $PATH from both inserts. Because what it looks like to me is that it is for a file that does not exist. But in the mean time I will make the cad files have PersonalCADSupport before them and see if it works

 

Command: insert-sectmark-block
Enter SCALE: 15
Select Center point of Section Bubble:
Rotation of Section mark?:
Section Number <1>: 1
Drawing Reference <2>: 2
"PersonalCADSupportSec-ball.dwg": Can't find file in search path:
 C:\Documents and Settings\matthew.russell\My Documents\ (current directory)
 D:\Personal\CAD\Support\
 D:\Personal\CAD\MENU\
 D:\Personal\CAD\MENU\ICONS\
 C:\sp2000\
 X:\Acad\Support\Brisbane\Linetypes\
 X:\Acad\Support\Brisbane\Fonts\
 C:\Documents and Settings\matthew.russell\Application Data\Autodesk\AutoCAD 
2009\R17.2\enu\support\
 C:\Program Files\AutoCAD 2009\support\
 C:\Program Files\AutoCAD 2009\fonts\
 C:\Program Files\AutoCAD 2009\help\
 C:\Program Files\AutoCAD 2009\express\
 C:\Program Files\AutoCAD 2009\drv\
 C:\Program Files\AutoCAD 2009\

[matthewrussell]

ok well my idea didnt work so im out of them now.

[russell84]

Matthew

 

I didnt know you changed the code.

 

it works here and i'm using 2009.

 

leave the code as

 

(command
  "layer" "m" "TAGS" ""
  "insert" (strcat $PATH "Sec-ball") #loc DMS DMS "0" #sectno #drawno
  "insert" (strcat $PATH "Sec-arr")  #loc (* -1 DMS) DMS (rtd #ang)
); Arrow

 

also did you copy the blocks that i had originally posted??

 

You are confusing me with what you have done.

 

Just simply leave the code alone - change the one line defining the $PATH to the location that your blocks are

 

then run the lisp.

 

It will work.

 

you can change whatever you want from there.

 

 

So go back - copy the code i posted. change the $PATH to the location of your blocks (remember change "\" to "/" then try it.

 

If that doesnt work i'll help you out.

[matthewrussell]

Got it working. Thank you heaps. I can edit the block with no problems correct. like set linetypes

 

Thank you heaps