Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
2 replies to this topic

#1 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 10 June 2011 - 04:49 PM

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.c...files/3/ton.dwg
  • 1
Hình đã gửi

#2 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 10 June 2011 - 08:43 PM

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.c...files/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)
)

  • 3
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#3 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 13 June 2011 - 01:38 PM

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é
  • 1
Hình đã gửi