ADeko Technologies
http://www.adeko.com/phpBB3/

Tek komutla Polyline yapmak.
http://www.adeko.com/phpBB3/viewtopic.php?f=3&t=2148		 1. sayfa (Toplam 1 sayfa)
Yazar:  yenal [ 18 Tem 2009 15:46 ]
Mesaj Başlığı:  Tek komutla Polyline yapmak.
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.
Yazar:  Destek/Support [ 20 Tem 2009 11:16 ]
Mesaj Başlığı: 
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>
Yazar:  yenal [ 21 Tem 2009 10:47 ]
Mesaj Başlığı: 
çok teşekkür ederim.
Yazar:  Destek/Support [ 10 Eyl 2015 12:56 ]
Mesaj Başlığı:  Re: Tek komutla Polyline yapmak.
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]
1. sayfa (Toplam 1 sayfa) Tüm zamanlar UTC + 2 saat [ GITZ ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/