[LISP程序]：画圆管折断线

kmdz

; 画圆管折断线函数
(defun c:yzd()
(default_date)
(get_dat)
(change_date)
(draw_zdx)
(resume_date)
(princ)
)
;***********************************************************************************************
(defun get_dat ()
(setq
      p0 (getpoint "\n 第一边点位置:")
      p01 (getpoint p0 "\n 第二边点位置:")
      a0 (angle p0 p01)
                 r  (/ (distance p0 p01) 2)
                 p02 (polar p0 a0 r)
)
)
;***********************************************************************************************
(defun draw_zdx ()
(setq
      p1 (polar (polar p0 a0 (/ r 2)) (- a0 (/ pi 2)) (* r 0.225))
      p2 (polar (polar p0 a0 (/ (* r 3) 2)) (- a0 (/ pi 2)) (* r 0.225))
                 p3 (polar p1 (+ (/ pi 2) a0) (* 0.45 r))
)
                (command "arc" p0 p1 p02)
                (command "arc" p0 p3 p02)
                (command "arc" p02 p2 p01)
)
;***********************************************************************************************
(defun default_date()
         (setq dim_s (getvar "dimscale")      
          dim_a (getvar "dimasz")      
          os_mode (getvar "osmode")      
          plw (getvar "plinewid")      
                                blip (getvar "blipmode")      
          orth (getvar "orthomode"))      
        )
;***********************************************************************************************
(defun change_date()
    (setvar "dimscale" 100)
    (setvar "dimasz" (* 2.5 100))
    (setvar "osmode" 0)
    (setvar "plinewid" 0)
    (setvar "blipmode" 0)
         (setvar "orthomode" 0)
                )
;***********************************************************************************************
(defun resume_date()
    (setvar "dimasz" dim_a)
    (setvar "osmode" os_mode)
    (setvar "plinewid" plw)
    (setvar "blipmode" blip)
         (setvar "orthomode" orth)
                )