Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
5 replies to this topic

#1 hg_aum

hg_aum

    biết vẽ circle

  • Members
  • PipPip
  • 39 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 30 March 2013 - 08:40 PM

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!


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 30 March 2013 - 09:02 PM

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


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 hg_aum

hg_aum

    biết vẽ circle

  • Members
  • PipPip
  • 39 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 30 March 2013 - 10:13 PM

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.


  • 0

#4 KangKung

KangKung

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 227 (khá)

Đã gửi 30 March 2013 - 11:33 PM

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

  • 0

#5 hg_aum

hg_aum

    biết vẽ circle

  • Members
  • PipPip
  • 39 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 31 March 2013 - 12:07 PM

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!


  • 0

#6 KangKung

KangKung

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 227 (khá)

Đã gửi 31 March 2013 - 07:20 PM

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.


  • 0