Mevcutta PE ile bir çizgiyi seçip Join ile diğerlerini seçiyorum. Bunu kısaltmak için kapalı bir geometriyi tek komutla polyline yapabilirmiyim.

Internette bulduğumuz bir kod üzerinde değişiklik yaptık. Aşağıdaki kod istediğiniz işlevi gerçekleştiriyor:

[code]
(defun c:<b>PJ</b> (/ en s1)
(princ "\nBirleştirilecek nesneleri seçin: ")
(setq s1 (ssget '((-4 . "<OR") (0 . "LINE") (0 . "LWPOLYLINE") (0 . "POLYLINE") (0 . "ARC") (-4 . "OR>"))))
(setq en (ssname s1 0))
(command "_.EDITPLINE" en "j" s1 "" "x")
(princ)
)[/code]

<i>
Not: Bir davranış değişikliği nedeniyle yukarıdaki kod sadece icad 2009'da çalışır.</i>

çok teşekkür ederim.

Yeni sürümlerde çalışan hali aşağıda:

[code]
(defun c:PJ (/ en s1 entType)
(princ "\nBirleştirilecek nesneleri seçin: ")
(setq s1 ;Seçim kümesine sadece LINE ARC ve POLYLINE'ları alıyoruz
(ssget
'(
(-4 . "<OR")
(0 . "LINE")
(0 . "ARC")
(0 . "LWPOLYLINE")
(0 . "POLYLINE") ; Eski tip polyline da gelebilir bir ihtimal
(-4 . "OR>")
)
)
)
(setq en (ssname s1 0)) ; Kümenin ile elemanını elimize alıyoruz
(setq entType (cdr (assoc 0 (entget en)))) ; İlk elemanın nesne tipini öğreniyoruz
(if (member entType (list "ARC" "LINE")) ; Eğer bu nesnenin tipi ARC veya LINE ise ...
(command "_.EDITPLINE" en "_y" "_j" s1 "" "") ; bu satırı, değilse
(command "_.EDITPLINE" en "_j" s1 "" "") ; bu satırı çalıştırıyoruz
)
(princ) ; Gürültü yapmadan çıkıyoruz
)
[/code]