++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
bitte stelle Deine Fragen etwas weniger allgemeingültig, damit wir wenigstens das Gefühl haben, dass Du Dich intensiv mit dem Thema auseinandersetzt.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Ok kein Problem es ist halt so, ich schreibe ein Code, das die Platten von einer Decke zeichnet. Das Problem liegt daran, wenn die Decke kein 4-eck ist kann ich die Endpunkte nicht so richtig definieren. Deshalb bin ich daran interessiert wie kann ich die Aussenkanten meiner Decke als Endpunkte definieren. Dadurch wird es die ganze Code um Einiges kurzer und übersichtiger.
P.S. Ich habe mit dem boundary Befehl schon probiert aber so richtig geht es noch nicht
Die Daten von der Aussenkante werden gelesen aber wie kann ich die weiter verwenden.
(command "_.boundary" "end" )
(setq AX (entget (entlast)))
(setq votz (getpoint "Mittelpunkt wählen"))
(setq bil (list (nth 14 Ax) (nth 1 votz) 0.0))
(command "linie" votz (nth 14 Ax) "")
Decke- Platten
(setq pts (list ( + (nth 0 ptm) 23.9) (+ (nth 1 ptm) 42.0) 0.0))
(setq pty (list ( nth 0 ptm ) (- (nth 1 pt7) (nth 1 ptm)) 0.0))
(setq ptx (list ( nth 0 ptm ) (* (nth 1 pty ) (/ (sqrt 3) 3)) 0.0))
(setq ptxy (list(+ (nth 0 pt7 ) (nth 1 ptx)) (nth 1 pt7) 0.0))
(setq ptw (list (+ ( nth 0 ptm) (nth 1 ptx)) (- (nth 1 ptom) 3.5) 0.0))
(setq pth (list ( nth 0 ptxy) (nth 1 pt7) 0.0))
(setq länge (distance pts pth))
(setq ptleg (polar pts (/ PI 3.0) länge))
(setq ptpower (inters pth pt7 pts ptleg [aufseg] ))
(command "_pline" pt6 pt7 pt7 ptpower pts "_a" "_r" 48.3 pt6 "")
Gruß
RoyCAD
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP