Verfolgen Sie alle Diagonalen eines Polygon-Polyline

[Joseph]

manchmal können sie spaß haben (es ist getan, um zu sagen) auch mit der lispe.
ausgehend von einer menzi erzeugenden datei "drawdiags.lsp", die 2 diagonalen eines polygons verfolgte, versuchte ich, den code zu schreiben, der alle diagonalen eines beliebigen polygons, regelmäßig oder nicht, solange ich konvex: dies ist das ergebnis, teil mit dd.
(Defun c:ddd) ( / acadoc ent obj spc lay k l n n n n n n n n s ll lst tmp obj)
(vl-load-com)
(Einsatz)
(setq ent (entsel "\nscegli a polyline: ")))))
(setq acadoc (vla-get-activedocument)
spc (vla-get-modelspace acadoc)
obj (vlax-ename->vla-object)
laien (vla-get-layer obj)
tmp (vlax-get obj 'koordinaten)
)
(while)
(setq lst (karte '(lambda (l) (nth l tmp))) '(0 1) lst) ;lista di punti
tmp (cddr tmp)
)
)
(setq nn (länge lst)
(Ansatz: 0 k 0 s 0)
(in %)
(setq k (+ a 2))
(in %)
(setq ll (vla-addline spc)
(Setq k (1+k)
)
(setq lst)
(Setq s (1+ s)
)
)

 

[oskar]

hi Ich habe versucht, diese Datei online zu suchen. lsp, aber es ist nicht, Sie wären in der Lage, eine Kopie zu posten. weil zu unzähligen unregelmäßigen Polygonen Ich muss n.2 Diagonalen verfolgen, wenn es möglich wäre, sie alle auszuwählen und nicht einzeln wäre wirklich nützlich. Danke.

 

[MassiVonWeizen]

hi Ich habe versucht, diese Datei online zu suchen. lsp, aber es ist nicht, Sie wären in der Lage, eine Kopie zu posten. weil zu unzähligen unregelmäßigen Polygonen Ich muss n.2 Diagonalen verfolgen, wenn es möglich wäre, sie alle auszuwählen und nicht einzeln wäre wirklich nützlich. Danke.

was brauchen Sie die Schubladen. lsp-Datei, wenn Sie bereits den Code im Joseph-Post haben?

 

[oskar]

was brauchen Sie die Schubladen. lsp-Datei, wenn Sie bereits den Code im Joseph-Post haben?

Guten Morgen (Ich bete, dass Programmierung Lisp Ich weiß sehr wenig). der Code, der joseph sanft geschrieben, erzeugt eine diagonale Vielzahl für die Anzahl der Vertiken, die ein Polygon besitzt. (Ich sah eine weitere Diskussion darüber.)Diagonalen in geometrischen Figuren einfügen" " es gibt einen Lsp, der sehr gut funktioniert, aber gibt nur eine Diagonale zurück. Danke.

​

 

[MassiVonWeizen]

Guten Morgen (Ich bete, dass Programmierung Lisp Ich weiß sehr wenig). der Code, der freundliche Joseph dir geschrieben hat schafft eine Vielzahl von Diagonen für die Anzahl der Wirbel, die ein Polygon besitzt. (Ich sah eine weitere Diskussion darüber.)Diagonalen in geometrischen Figuren einfügen" " es gibt einen Lsp, der sehr gut funktioniert, aber gibt nur eine Diagonale zurück. Danke.

​

Nichtquadra.