TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: El Bachaco on April 10, 2017, 11:30:11 AM
-
Sr. Lee how to include in your lisp "Layer Director" an option .... that all "center" type lines, color 9, are placed in a layer named "C-12_EJES" .... having this layer Contributes to the quality of the drawings .... thank you very much and regards ....
-
Without extensive rewriting, I do not think that is possible. LD works upon entity creation, I would suggest a change in the way your CAD Standards are setup.
-
You can write a filter (/function) that does this.
Your own commands can than be put into layer director as follow.
layerdirector:data
'(
;; AutoCAD commands
("[DM]TEXT,TEXT" "X-XX_txt__" "NLCS text" 7 "Continuous" 25 1 nil) ; text
("DIM*" "X-XX_dim_" "NLCS dimension" 7 "Continuous" 25 1 nil) ; dims
("*VPORT*" "vports" "NLCS viewport" 9 "Continuous" 13 0 nil) ; vport
("*LEADER*" "X-XX_ldr_" "NLCS leader" 7 "Continuous" 25 1 nil) ; leader
("*XL*" "X-XX_hulplijn_" "NLCS hulp" 6 "Continuous" 13 0 nil) ; xlines
("*RAY*" "X-XX_hulplijn_" "NLCS hulp" 6 "Continuous" 13 0 nil) ; ray
("*WIPEOUT*" "X-XX_wipeout" "NLCS wipeout" 7 "Continuous" 13 1 nil) ; for wipeouts
("*HATCH*" "X-XX_hatch-AD" "NLCS hatch" 253 "Continuous" 18 1 nil) ; for hatches
("*image*" "X-XX_image_" "NLCS image" 7 "Continuous" 13 1 nil) ; for images
("*pdfattach*" "X-XX_pdf_" "NLCS pdfs" 7 "Continuous" 13 1 nil) ; for pdfs
("*3dface*" "_3D_face_" "3D face" 4 "Continuous" 35 1 nil) ; faces
("*EXTRUDE*" "_3D_solid_extrude_" "3D extrude" 4 "Continuous" 35 1 nil) ; extrude
("*EXT" "_3D_solid_extrude_" "3D extrude" 4 "Continuous" 35 1 nil) ; extrude
("*REVOLVE*" "_3D_solid_revolve_" "3D revolve" 4 "Continuous" 35 1 nil) ; revolved
("*SWEEP*" "_3D_solid_sweep_" "3D sweep" 3 "Continuous" 35 1 nil) ; sweeps
("*LOFT*" "_3D_solid_loft_" "3D loft" 3 "Continuous" 35 1 nil) ; sweeps
("*POLYSOLID*" "_3D_solid_poly_" "3D poly" 3 "Continuous" 35 1 nil) ; sweeps
("*section*" "_3D_section__" "3D section" 125 "Continuous" 25 0 nil) ; sections
("*sectionplane*" "_3D_sectionplane__" "3D sectionplane" 114 "Continuous" 25 0 nil) ; sectionplane
("*projectgeometry*" "_3D_projectgeometry__" "3D projectgeometry" 8 "Continuous" 25 0 nil) ; projectgeometry
("*entopo*" "X-XX_dim_entopo" "entopo points and blocks" 7 "Continuous" 25 1 nil) ; entopo
; !!! my custom command === > .. :)
("DNH" "X-XX_dim_DNH" "none-NLCS DNH hoogtemaatvoering" 7 "Continuous" 18 1 nil)
("DNHmm" "X-XX_dim_DNH" "none-NLCS DNH hoogtemaatvoering" 7 "Continuous" 18 1 nil)
("DNHm" "X-XX_dim_DNH" "none-NLCS DNH hoogtemaatvoering" 7 "Continuous" 18 1 nil)
("inladenblock" "X-XX_dim_DNH" "none-NLCS DNH hoogtemaatvoering" 7 "Continuous" 18 1 nil)
("4PS" "_3D_4-point-solid_" "none-NLCS 4-point solid" 7 "Continuous" 18 1 nil)
("talud" "talud" "none-NLCS talud" 1 "Continuous" 18 1 nil)
)
-
For those without a link:
http://www.lee-mac.com/layerdirector.html (http://www.lee-mac.com/layerdirector.html)
Also this is another older reactor routine you may look at.
http://www.theswamp.org/index.php?topic=22733.msg273953#msg273953
-
If anyone is in a reactor mood.
----------- Reactor ----------------
http://www.theswamp.org/index.php?topic=26380.0 Length Rector by CAB
http://www.theswamp.org/index.php?topic=8710.0 Object Reactor
http://www.theswamp.org/index.php?topic=10248.0 AreaReactor Thread
http://www.theswamp.org/index.php?topic=22733.msg273953#msg273953 Layer Create Reactor CAB
http://www.theswamp.org/index.php?topic=28604.msg349372#msg349372
http://www.theswamp.org/index.php?topic=30943.0 LeeMac text2object
http://www.theswamp.org/index.php?topic=40880.msg461743#msg461743 Erased & xData
http://www.theswamp.org/index.php?topic=33671.0 Total Length
http://lee-mac.com/associativecenterlines.html
http://lee-mac.com/boundingboxreactor.html
http://lee-mac.com/layerdirector.html
http://lee-mac.com/lisplog.html
http://lee-mac.com/objectlock.html
-
Thank you friends for your great help ....... thanks ....
-
Old userful routine, still good and functional.
Today i came across this in DraftSight.
Check it out. The interface is done well
https://youtu.be/M-dnBTsSgqs