Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
lp_hai

[Yêu cầu] lisp vẽ tôn

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

chào cả nhà. em muốn nhờ các pác viết júp e cái lisp vẽ sóng tôn. mỗi sóng tôn có kích thước như file kèm theo.

có nghĩa là khi ta chọn 2 điểm như vẽ line thì sóng tôn sẽ chia đều ra.

vd để vẽ 1 sóng tôn em dùng (command "pline" p1 "@15,30" "@30,0" "@15,-30" "70,0" "")

cảm ơn các pác!

http://www.cadviet.com/upfiles/3/ton.dwg

  • Vote tăng 1

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

chào cả nhà. em muốn nhờ các pác viết júp e cái lisp vẽ sóng tôn. mỗi sóng tôn có kích thước như file kèm theo.

có nghĩa là khi ta chọn 2 điểm như vẽ line thì sóng tôn sẽ chia đều ra.

vd để vẽ 1 sóng tôn em dùng (command "pline" p1 "@15,30" "@30,0" "@15,-30" "70,0" "")

cảm ơn các pác!

http://www.cadviet.com/upfiles/3/ton.dwg

Của bạn đây:

(defun c:ton()
 (setq oldos (getvar "osmode"))
 (setvar "osmode" 0)
 (setq p1 (getpoint "Chon diem 1: ")
p2 (getpoint p1 "Chon diem 2: ")
d (distance p1 p2)
sm (rtos(/ d 130) 2 0)
)
 (command "pline")
 (command p1)
    (repeat (atoi sm)
      (command "@15,30" "@30,0" "@15,-30" "@70,0")
      )
 (command "")
 (setvar "osmode" oldos)
 )

  • Vote tăng 3

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

Của bạn đây:

(defun c:ton()
 (setq oldos (getvar "osmode"))
 (setvar "osmode" 0)
 (setq p1 (getpoint "Chon diem 1: ")
p2 (getpoint p1 "Chon diem 2: ")
d (distance p1 p2)
sm (rtos(/ d 130) 2 0)
)
 (command "pline")
 (command p1)
    (repeat (atoi sm)
      (command "@15,30" "@30,0" "@15,-30" "@70,0")
      )
 (command "")
 (setvar "osmode" oldos)
 )

hay that. cam on bac nhé

  • Vote tăng 1

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  

×