29.12.2015 06:10    

kalabalık bir çizim içerisinde dikdörtgen kare daire arc ile yapılmış çizimler spline ile yapılmış çizimler vs.
sonuçta kapalı bir objenin içinde ne varsa temizleyecek bir yöntem varmıdır. toplu seçim yapılarak

29.12.2015 15:56    

teşekkürler

30.12.2015 08:45    

bu lisp sadece seçilen dikdörtgenin içindekileri siliyor.
dikdörtgen-kare-daire spline arc ile çizilmiş ve tüm kapalı objelerin içindekilerini silmesi için düzenlenebilirmi.
köşe seçmeden toplu seçim ile kapalı tüm objelerin içindeki lerini topluca silmesi için düzenlenebilir mi.


(defun c:icsil(/ pt1 pt2 pt3 pt4 fp1 fp2 fp3
fp4 aci trec objgrp ename
*f objpt1 objtype olderr )

(command "_UNDO" "_MARK")
(setq olderr *error* *error* tal_err)
(get_sys_vars)
(set_sys_vars)

(initget 1)
(setq pt1 (getpoint "\nBirinci kose: "))
(initget 1)
(setq pt3 (getcorner pt1 "\nDiger kose: "))

(setq pt2 (list (car pt3) (cadr pt1) 0.0)
pt4 (list (car pt1) (cadr pt3) 0.0)
aci (angle pt1 pt3)
fp1 (polar pt1 aci (/ (distance pt1 pt3) 30.0))
fp3 (polar pt3 (+ aci pi) (/ (distance pt3 pt1) 30.0))
fp2 (list (car fp3) (cadr fp1) 0.0)
fp4 (list (car fp1) (cadr fp3) 0.0)
*f 0
)

(setq objgrp (ssget "_C" pt1 pt3))

(if objgrp
(progn
(repeat (sslength objgrp)
(setq ename (ssname objgrp *f) *f (1+ *f))
(get_objprp ename)
(if (= _objtype "INSERT") (command "_EXPLODE" ename))
)

(command "_ERASE" "_W" pt1 pt3 "")

(command "_PLINE" pt1 pt2 pt3 pt4 "_C")
(setq trec (entlast))

(command "_TRIM" trec "" "_f" fp1 fp2 fp3 fp4 fp1 "" "")
(command "_ERASE" trec "")
)
(princ "\nHerhangi bir obje secmediniz!...")
)

(put_sys_vars)
(setq objgrp nil *error* olderr)
(princ)
)

05.01.2016 14:29    

Alıntı

---

halilozcakir :
64792-tal-utils.rar

---

BU LISPIN KOMUTU NEDIR ACABA?