Chào các bác, anh chị trên diễn đàn. Các bác cho e hỏi lỗi của đoạn mã sau ở đâu thế ạ, khi e copy từ model sang layout nó luôn chỉ chọn đối tượng đầu tiên và nhân lên vs số lần lặp mà k chọn sang đối tượng thứ N, nếu k dùng vòng lặp "while" hoặc copy và past trên cùng model hoặc layout thì k thấy lỗi ạ. E cảm ơn cả nhà
(defun C:a1( / taphop soluong index)
(setq taphop (ssget (list (cons 0 "POLYLINE,LWPOLYLINE"))))
(setq soluong (sslength taphop))
(setq index 0)
(while (< index soluong)
(vl-cmdf "_.copybase" "_none" '(0 0 0) (ssname taphop index) "")
(vl-cmdf "layout" "S" "Layout1")
(vl-cmdf "_.pasteclip" "_none" '(0 0 0))
(setq index (+ index 1))
)
(princ)
)
test.dwg