laoqian123 发表于 2011-3-18 11:21:23

管断面线

;;;管断面线
(defunc:gdm ( )
(while
(setvar "osmode" 643)
(setq p0 (getpoint "\n 第一边断开点:")
   p01 (getpoint p0 "\n 另一边断开点:")
      a0 (angle p0 p01)
       r (/ (distance p0 p01) 2)
   p02 (polar p0 a0 r))
(setq p1 (polar (polar p0 a0 (/ r 2)) (- a0 (/ pi 2)) (* r 0.2)))
(setq p2 (polar (polar p0 a0 (* r 1.5)) (- a0 (/ pi 2)) (* r 0.2)))
(setq p3 (polar (polar p0 a0 (/ r 2)) (+ a0 (/ pi 2)) (* r 0.2)))
(setvar "osmode" 0)
(command "arc" p0 p1 p02)
(command "arc" p0 p3 p02)
(command "arc" p02 p2 p01)
)
(princ)
)

技术工作室 发表于 2022-9-28 18:08:24

支持一下、顶一个

寒潮大冬瓜 发表于 2024-8-7 20:43:29

技术工作室 发表于 2022-9-28 18:08
支持一下、顶一个

很好→很棒！很好~很棒！！很好……很棒！！！

konoko 发表于 2024-8-23 15:10:38

感谢分享！很实用

xyp1964 发表于 2024-8-23 21:19:13


qazxswk 发表于 2024-8-24 01:46:44

支持发源代码的。
页: [1]
查看完整版本: 管断面线