管断面线

laoqian123

;;;管断面线
(defun  c: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)
)

技术工作室

支持一下、顶一个