cần mn giúp đỡ: chuyển đối tượng về layer layer dùng

[nguyenhuuhieu 0]

mn giúp e cái lisp này với!

kiểu như: e đang dùng layer (1)  mà muốn chuyển 2 đối tượng layer (0) về layer (1), mà layer 2 3 kia không bị thay đỗi! 

 em cảm ơn!

[Danh Cong 422]

Em học sử dụng lệnh Filter đi :)))

[Trnghia Do 0]

Vào lúc 16/1/2020 tại 00:09, nguyenhuuhieu đã nói:

mn giúp e cái lisp này với!

kiểu như: e đang dùng layer (1)  mà muốn chuyển 2 đối tượng layer (0) về layer (1), mà layer 2 3 kia không bị thay đỗi! 

 em cảm ơn!

Như này ah 

(defun c:11 (/ ss)
(setq ss (ssget))
(command "change" ss "" "p" "la" "Layer 1" "")
)

[nhimret 1]

(defun c:1 () (ssget) (command  "change"  "p" "" "p" "la" "a-Tuong" ""))
(defun c:2 () (ssget) (command  "change"  "p" "" "p" "la" "a-Betong" ""))
(defun c:3 () (ssget) (command  "change"  "p" "" "p" "la" "a-net manh" ""))
(defun c:4 () (ssget) (command  "change"  "p" "" "p" "la" "a-trattuong" ""))
(defun c:5 () (ssget) (command  "change"  "p" "" "p" "la" "a-hatch" ""))
(defun c:6 () (ssget) (command  "change"  "p" "" "p" "la" "a-thay" ""))

 

cậu chỉnh layer "a-Tuong", "a=Betong" theo các layer hiện hành của cậu nhé. Lisp này có tác dụng là chọn đối tượng, ấn số 1 thì nó sẽ chuyển layer thành A-Tương, tương tự 2 là a-betong