CREATING WALL WITH HATCHING

[rahmathide_legion]

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

[Sea-Haven]

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.

[rahmathide_legion]

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 😄

[pendean]

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.

[rahmathide_legion]

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.

[Anonymous]

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.