ポリゴンポリラインのすべての対角を追跡する

[Joseph]

qualche volta ci si può divertire (si fa per dire) anche con il lisp.
partendo da un file di menzi engeneering "drawdiags.lsp" che tracciava 2 diagonali di un poligono, ho provato a scrivere il codice che traccia tutte le diagonali di qualunque poligono , regolare o no, purchè convesso: questo è il risultato, parte con dd.

(defun c:dd ( / acadoc ent obj spc lay k l nn a s ll lst tmp obj)
(vl-load-com)
(setq lst nil tmp nil l nil nn nil)
(setq ent (entsel "\nscegli una polilinea: "))
(setq acadoc (vla-get-activedocument (vlax-get-acad-object))
spc (vla-get-modelspace acadoc)
obj (vlax-ename->vla-object (car ent))
lay (vla-get-layer obj)
tmp (vlax-get obj 'coordinates)
)
(while
(setq lst (cons (mapcar '(lambda (l) (nth l tmp)) '(0 1)) lst) ;lista di punti
tmp (cddr tmp)
)
)
(setq nn (length lst))
(setq a 0 k 0 s 0 )
(while (<= s (- nn 2))
(setq k (+ a 2))
(while (<= k (- nn 2))
(setq ll (vla-addline spc (vlax-3d-point (nth a lst)) (vlax-3d-point (nth k lst))))
(setq k (1+ k))
)
(setq lst (append (cdr lst) (list (car lst))))
(setq s (1+ s))
)
)

 

[oskar]

こんにちは、私はこのファイルドラグを検索しようとしました。 lsp ではなく、コピーを投稿することができます。 不規則なポリゴンを数えるため 私はn.2の対角線を追跡しなければなりません。それをすべて選択できなければ、個別に本当に便利です。 お問い合わせ

 

[MassiVonWeizen]

こんにちは、私はこのファイルドラグを検索しようとしました。 lsp ではなく、コピーを投稿することができます。 不規則なポリゴンを数えるため 私はn.2の対角線を追跡しなければなりません。それをすべて選択できなければ、個別に本当に便利です。 お問い合わせ

ドローダイアグが必要です。 joseph ポストに既にコードを持っている場合は lsp ファイル?

 

[oskar]

ドローダイアグが必要です。 joseph ポストに既にコードを持っている場合は lsp ファイル?

おはようございます(私は私が非常に少し知っているプログラミングの lisp を祈っています)。 josephを優しく投稿したコードは、ポリゴンを所有する頂点数の対角の多角形を生成します。 (私はそれについて別の議論を見ました "幾何学的な図の中のインサートの対角 "非常にうまく機能するlspがありますが、 1つの対角のみを返します。 お問い合わせ

​

 

[MassiVonWeizen]

おはようございます(私は私が非常に少し知っているプログラミングの lisp を祈っています)。 josephさんが投稿したコード ポリゴンを所有する頂点の数のための多角形を生成します。お問い合わせ (私はそれについて別の議論を見ました "幾何学的な図の中のインサートの対角 "非常にうまく機能するlspがありますが、 1つの対角のみを返します。 お問い合わせ

​

. . .