Print Page | Close Window

Lisp - layer, command

Printed From: CAD Forum
Category: EN
Forum Name: AutoCAD
Forum Description: Discussion about AutoCAD and AutoCAD LT, viewers, DWG and DWF formats, Design Review, AutoCAD 360, add-ons
URL: https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9807
Printed Date: 31.May.2026 at 23:32


Topic: Lisp - layer, command
Posted By: Kajito
Subject: Lisp - layer, command
Date Posted: 14.Nov.2013 at 22:56

Hi guys,


I'd like to ask you for help with following. I'd say it is a fairly easy task if you know basics of LISP progamming ( I don't unfortunately :). I've been trying to search on the net but couldnt find any answer somehow.

I need a lisp routine that would set a layer (say Hatch1), and start the hatch command. As "simple" as that ;).

I've changed job recently and this company is using to different layers for hatch (hatch and shade). Therefore solutions like flay or new command with associated shortcut or alias will not work as it will alwys set the same layer.

Thank you very much for any solutions and suggestions.

Kajito


Replies:
Posted By: John Connor
Date Posted: 15.Nov.2013 at 12:24
This will set the layer.  As for the Hatch command itself is there any other criteria that has to be met?  Ex. - pattern to be used.
(defun c:test ()
(command "_.layer" "_set" "hatch1" "")
(princ)
)


-------------
"Humans have a strength that cannot be measured. This is John Connor. If you are reading this, you are the resistance."

<<AutoCAD 2015>>

Posted By: John Connor
Date Posted: 15.Nov.2013 at 12:40
Example of a hatch lisp routine (by GHarvey) that sets the layer and calls out which hatch pattern will be used and specifies the hatch pattern will be applied to an object.
(defun c:iso ()
 (command "-layer" "S" "hatch" "")
 (command "-hatch" "Properties" "ANSI37" 6 0 pause)
 (command "-layer" "S" "object" "")
 (princ)
 )




-------------
"Humans have a strength that cannot be measured. This is John Connor. If you are reading this, you are the resistance."

<<AutoCAD 2015>>

Posted By: Kent Cooper
Date Posted: 15.Nov.2013 at 14:43
I would recommend using the Make option rather than Set, because if the Layer does not exist in the drawing, it won't be able to be set current.  The Make option will also make it current, and will turn it on if it's off.  And I would recommend including a Thawing of the Layer before Making or Setting it, because if it's frozen, it won't be able to be made current; the Thaw option won't care whether the Layer exists yet or not.
 
(defun C:HATCH1 ()
  (command
    "_.layer" "_thaw" "HATCH1" "_make" "HATCH1" ""
    "_.hatch" ; or "_.bhatch" if preferred
  )
)
 
That will leave you in the Hatch command, to complete as you like.
 
If you want a particular pattern, you can build that into the Hatch command, or you can first use (setvar 'hpname "WHATEVER") and make it the current pattern before calling up the command.  The same approach can also be used for other Hatch options, such as the scale and angle.

Posted By: Kajito
Date Posted: 16.Nov.2013 at 19:05
Thank you guys soo much for your help. Exactly what I needed.


Print Page | Close Window