Hallo libe Lisp Freunde,
Da ich noch grosse Lücken in meine Lisp Kenntnisse habe benötige ich immer wieder Hilfe von erfahrenen Spezialisten
Das Programm soll Wände darstellen.
Wie kriege ich denn das es, nicht von vier Punkte Kordinate für plinie fragt sondan abhängig von Bedarf.
Danke im voraus.
(defun c:das ()
(setq p (getpoint "\nPunkt"))
(setq p1 (getpoint p "\nPunkt"))
(setq p2 (getpoint p1 "\nPunkt"))
(setq p3 (getpoint p2 "\nPunkt"))
(setq ugl (angle p p1))
(setq ugl1 (angle p2 p3))
(setq m (polar p (+ ugl (/ (* 90.0 pi) 180)) 125))
(setq m1 (polar p3 (+ ugl1 (/ (* 90.0 pi) 180)) 125))
(setq m2 (polar p (+ ugl (/ (* 45.0 pi) 180)) 25))
(setq OSM (getvar "osmode"))
(setq col (getvar "HPCOLOR"))
(setvar "HPCOLOR" "2")
(setvar "osmode" 0)
(command "_.layer" "_s" "Trockenbau" "")
(command "_.pline" p p1 p2 p3 "")
(setq s (entlast))
(command "_.pline" m p "")
(setq s1 (entlast))
(command "_.pline" m1 p3 "")
(setq s2 (entlast))
(command "_.offset" 125 s m "")
(setq s3 (entlast))
(command "_.pedit" "_M" s s1 s2 s3 "" "_J" "_J" "_B" 0 "")
(setq s4 (entlast))
(command "_.offset" 25 s m2 "")
(setq s5 (entlast))
(command "_.layer" "_s" "Trockenbau Dunn" "")
(command "_.laycur" s5 "")
(command "_.bhatch" "_p" "_ANSI37" 8 90 "_s" s5 "" "")
(setvar "osmode" OSM)
(setvar "HPCOLOR" col)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP