wunderbar habe mir selber geholfen.
hier ein beitrag zu meiner frage.
Code:
--------------------------------------------------------------------------------
(defun c:makeh ()
(entmake
(list (cons 0 "HATCH")
(cons 100 "AcDbEntity")
(cons 67 0)
(cons 410 "Model")
(cons 8 (getvar "CLAYER"))
(cons 100 "AcDbHatch")
(cons 10 (list 0.0 0.0 0.0))
(cons 210 (list 0.0 0.0 1.0)) ;;changed z
(cons 2 "SOLID")
(cons 70 1)
(cons 71 0)
(cons 91 1)
(cons 92 1)
(cons 93 3)
(cons 72 1)
(cons 10 (list 30.0 30.0 0.0));;Umgrenzung
(cons 11 (list 50.0 70.0 0.0));;Umgrenzung
(cons 72 1)
(cons 10 (list 50.0 70.0 0.0));;Umgrenzung
(cons 11 (list 70.0 30.0 0.0));;Umgrenzung
(cons 72 1)
(cons 10 (list 70.0 30.0 0.0));;Umgrenzung
(cons 11 (list 30.0 30.0 0.0));;Umgrenzung
(cons 97 0)
(cons 75 0)
(cons 76 1)
(cons 98 1)
(cons 10 (list 0.0 0.0 0.0))
(cons 450 0)
(cons 451 0)
(cons 460 0.0)
(cons 461 0.0)
(cons 452 1)
(cons 462 1.0)
(cons 453 2)
(cons 463 0.0)
(cons 63 5)
(cons 421 255)
(cons 463 1.0)
(cons 63 7)
(cons 421 16777215)
(cons 470 "LINEAR"))))
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP