---

Beispiel.pdf

Ich brauche ein Tipp. Ich will ein Cod schreiben der Linien zeichnet, von der miete aus bis zur einer Außenkante. Jedoch ich weis nicht wie kann ich die Endpunkte definieren. Es handelt sich um beliebige geschlossne Konturen. Das soll ungefähr so funktionieren wie bei der Schafuhr, wo man die Auswahlpunke wählt und AutoCAD erkennt automatisch die Außenkontur und dann ist der Endpunkt von der Schafuhr definiert. Da ich erst anfange Lisp zu schreiben, ist die Frage bisschen unverständlich, jedoch für jeden Tipp bin ich sehr dankbar.

Mit freundlichen Grüßen
RoyCAD

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

---

Wir hatten mal ein ähnliches Problem diskutiert - vielleicht findest Du da erste Anregungen. http://ww3.cad.de/foren/ubb/Forum145/HTML/000890.shtml

Wenn sicher ist, daß sich dort keine weiteren Objekte befinden und der äußere Umriß geschlossen ist, gibt es noch eine schnelle Möglichkeit.
Befehl:  _boundary starten und mit (entget (entlast)) einfach die
Koordinaten des zuletzt gezeichneten Elements abrufen.

Gruß Carsten

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

---

Hallo,

schau mal hier:
http://ww3.cad.de/foren/ubb/Forum54/HTML/009300.shtml

Gruß
Theodor Schönwald

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

---

Wenn sicher ist, daß sich dort keine weiteren Objekte befinden und der äußere Umriß geschlossen ist, gibt es noch eine schnelle Möglichkeit.
Befehl:  _boundary starten und mit (entget (entlast)) einfach die
Koordinaten des zuletzt gezeichneten Elements abrufen.

Kannst du vielleicht bisschen genauer das beschreiben

Gruß
RoyCAD 

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

---

Hallo RoyCAD,

bitte stelle Deine Fragen etwas weniger allgemeingültig, damit wir wenigstens das Gefühl haben, dass Du Dich intensiv mit dem Thema auseinandersetzt.   

Gruß Carsten

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

---

Beispiel_2.pdf

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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

---

Hallo RoyCAD,
Anfänger sollten die Lisp in Einzelteile zerlegen und jeden Teil für sich prüfen, bevor sie alles zusammensetzen. So mache ich es auch.

Wichtig ist, dass das Element eine LWPolylinie ist. Wenn Du Dir die Definitionsdaten anschaust, da gibt es den Gruppencode 10 mehrfach. Dieser Code liefert Dir die Scheitelpunkte der Polylinie. Mit assoc bekommst Du den ersten Punkt, mit einer Schleife z.B. while könntest Du alle Punkte auslesen. Und member ist hier noch brauchbar.
Probier mal, ob Du das hinbekommst.

Gruß Carsten

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