[yêu cầu] lisp vẽ đường thẳng trên 2 layer trên bản vẽ

[hg_aum 2]

vấn đề của mình như sau;trên bản vẽ mình có 2 lớp là duong và muong.Mình muốn vẽ một đường thẳng trên cả 2 lớp đó(khi dùng lệnh vẽ trên lớp duong,chương trình cũng sẽ vẽ đường thẳng đó trên lớp muong luôn,có nghĩa là đường thẳng đó phải vẽ trên cả 2 lớp.Rất mong các anh em trên diễn đàn giúp đỡ.Em xin cám ơn nhiều!

[Doan Van Ha 3.191]

Bạn muốn vẽ 2 đường thẳng cùng lúc, một em thuộc lớp "đường" và 1 em thuộc lớp "mương", hay bạn muốn vẽ chỉ 1 đường thẳng nhưng vừa thuộc lớp "đường" vừa thuộc lớp "mương"?

Nếu là thứ nhất thì khả dĩ, còn thứ hai thì hiện cad đang bí.

[hg_aum 2]

hi mình muốn vẽ 2 đường thẳng cùng một lúc,một thuộc lớp "đường",một thuộc lớp "mương" đó bạn.Nếu có thể bạn hãy viết chi tiết hơn cho mình nhé.Lớp đường mình mặc định để màu đỏ nhưng khi đường thẳng vẽ bằng lệnh này nó sẽ có màu xanh.Cám ơn bạn đã sớm hồi âm nha.

[KangKung 250]

Lisp của bạn đây

;========LISP VE DUONG THANG TREN 2 LAYER==========
;=============KANGKUNG 30/03/2013==================
(defun C:KK()
  (command "PLINE")
  (while (> (getvar 'cmdactive) 0) (command pause))
  (KK))
(defun *error* (msg) (KK))
(defun kk()
  (vla-put-layer (vlax-ename->vla-object (entlast)) "duong")
  (vla-put-color (vlax-ename->vla-object (entlast)) "3")
  (command "COPY" (entlast) "" "0,0" "0,0")
  (vla-put-layer (vlax-ename->vla-object (entlast)) "muong"))
(princ "\n                Written By KangKung - 30/03/2013\n")
(princ "\n                  Nhap KK de chay chuong trinh\n")

[hg_aum 2]

cám ơn bác nhé,em kiểm tra rồi.Đúng theo ý muốn của em.Em chỉ bổ xung thêm dòng lệnh (command "layer" "s" "muong" "") vào thêm nữa thôi.Cám ơn anh và diễn đàn nhiều nha!

[KangKung 250]

Không cần bổ sung gì Lisp vẫn chạy ngon lành. Bạn vẽ ở bất kì layer nào thì đường thẳng đó cũng được chuyển về layer đường và mương.