[Yêu cầu] Nhờ viết lisp copy text, kết quả đổi sang layer hiện hành

[bach1212 4]

Mình có 1 công việc như này phải lặp đi lặp lại. Copy 1 đối tượng  (layer 1) sang bên cạnh rồi lại đổi nó về layer khác (layer hiện hành: layer 2)
Muốn nhờ các bạn viết giùm 1 lisp copy thực hiện được kết quả luôn như thế. Kết quả: sẽ chuyển sang layer hiện hành

[DanKhaosat 14]

BẠN dùng lệnh Ma (cái chổi quét) còn nhanh hơn

[bach1212 4]

Việc này làm với số lượng lớn. Nên "ma" thì không xuể được bạn ah.
 

[Tue_NV 3.912]

Mình có 1 công việc như này phải lặp đi lặp lại. Copy 1 đối tượng  (layer 1) sang bên cạnh rồi lại đổi nó về layer khác (layer hiện hành: layer 2)

Muốn nhờ các bạn viết giùm 1 lisp copy thực hiện được kết quả luôn như thế. Kết quả: sẽ chuyển sang layer hiện hành

 

Bạn có thể dùng lệnh copytolayer hoặc lệnh -copytolayer

Dùng Lisp thì mình quick code cho bạn:

 

(defun c:cpl()  (command "-copytolayer" (ssget) "" (getvar "cLayer")))

[bach1212 4]

E làm được rùi. hề hề, thanks bác ự.

[dunguss3581 3]

 

Bạn có thể dùng lệnh copytolayer hoặc lệnh -copytolayer

Dùng Lisp thì mình quick code cho bạn:

 

(defun c:cpl()  (command "-copytolayer" (ssget) "" (getvar "cLayer")))

anh cho tui hỏi chút sao khi tui gõ dòng lệnh này (command "-copytolayer" ) thì cad 2005 báo nill vậy? hướng xử lý ntn? xin cảm ơn.

[quocmanh04tt 635]

anh cho tui hỏi chút sao khi tui gõ dòng lệnh này (command "-copytolayer" ) thì cad 2005 báo nill vậy? hướng xử lý ntn? xin cảm ơn. Hình như cad2005 không có lệnh -copytolayer. ???

[dunguss3581 3]

 

anh cho tui hỏi chút sao khi tui gõ dòng lệnh này (command "-copytolayer" ) thì cad 2005 báo nill vậy? hướng xử lý ntn? xin cảm ơn. Hình như cad2005 không có lệnh -copytolayer. ???

 

nếu vậy giải quyết vấn đề này thế nào bác?

[quocmanh04tt 635]

Có cái này bạn dùng tạm:

(defun c:cpl (/ ss pt1 pt2 i sn lst l)

(if (and (setq ss (ssget "_:L"))

(setq pt1 (getpoint "\nSpecify base point: "))

(setq pt2 (acet-ss-drag-move ss pt1 "\nSpecify second point: "))

(repeat (setq i (sslength ss))

(setq sn (ssname ss (setq i (1- i))))

(setq lst (cons (vla-copy (vlax-ename->vla-object sn)) lst))

)

) (progn (foreach ent lst (vla-move ent (vlax-3d-point pt1) (vlax-3d-point pt2)))

(foreach obj lst (vla-put-layer obj (getvar "cLayer")))

)

)

(princ)

)

[dunguss3581 3]

thankyou. mình muốn chuyển thẳng về lớp mới có tên xxx gì đó được không bác?

[Doan Van Ha 3.200]

Đổi về tên người ấy thì sửa (getvar "cLayer") thành "Tên_người_ấy".

[dunguss3581 3]

 Đổi về tên người ấngườichuyển(getvar "cLayer") thành "Tên_ngườichuyêok.

 vậy mình muốn chuyển cpl thành hàm con của 3 biến ss pt1 pt2 được k?

[Doan Van Ha 3.200]

 vậy mình muốn chuyển cpl thành hàm con của 3 biến ss pt1 pt2 được k?

Được chứ sao không! Thêm cả biến Layer nữa cũng được.

[dunguss3581 3]

Được chứ sao không! Thêm cả biến Layer nữa cũng được.

mình làm không được. kiến thức hẹp quá. chỉnh giúp tui được không bác Ha?

[Doan Van Ha 3.200]

Đây!

 

(defun c:cpl (/ ss pt1 pt2)
 (if
  (and
   (setq ss (ssget "_:L"))
   (setq pt1 (getpoint "\nSpecify base point: "))
   (setq pt2 (acet-ss-drag-move ss pt1 "\nSpecify second point: ")))
  (cpl ss pt1 pt2))
 (princ)) 
(defun cpl (ss pt1 pt2 / i sn)  
 (repeat (setq i (sslength ss))
  (setq sn (vla-copy (vlax-ename->vla-object (ssname ss (setq i (1- i))))))
  (vla-move sn (vlax-3d-point pt1) (vlax-3d-point pt2))
  (vla-put-layer sn (getvar "cLayer"))))

[dunguss3581 3]

 

Đây!

(defun c:cpl (/ ss pt1 pt2)
 (if
  (and
   (setq ss (ssget "_:L"))
   (setq pt1 (getpoint "\nSpecify base point: "))
   (setq pt2 (acet-ss-drag-move ss pt1 "\nSpecify second point: ")))
  (cpl ss pt1 pt2))
 (princ)) 
(defun cpl (ss pt1 pt2 / i sn)  
 (repeat (setq i (sslength ss))
  (setq sn (vla-copy (vlax-ename->vla-object (ssname ss (setq i (1- i))))))
  (vla-move sn (vlax-3d-point pt1) (vlax-3d-point pt2))
  (vla-put-layer sn (getvar "cLayer"))))

bác giúp tôi cái: có cách nào ngắn gọn cho việc thay đổi lớp một đối tượng vừa tạo ra của bản vẽ không? code ntn?

[quocmanh04tt 635]

Là thế nào? Chỉ 1 đối tượng???

[dunguss3581 3]

Là thế nào? Chỉ 1 đối tượng???

ok.

[quocmanh04tt 635]

Không biết có đúng ý bạn không?

(vla-put-layer (vlax-ename->vla-object (entlast)) (getvar "cLayer"))

[dunguss3581 3]

Không biết có đúng ý bạn không?

(vla-put-layer (vlax-ename->vla-object (entlast)) (getvar "cLayer"))

 

ok. chuẩn ý tôi luôn bác ạ. cảm ơn bác nhiều. mà cấu trúc mấy cái hàm VLA-PUT-LAYER ở đâu mà tôi tìm trong help visual lisp không thấy nhỉ? Tuy tôi dùng được rồi nhưng cấu trúc hàm tôi chưa hiểu..

[quocmanh04tt 635]

Tất cả ở đây: http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-9C8B04B9-B1E5-4F66-A49F-344E40A7D808

Và hỏi bác GG.