topic Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues in Visual LISP, AutoLISP and General Customization Forum

AutoCAD LT AutoLISP - Hatch LISP routine colour issues

BigBoyCAD — Tue, 09 Sep 2025 04:41:18 GMT

AutoCAD LT 2025

I would like to create a lisp routine that:

- creates layer (if not already created) called 'Earth Hatch 2' - colour '11'

- enables hatching of multiple pick points

- Hatch pattern 'Earth'

- Hatch scale '35'

- Hatch angle '45'

- Successfully places hatch on colour 11 regardless of previous hatch colour settings being set to:

'ByLayer', 'ByBlock', 'Use Current' or set to an index colour.

- Allows for furture hatches, created via the normal hatch command, to be created on the current layer at the time as opposed to continuing to be created on 'Earth Hatch 2' layer.

- Allows for furture hatches, created via the normal hatch command, not to retain the same attributes set by the LISP routine i.e. scale, angle, colour, though to remain what ever the settings were previously set to.

The following code works perfectly except:

- requires you to press 'enter' to confirm 'none' for background colour.

I would like this to happen automatically.

- Future hatches are created on colour 11

As I understand it AutoCAD LT has limits regarding how you can set the colour for hatches through LISP routines.

- The background color prompt cannot be suppressed or auto-answered through LISP.

- LT doesn’t let you set it directly by LISP

Can someone please help me remove the prompt for 'new background colour' after initiating the LISP routine?

Many thanks.

;; ERH17M-MP18 — Earth hatch, multiple pick points
(defun c:ERH17M-MP18 ( / oldce oldlay oldhpname oldhpscale oldhpang oldhplayer lay)
;; Save environment & hatch defaults
(setq oldce (getvar "CMDECHO"))
(setq oldlay (getvar "CLAYER"))
(setq oldhpname (getvar "HPNAME"))
(setq oldhpscale (getvar "HPSCALE"))
(setq oldhpang (getvar "HPANG"))
(setq oldhplayer (getvar "HPLAYER"))

(setvar "CMDECHO" 0) ; quiet mode

(setq lay "Earth Hatch 2")

;; Ensure layer exists and is colour 11
(if (tblsearch "LAYER" lay)
(vl-cmdf "_.-LAYER" "C" "11" lay "")
(vl-cmdf "_.-LAYER" "N" lay "C" "11" lay "")
)

;; Temporarily make Earth Hatch 2 current
(setvar "CLAYER" lay)

;; Start hatch with full property setup
(vl-cmdf
"_.-HATCH"
"_Properties" "EARTH" "35" "45"
"_Layer" lay
"_Color" "11" ;; <- force hatch colour to 11, independent of HPCOLOR
"_PickPoints"
)

;; Allow multiple picks until user presses Enter
(while (= 1 (getvar "CMDACTIVE"))
(command pause)
)

;; Restore hatch defaults
(if oldhpname (setvar "HPNAME" oldhpname))
(if oldhpscale (setvar "HPSCALE" oldhpscale))
(if oldhpang (setvar "HPANG" oldhpang))
(if oldhplayer (setvar "HPLAYER" oldhplayer))

;; Restore previous layer and CMDECHO
(setvar "CLAYER" oldlay)
(setvar "CMDECHO" oldce)
(princ)
)

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

ВeekeeCZ — Tue, 09 Sep 2025 06:30:49 GMT

Use 'HPCOLOR sysvar in the same way you used other HP* sysvars.

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

pendean — Tue, 09 Sep 2025 12:54:08 GMT

@BigBoyCAD Use and take full advantage of all the HATCH variables and that should help your issue:

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

BigBoyCAD — Wed, 10 Sep 2025 07:05:09 GMT

Thanks @ВeekeeCZ and @pendean.

Though the issue is that LT doesn't seem to allow you to set the hatch colour or hatch back ground colour via LISP.

I was hoping to find a work around to avoid the prompt coming that requires you to press 'enter' to confirm 'none' for background colour.

The following results occur when trying to designate the HPBACKGROUNDCOLOR system variable.

;; Set hatch background color to None
(setvar "HPBACKGROUNDCOLOR" "None")

Results in:
; error: AutoCAD variable setting rejected: "HPBACKGROUNDCOLOR" "None"

2.
;; Set hatch background color to None
(setvar "HPBACKGROUNDCOLOR" ".")

Results in:
A color number or standard color name is required.

You are then required to press enter to confirm 'none' for hatch back ground colour.

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

ВeekeeCZ — Wed, 10 Sep 2025 07:48:20 GMT

If there is a glitch with this particular variable, I doubt it would be specific to LT (2024+).

You should be able to use this syntax

(setvar "HPBACKGROUNDCOLOR" ".").

That would be a preferable way.

If not, you can try (command "HPBACKGROUNDCOLOR" ".")

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

komondormrex — Wed, 10 Sep 2025 18:51:15 GMT

check this subtle mod to your code

(defun c:ERH17M-MP18 ( / oldce oldlay oldhpname oldhpscale oldhpang oldhplayer lay) ;; Save environment & hatch defaults (setq oldce (getvar "CMDECHO")) (setq oldlay (getvar "CLAYER")) (setq oldhpname (getvar "HPNAME")) (setq oldhpscale (getvar "HPSCALE")) (setq oldhpang (getvar "HPANG")) (setq oldhplayer (getvar "HPLAYER")) (setvar "CMDECHO" 0) ; quiet mode (setq lay "Earth Hatch 2") ;; Ensure layer exists and is colour 11 (if (tblsearch "LAYER" lay) (vl-cmdf "_.-LAYER" "C" "11" lay "") (vl-cmdf "_.-LAYER" "N" lay "C" "11" lay "") ) ;; Temporarily make Earth Hatch 2 current (setvar "CLAYER" lay) ;; Start hatch with full property setup (vl-cmdf "_-HATCH" "_Properties" "EARTH" "35" "45" "_Layer" lay "_Color" "11" ;; <- force hatch colour to 11, independent of HPCOLOR ;;;"_PickPoints" ; komondormrex "" ; komondormrex ) ;; Allow multiple picks until user presses Enter (while (= 1 (getvar "CMDACTIVE")) (command pause) ) ;; Restore hatch defaults (if oldhpname (setvar "HPNAME" oldhpname)) (if oldhpscale (setvar "HPSCALE" oldhpscale)) (if oldhpang (setvar "HPANG" oldhpang)) (if oldhplayer (setvar "HPLAYER" oldhplayer)) ;; Restore previous layer and CMDECHO (setvar "CLAYER" oldlay) (setvar "CMDECHO" oldce) (princ) )

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

BigBoyCAD — Wed, 10 Sep 2025 23:35:03 GMT

Thank you @ВeekeeCZ

Unfortunately neither of these approaches solved the issue of eliminating the dialogue box / the need to press enter to confirm background colour.

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

BigBoyCAD — Wed, 10 Sep 2025 23:36:01 GMT

Thank you so much @komondormrex .

This was the fix.

Much appreciated! 👍

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

BigBoyCAD — Thu, 11 Sep 2025 01:37:56 GMT

May I please ask..

How would I adjust this to make versions that allow for:

- single selection 'picK internal point' hatch

- single selection 'Select objects' hatch

- multiple selection 'Select objects' hatch

with everything else staying the same?

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

Sea-Haven — Thu, 11 Sep 2025 02:14:18 GMT

Just a quick maybe (getvar 'hpbackgroundcolor) = "NONE" not "None". It worked though in my Bricscad. Part 2 (setvar 'hpbackgroundcolor "32") note string value of color number. or primary color eg "Red"

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

komondormrex — Thu, 11 Sep 2025 17:46:21 GMT

@BigBoyCAD wrote:
with everything else staying the same?
- single selection 'picK internal point' hatch
- single selection 'Select objects' hatch
- multiple selection 'Select objects' hatch

pure single internal point imho may be done with using boundary to check if there is applicable area for hatching, etc. otherwise double space using code from message 6...

single pick may be done just fine. see attached ERH17M-MP18_Single_Pick.lsp

multiple picks will require double space to end picking, which is not good for the program. see attached ERH17M-MP18_Multiple_Picks.lsp

multiple selection will also require double space to end selecting, ... see attached ERH17M-MP18_Multiple_Select.lsp

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

BigBoyCAD — Tue, 16 Sep 2025 02:31:46 GMT

Thank you very much for these.

They work great.

I made a slight tweek to the 'Multiple_Picks' code as it was giving both multi select objects and multi pick point hatching (please see attached).

Though I love that option in the 'Multiple_Select' code. Very handy.

Thank you for your great work. 👍

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

BigBoyCAD — Tue, 16 Sep 2025 04:10:42 GMT

Thank you for your suggestion @Sea-Haven

While I was able to change the background colour through LISP if designating a colour, it still wouldn't work when trying to set it to 'None' or 'NONE'.

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

Sea-Haven — Wed, 17 Sep 2025 00:58:46 GMT

Did a bit more digging this seems to work.

(setpropertyvalue (car (entsel)) "HatchBackgroundColor" "NONE")

Re: AutoCAD LT AutoLISP - Hatch LISP routine colour issues

ВeekeeCZ — Wed, 17 Sep 2025 06:36:19 GMT

Setting HatchBackgroundColor has never been the actual issue. It was the following line... "_PickPoints" that broke the flow of the command. By removing that one, it works as expected.