[Yêu cầu]Xin lisp chọn dim

[pawuta 11]

Hay là các bạn có thể sử dụng lisp này. Viết lại 1 tý :

(defun c:an (/ ssd dtuong)
(initget "")
(setq dtuong (getstring "\n Nhap ten doi tuong can An : / Enter de Pick chon doi tuong mau : "))
(if (= dtuong "") (setq dtuong (acet-dxf 0 (entget(car(entsel "\n Pick chon doi tuong mau :"))))))
  (if (setq ssd (ssget (list (cons 0 dtuong))))
    (acet-ss-visible (acet-ss-remove ssd (ssget "X" (list (cons 0 dtuong))  )) 1)
  )
)
;;;;;;;;
(defun c:Hien(/)
    (acet-ss-visible (ssget "X" '((60 . 1))) 0)
)

Cách chạy :

 

Command: an -> Gõ lệnh AN

Nhap ten doi tuong can An : / Enter de Pick chon doi tuong mau : LINE -> Nhập tên đối tượng cần ẩn.

Ví dụ LINE thì gõ LINE

TEXT và MTEXT có thể gõ *TEXT hoặc gõ TEXT,MTEXT

POLYLINE có thể gõ *POLYLINE

Block : gõ INSERT

DIMENSION thì gõ DIMENSION

HATCH thì gõ HATCH

.....

- Nếu bạn không nhớ tên thì có thể enter để chọn 1 đối tượng mẫu

- Chọn đối tượng cần giữ lại. Các đối tượng cùng "kiểu" với đối tượng không được chọn sẽ bị ẩn

 

Select objects: -> Chọn đối tượng cần giữ lại

 

Hiện lại thì gõ lệnh hien

 

....

 

Chúc vui

 

Lisp hay quá, bạn thay đổi một chút giúp mình với nhé, thay vì ẩn hiện đối tượng thì chỉ Select (chọn) đối tượng trong vùng chọn

[Tr.CongSon 42]

Lisp hay quá, bạn thay đổi một chút giúp mình với nhé, thay vì ẩn hiện đối tượng thì chỉ Select (chọn) đối tượng trong vùng chọn

Mạn phép a Tue_VN cho em sửa giúp bạn pawuta 1 chút^^

Code đây bạn

(defun c:Chon (/ ssd dtuong)

(initget "")

(setq dtuong (getstring "\n Nhap ten doi tuong can An : / Enter de Pick chon doi tuong mau : "))

(if (= dtuong "") (setq dtuong (acet-dxf 0 (entget(car(entsel "\n Pick chon doi tuong mau :"))))))

(if (setq ssd (ssget (list (cons 0 dtuong))))

(sssetfirst ssd ssd)

)

)

 

P/s:Mình mới học lisp,thấy được thì ấn nút thanks khích lệ tinh thần tí.hi