topic Re: HATCH SOLID in Visual LISP, AutoLISP and General Customization Forum

HATCH SOLID

sigmmadesigner — Tue, 20 May 2025 12:36:06 GMT

WHY THIS CONFIGURATION DOES NOT ACCEPT SOLIDS
;; DRAW
(command "_.PLINE" ptBase1 topoPt ptBase2 "C")
(setq triEnt (entlast))
(command "_.HATCH" "ANSI31" ".001" "0" triEnt "")
(setq hacEnt (entlast))
(command "_.CHPROP" hacEnt "" "Color" "30" "")
)

Re: HATCH SOLID

cadffm — Tue, 20 May 2025 12:51:12 GMT

Because you don't have a hatch pattern with name "Solids" ?

SOLID

And I guess, -hatch don't asking for an angle.

Set CMDECHO to 1

Run your (command...) with SOLID

and press [F2]

and you can see what the problem is.

Share a screenshot if you can not see the issue.

Re: HATCH SOLID

ВeekeeCZ — Tue, 20 May 2025 13:03:28 GMT

...nor the scale

(command "_.HATCH" "solid" triEnt "")

Re: HATCH SOLID

komondormrex — Tue, 20 May 2025 14:02:40 GMT

i think

(command-s "_.HATCH" "solid" ".001" "0" triEnt "")

will do

Re: HATCH SOLID

paullimapa — Tue, 20 May 2025 14:04:58 GMT

FYI: Here's another way to change the hatch color:

(command "_.Hatchedit" (entlast) "_Co" "30")

Re: HATCH SOLID

cadffm — Tue, 20 May 2025 14:23:51 GMT

The original code works, so I guess sigmmadesigner ised the wrong pattern name

Re: HATCH SOLID

sigmmadesigner — Wed, 21 May 2025 03:18:05 GMT

Hello everyone, @cadffm @paullimapa @komondormrex @ВeekeeCZ
I tried, all the possibilities posted last I even joked.. it's just add solido that the function gives an error.

Thank you all for contributing!!!

Re: HATCH SOLID

paullimapa — Wed, 21 May 2025 03:58:51 GMT

did you try changing the code to what both @cadffm & @ВeekeeCZ mentioned:

(command "_.HATCH" "solid" triEnt "")

Re: HATCH SOLID

paullimapa — Wed, 21 May 2025 04:51:37 GMT

also try it with an underscore in front of solid:

(command "_.HATCH" "_solid" triEnt "")

Re: HATCH SOLID

cadffm — Wed, 21 May 2025 05:40:54 GMT

Your original hatch-codeline should works with solid.

I miss your Textscreen [F2] screenshot, while cmdecho is 1

Re: HATCH SOLID

sigmmadesigner — Wed, 21 May 2025 05:53:14 GMT

@paullimapa @cadffm @komondormrex @ВeekeeCZ

THIS WAS THE SOLUTION

command "_.PLINE" (car rect1) (cadr rect1) (caddr rect1) (cadddr rect1) "C")

(setq rectEnt1 (if (/= (entlast) entBefore) (entlast) nil))

(if rectEnt1 (progn (command "_.CHPROP" rectEnt1 "" "Color" "40" "")

(command "_.HATCH" "SOLID" rectEnt1 "")

(setq hatch1 (entlast))

(command "_.CHPROP" hatch1 "" "Color" "40" ""))

(princ "\n ERROR HATCH SOLID"))

Re: HATCH SOLID

paullimapa — Wed, 21 May 2025 06:02:31 GMT

so isn't your revised line of code:

(command "_.HATCH" "SOLID" rectEnt1 "")

Re: HATCH SOLID

komondormrex — Wed, 21 May 2025 06:22:53 GMT

watch the gif

Re: HATCH SOLID

sigmmadesigner — Wed, 21 May 2025 06:29:49 GMT

lsp only accepted to apply solid hatching if with
(setq rectEnt1 (if (/= (entlast) entBefore) (entlast) nil))
with respect to rectEnt1, triEnt were the types of objects that would receive the function, rectangles and triangles.

Re: HATCH SOLID

sigmmadesigner — Wed, 21 May 2025 06:34:20 GMT

what madness, in msg 7/14 changing the type to stop programming

Re: HATCH SOLID

paullimapa — Wed, 21 May 2025 06:35:56 GMT

looks like we are not seeing the entire code because entBefore is not defined in the code you've posted.

Re: HATCH SOLID

sigmmadesigner — Thu, 22 May 2025 02:35:44 GMT

Hi, @paullimapa

There is actually no line above this fragment, which means a variable that receives the selection of what was previously created and stores it, so that it can later recognize the limits and place the solid hatch, as exemplified by @komondormrex the solid hatch depends on you determining the limit points, and the entBefore function does this storage so that the solid hatch is applied. That's why in my video when I use the function directly it gives an error, and with this proposition I store the object to apply the solid.
I don't know if I explained it well.

example:

;points of the rectangle

(setq rectPts (list (polar (polar pt ra(/ fa -2)) (+ ra (/ pi 2)) (/ FE_width 2))

(polar (polar pt ra(/ fa 2)) (+ rectAngle (/ pi 2)) (/ fw2))

(polar (polar pt ra(/ fa 2)) (+ rectAngle (/ pi 2)) (/ fw-2))

(polar (polar pt ra(/ fa -2)) (+ rectAngle (/ pi 2)) (/ fw-2))))

;; Stores the last entity before the PLINE command

(setq entBefore (entlast))

;; Draw the strip rectangle (closed polyline)

(command "_.PLINE" (car rectPts) (cadr rectPts) (caddr rectPts) (cadddr rectPts) "C")

;; Stores the last created entity (strip rectangle)

(setq entAfter (entlast))

(setq rectEnt (if (/= entBefore entAfter) entAfter nil))

;; If rectangle was created, apply color and hatch properties

(if rectEnt (progn (command "_.CHPROP" rectEnt "" "Color" "253" "")

(command "_.HATCH" "SOLID" rectEnt "") ;; Hatch solid

(setq hacEnt (entlast))

(command "_.CHPROP" hacEnt "" "Color" "253" "") ));; Hatch color same contour

ent + Before

Re: HATCH SOLID

paullimapa — Thu, 22 May 2025 02:53:56 GMT

So it sounds like your closed pline creation has a possibility of failing which is why you've added the test to see if the last entity is different than your previous last entity. But if there's no problems with the closed pline being generated then the same hatch command works.