TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: El Bachaco on April 10, 2017, 11:30:11 AM

Title: Layer Director.......
Post 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 ....

Title: Re: Layer Director.......
Post by: ChrisCarlson on April 10, 2017, 11:56:49 AM

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.

Title: Re: Layer Director.......
Post by: lamarn on April 10, 2017, 03:22:59 PM

You can write a filter (/function) that does this.
Your own commands can than be put into layer director as follow.

Code: [Select]

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)


    )



Title: Re: Layer Director.......
Post by: CAB on April 10, 2017, 03:39:35 PM

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

Title: Re: Layer Director.......
Post by: CAB on April 10, 2017, 03:44:55 PM

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

Title: Re: Layer Director.......
Post by: El Bachaco on April 11, 2017, 04:03:38 PM

Thank you friends for your great help ....... thanks ....

Title: Re: Layer Director.......
Post by: lamarn on June 10, 2020, 05:48:12 PM

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