Nhờ sửa lisp Xclip

[DNcouples 2]

Chào các anh. Em có nhặt được lisp này trên mạng mà ko nhớ ở đâu.
Lisp dùng để Xclip 1 đối tượng thành nhiều đối tượng nhỏ bằng cách chọn nhiều polyline thay vì chỉ chọn đc 1 polyline như lệnh gốc.
Em gặp 1 vấn đề là khi dùng cho block động thì block sẽ mất tính chất "ĐỘNG".
Các anh xem giùm em sửa lisp này để dùng đc cho block động có khả thi ko.

Nếu ko đc, mong các anh sửa lisp giùm em để sau khi dùng lệnh, đối tượng đc Xclip sẽ nằm dưới đường polyline đã chọn.
Em cảm ơn mọi người!

(defun c:XC(/ ss)
(setq blk (car(entsel "\nchon block:")))
(setq tt (entget blk))
(redraw blk 3)
(princ "chon khung nhin")
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq i 0)
(redraw blk 4)
(while (> (sslength ss) 0)
(entmake tt)
(setq name (ssname ss 0))
(VL-CMDF "_xclip" (entlast) "" "N" "S"  name)
;;(command ".xclip" blk "off")
(ssdel name ss)
)
(command ".erase" blk "")
)

 

[ketxu 3020]

Nó mất tính động là do cái đoạn (Entmake tt) đấy, tức là thay vì copy block ra 1 cái mới, nó lại entmake. Trong entmkae đơnt huần của entget Block thì k thể tạo hiệu ứng động. Thay vì entmake, hãy vla-copy block ra 1 cái mới. 

 

[DNcouples 2]

15 giờ trước, ketxu đã nói:

Nó mất tính động là do cái đoạn (Entmake tt) đấy, tức là thay vì copy block ra 1 cái mới, nó lại entmake. Trong entmkae đơnt huần của entget Block thì k thể tạo hiệu ứng động. Thay vì entmake, hãy vla-copy block ra 1 cái mới. 

 

cảm ơn anh, để em mò theo hướng này thử.
còn nhu cầu của em muốn sau khi xclip thì block nằm dưới polyline thì sửa thế nào anh ha

[ketxu 3020]

1 giờ trước, DNcouples đã nói:

cảm ơn anh, để em mò theo hướng này thử.
còn nhu cầu của em muốn sau khi xclip thì block nằm dưới polyline thì sửa thế nào anh ha

Cái đó đơn giản là điều chỉnh Draw Order, bạn cũng có thể bắt GPT thêm vào :)