AutoLISP板圆三视图

AutoLISP板圆三视图，代码如下。

(defun c:test()
  (setvar "cmdecho" 0)
  (setq baspt '(148 105))
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (command "vslide" "LSP_30")
  (setq dd1 (/ (getpoint "\nDD1:") 2))
  (setq dd2 (/ (getpoint "\nDD2:") 2))
  (setq dd3 (/ (getpoint "\nDD3:") 2))
  (setq hh (getdist "\nHH1:"))
  (setq h2 (- hh (getdist "\nHH2:")))
  (redraw)
  (layset)
  (setq cen (polar baspt p1 (* dd1 1.4)))
  (setvar "clayer" "str")
  (command "circle" cen dd1)
  (command "circle" cen dd2)
  (command "circel" cen dd3)
  (command "circle" cen (- dd1 1))
  (setq pp1 (polar cen pi (+ dd1 3)))
  (setq pp2 (polar cen 0 (+ dd1 3)))
  (setq pp3 (polar cen (/ pi 2) (+ dd1 3)))
  (setq pp4 (polar cen (* pi 1.5) (* dd1 3)))
  (setvar "clayer" "cen")
  (command "line" pp1 pp2 "")
  (command "line" pp3 pp4 "")
  (setq pt (polar baspt 0 h2))
  (setq pt1 (polar pt (* pi 1.5) dd2))
  (setq pt2 (polar pt1 0 h2))
  (setq pt3 (polar pt2 (* pi 1.5) (- dd1 dd2 1)))
  (setq pt4 (polar (polar pt3 (* pi 1.5) 1) 0 1))
  (setq pt5 (polar pt4 0 (- hh h2 1)))
  (setq pt6 (polar pt5 (/ pi 2) (* dd1 2)))
  (setq pt7 (polar pt4 (/ pi 2) (* dd1 2)))
  (setq pt8 (polar pt3 (/ pi 2) (- (* dd1 2) 2)))
  (setq pt9 (polar pt2 (/ pi 2) (* dd2 2)))
  (setq pt10 (polar pt2 (/ pi 2) (* dd2 2)))
  (setvar "clayer" "str")
  (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 "c")
  (setq pa1 (polar pt pi 3))
  (setq pa2 (polar pt 0 (+ hh 2)))
  (setvar "clayer" "cen")
  (command "line" pa1 pa2 "")
  (setq b1 (polar pt (/ pi 2) dd3))
  (setq b2 (polar b1 0 hh))
  (setq b3 (polar pt (* pi 1.5) dd3))
  (setq b4 (polar b3 0 hh))
  (setvar "clayer" "str")
  (command "line" b1 b2 "")
  (command "line" b3 b4 "")
  (draw_hat)
  (draw_dim)
  (setvar "cmdecho" so)
  (princ "\n------>>LSP_30<<------")
  (prin1)
  )
(defun draw_hat()
  (setq mid1 (polar pt2 (angle pt2 pt5) (/ (distance pt2 pt5) 2)))
  (setq mid2 (polar pt9 (angle pt9 pt6) (/ (distance pt9 pt6) 2)))
  (setvar "hpname" "u")
  (setvar "hpang" (/ pi 4))
  (setvar "hpspace" 3)
  (setvar "clayer" "hat")
  (command "bhatch" mid1 mid2 "")
  )
(defun draw_dim()
  (setvar "clayer" "dim")
  (command "dimlinear" pt8 pt6 (polar pt6 (/ pi 2) 8))
  (command "dimlinear" pt10 pt6 (polar pt6 (/ pi 2) 16))
  (command "dimlinear" b1 b3 "t" "%%c<>" (polar b1 pi 8))
  (command "dimlinear" pt1 pt10 "t" "%%c<>" (polar b1 pi 16))
  (command "dinlinear" pt5 pt6 "t" "%%c<>" (polar pt5 0 8))
  )
(defun layset()
  (command "layer" "n" "str,cen,hid,hat,txt,dim" "c" 1 "str" "c" 2 "cen" "c" 4 "hid" "c" 5 "hat" "c" 6 "txt" "c" 3 "dim" "")
  (setq key (tblsearch "ltype" "center"))
  (if (= key nil) (command "linetype" "1" "center" "acadiso" ""))
  (setq key (tblsearch "ltype" "hidden"))
  (if (= key nil) (command "linetype" "1" "hidden" "adadiso" ""))
  (command "layer" "it" "center" "cen" "it" "hidden" "hid" "")
  )

代码完。

这个有点多，错误不好找。