Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
hg_aum

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

Các bài được khuyến nghị

hg_aum    1

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!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Doan Van Ha    2.678

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í.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
hg_aum    1

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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
KangKung    229

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")

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
hg_aum    1

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!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
KangKung    229

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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×