---

hallo,

das bks ist im raum verschoben und verdreht,
mit em befehl "bks" und dann "ansicht" schaue ich senkrecht auf die xy-ebene

jatzt greife ich mit einem lisp verschieden punkte ab

mit diesen punkte möchte ich nun über entmake eine polylinie erstellen

die form passt, allerdings ist sie irgendwie im raum verdreht

wie müssen die punkte an entmake übergeben werden

gc 210 habe ich auch übergeben

------------------
MfG
Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vermutlich ermittelst du die Punkte über getpoint?
Und nach der Dokumentation liefert getpoint UCS-Koordinaten.
http://docs.autodesk.com/ACD/2013/DEU/files/GUID-445F32F0-8A9D-4E1D-976F-DE87CC5267D0.htm

Entmake erwartet WCS Koordinaten
http://docs.autodesk.com/ACD/2013/DEU/files/GUID-D47983BA-1E5D-417D-85B8-6F3DE5F506BA.htm

Punkte zwischen den einzelnen Coordinatensystem umrechnen geht über die Funktion TRANS
http://docs.autodesk.com/ACD/2013/DEU/files/GUID-1A316343-0B68-4DBE-8F49-B4D601CB8FCC.htm

(trans Punkt 1 0) für den einfachen Fall UCS->WCS im Modellbereich

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

trans hatte ich auch schon eingebaut, klappt aber nicht

------------------
MfG
Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hab's in einem anderen forum gefunden:

Hi,

Some code lines to make a lwpolyline in the current UCS whatever its plane.
Assuming pt_lst is the list of points in current UCS to create the polyline, got by (getpoint) for example.

{code}(setq zdir (trans '(0 0 1) 1 0 T) ; current UCS normal
elv (caddr (trans (car pt_lst) 1 zdir)) ;current UCS elevation
)
(entmake
(append
(list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length pt_lst)) ; number of vertices
'(70 . 1) ; 1 = closed, 0 = opened
(cons 38 elv) ; elevation
(cons 210 zdir) ; normal
)
(mapcar '(lambda (pt) (cons 10 (trans pt 1 zdir))) pt_lst)
)
){code}

------------------
MfG
Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP