Hatching via LSP

[joe_kohli]

I want to create a command button to control a custom hatch. What should my program look like in a LSP? Below is all I have got to. I'm trying my best to learn LSP code but it is taking more time than I thought. I need it to place the hatch under layer "NOT IN SERVICE" and the hatch type to be ANSI37. So when I have a shape that I need to fill with hatch, simply press the command button in the Tool Palette and it will hatch the area selected.

(defun c:hatch (/)
(command

"-layer" "set" "NOT IN SERVICE" ""

)
)

[paullimapa]

Looks similar to this

[pendean]

@joe_kohli Are you aware of this system variable by chance? No need to ever get into Layer command for example

AND... these others will help you make quick selections too

and more

https://help.autodesk.com/view/ACD/2025/ENU/index.html?guid=GUID-B94870E7-49CE-4BB0-A978-382A38E1FED...

[Kent1Cooper]

---

@joe_kohli wrote:

....

(defun c:hatch (/)
(command

"-layer" "set" "NOT IN SERVICE" ""

)
)

---

In addition to @pendean 's information about Hatch-related System Variables, I would suggest that you not use "hatch" as the command name, unless you always want all Hatch patterns on that Layer and in that pattern and so on.  Use a command name that's appropriate to what you want this custom situation used for, for example:

(defun C:HATCHNIS ()

  (setvar 'hplayer "NOT IN SERVICE")

  (setvar 'hpname "ANSI37")

  ;  ... ETC. ... [angle, scale, whatever]

  (command "_.hatch"); leave you in it

)

Or if you really always want all Hatch patterns the same, and want to use the HATCH command name, you should build in an UNDEFINE command for HATCH before defining the command name differently.

[joe_kohli]

Ok, so this is the code that I am using and it is working quite well. I added a command to my tool palette that allows me to select an area and hatch it with the settings I am accustomed to. I know there is probably a better way but I think this will suffice for my needs. 

(defun c:HatchNIS (/ la)
(setq la (getvar "clayer"))
(command "-layer" "S" "NOT IN SERVICE" "")
(command "-hatch" "Properties" "ANSI37" 1 0 pause "")
(setvar "clayer" la)
(princ)
)

My problem is that when I hatch the area it does not bring the hatch above all objects with the parameter cloud. I believe this is because I am missing "Associative" - "Ignore Island Detection". How can I add this feature to the code?

[paullimapa]

Hpassoc controls hatch associativity

So you can save the current setting, set it to what you want, then do hatch and restore to original setting

You can also include after hatch creation to bring the last object to the front like examples here

[paullimapa]

also consider HpDrawOrder

[joe_kohli]

I would rather just have it in the LSP instead of having it in the settings of Autocad.

[Kent1Cooper · Accepted solution]

Associativity and Island detection are two independent settings.  Try this:

(command
  "_.-hatch" "_advanced" "_island" "_no" "" ""
  "_properties" "ANSI37" 1 0 "_select" pause "" ""
)

[There are probably some different sequences of options that can get you there, including via BHATCH rather than HATCH.]

[joe_kohli]

Kent, that worked!!