| ADeko Technologies http://adeko.com/phpBB3/ |
|
| Tek komutla Polyline yapmak. http://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/ |
|