topic CREATING WALL WITH HATCHING in Visual LISP, AutoLISP and General Customization Forum

CREATING WALL WITH HATCHING

rahmathide_legion — Fri, 09 Apr 2021 04:33:48 GMT

Wall with hatching lisp routine, its has bug. when run the command then if all snap modes its not on and this command run its needed to zoom , its creating non ortho lines 😭😢☹️

anyone can solve this? I am a newbie in here! if you have any solution can share in here, pleasee

this command is T15

DEFUN C:T15 () (setq tm (getpoint "\ris Pilih titik mimiti as dinding:")) (setq ta (getpoint "\nTerus milih titik tungtung as dinding: buru njing tong hararese gawena")) (COMMAND "LAYER" "M" "aapwg1" "S" "aapwg1" "C" "1" "" "") (command "LINE" (polar tm (+ (angle tm ta) (dtr 90)) 75 ) (polar ta (+ (angle tm ta) (dtr 90)) 75 ) "" ) (command "LINE" (polar tm (- (angle tm ta) (dtr 90)) 75 ) (polar ta (- (angle tm ta) (dtr 90)) 75 ) "" ) (setq pt1 (polar tm (+(angle tm ta) (dtr 90)) 50)) (setq pt2 (polar tm (-(angle tm ta) (dtr 90)) 50)) (setq pt3 (polar ta (+(angle tm ta) (dtr 90)) 50)) (setq pt4 (polar ta (-(angle tm ta) (dtr 90)) 50)) (COMMAND "LAYER" "M" "H2" "S" "H2" "C" "251" "" "") (command "pline" pt1 pt3 pt4 pt2 "c") (COMMAND "LAYER" "M" "H1" "S" "H1" "C" "250" "" "") (command "hatch" "ansi32" "10" "0.0" "l" "") )

This perfectly comand by screenshot

Re: CREATING WALL WITH HATCHING

Sea-Haven — Fri, 09 Apr 2021 05:20:50 GMT

The hatch can vary a little when select object Last you need a no more to select so 2 "" "" so ends.

(command "hatch" "P" "ansi32" "10" "0.0" "s" "l" "" "")

Ps this is walls and yes can be hatched.

Re: CREATING WALL WITH HATCHING

rahmathide_legion — Fri, 09 Apr 2021 05:54:45 GMT

thank for the time for commenting this thread,

i try this revision but need to zoom again while draw the get point.

the revision is fix the snap mode no to all again, thanks 😄

Re: CREATING WALL WITH HATCHING

pendean — Fri, 09 Apr 2021 13:38:38 GMT

Really dumb question... Any reason you are not using AutoCADARCHITETURE that has these wall types features built-in?
It is free with a paid subscription of AutoCAD.

Re: CREATING WALL WITH HATCHING

rahmathide_legion — Fri, 09 Apr 2021 13:50:16 GMT

autocad only bro, my lisp code is created before autocad architecture was release. so, ive work on 2d only. i try to developing in there.

Re: CREATING WALL WITH HATCHING

Anonymous — Sun, 11 Apr 2021 06:28:32 GMT

Hopefully this post says from seahaven forum is messed up.

The images were created using Cad-Arc a package developed prior to Architecture there is around 2 years of programming in it, roofs, walls, doors, elevations and so much more a wall can be 2 or 4 lines any sizes.

If you want further info private mail me a email address.