02.04.2019 08:27

87283    

Merhaba ArkadaÅŸlar,

Autocad proğramın da bir extrım komutunu tek seferde yapmak için herhangi bir bilginiz var mı? Aşağıda ki linkte ekran görüntüsü mevcuttur.



Linkleri görebilmek için ÜYE olmalısınız.

02.04.2019 10:12

87285    

Alıntı

---

Travaci :
Reminizi Dosya Deposuna yükleyip paylaşın.

---

Linkleri görebilmek için ÜYE olmalısınız.



Ayrıca bi adet lisp buldum ama bu lisp dikdörtgen dışında ne varsa siliyor.



Linkleri görebilmek için ÜYE olmalısınız.

ozan9690 (02.04.2019 13:01 GMT)

03.04.2019 05:12

87288    

Alıntı

---

Travaci :


Linkleri görebilmek için ÜYE olmalısınız.

---

Nasıl çalışıyor bu lısp?

Aşağıda ki lisp tam olarak nasıl çalışıyor anlatabilr misin?

;Trim all outside a closed poly - www.cadforum.cz
;(requires Express Tools!)

(vl-load-com)

(defun C:TO ( / cmde ent en el ss cbox ssall lst)
(if (and ACET-ENT-GEOMEXTENTS ; ET?
(setq ent (entsel "\nSelect the contour polyline: "))
(setq en (car ent))
(wcmatch (cdr (assoc 0 (entget en))) "*POLYLINE"))
(progn
(setq cmde (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command "_UNDO" "_Group")
(setq cbox (ACET-ENT-GEOMEXTENTS en))
(setq cbox (mapcar '(lambda(x)(trans x 0 1)) cbox))
(setq lst (ACET-GEOM-OBJECT-POINT-LIST en 1e-4))
(ACET-SS-ZOOM-EXTENTS (ACET-LIST-TO-SS (list en)))
(command "_.ZOOM" "0.95x")
(if (null etrim)(load "extrim.lsp"))
(etrim en (polar
(car cbox)
(angle (car cbox)(cadr cbox))
(* (distance (car cbox)(cadr cbox)) 1.1)))
(if (and
(setq ss (ssget "_CP" lst))
(setq ssall (ssget "_X" (list (assoc 410 (entget en)))))
)
(progn
(setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(foreach e1 lst (ssdel e1 ssall))
(ACET-SS-ENTDEL ssall)
)
)
(command "_UNDO" "_End")
(setvar "CMDECHO" cmde)
)
(if (not ACET-ENT-GEOMEXTENTS)(princ "\nExpress Tools not installed!"))
)
(princ)
)

(princ "\nTrimOuter loaded. Type TO to start.")
(princ)

ozan9690 (03.04.2019 07:17 GMT)