图纸.lsp

用cad进行二次开发

(defun txhj ()
   (command "layer" "n"  1   ""
             "style" "HZ" "仿宋_GB2312" 0 0.7 0 "" ""   
   )
       
)
  ;图层设置函数

(defun xt (l w p1 lw / p3)
  (setq p3 (list (+ (car p1) l) (+ (cadr p1) w)))
  (command "pline"
	   p1	   "w"	   lw	   ""
	   (polar p1 0 l)	   p3
	   (polar p1 (/ pi 2.0) w)	   p1
	   ""
  )
)
 ;矩形绘制函数

(defun  tz (n0)
	(setq  tkl  '(1189  841  594  421  297  210  148))
	(setq  tkc  (nth  n0  tkl)  ;tkc 外图框长度
		 tkk  (nth  (1+  n0)  tkl)  ;tkk外图框宽度
        )
(if  (<= n0  3)  (setq ctk  10)  (setq  ctk  5))



  (txhj)
  (command "layer" "s" 1 ""
	   "limits" '(0 0) (list tkc tkk)
	    "zoom" "a")
  (xt tkc tkk '(0 0) 0.1)
  (setq pp (list 25 ctk))
  (xt (- tkc ctk 25) (- tkk (* 2 ctk)) pp 0.5)

  
  (setq pt1 (list (- tkc ctk) ctk))
  (setq pt2 (polar pt1 (/ pi 2) 32))
  (setq pt3 (polar pt2 pi 140))
  (setq pt4 (polar pt1 pi 140))
  (setq pt5 (polar pt4 (/ pi 2) 16))
  (setq pt6  (polar pt4 0 70))
 
  (xt 140 32 pt4 0.5)
  (command "line"  pt5 (polar pt1 (/ pi 2) 16) ""
	   "line"  (polar pt3 0 70) pt6 ""
	   "line" (polar pt4 (/ pi 2) 8) (polar pt6 (/ pi 2) 8) ""
	   "line" (polar pt5 0 15) (polar pt4 0 15) ""
	   "line" (polar pt5 0 45) (polar pt4 0 45) ""
	   "line" (polar pt3 0 105) (polar pt5 0 105) ""
	   "line" (polar pt3 0 85) (polar pt5 0 85) ""
	   "line" (setq pt7 (polar pt6 (/ pi 2) 24)) (polar pt7 0 35) ""
	  )
  (command "text" (polar pt5 (/ pi 20) 25) 8 0 "(图名)"
           "text" (polar pt6 (/ pi 20) 25) 8 0 "(校名)"
           "text" (polar pt4 (* pi 0.4) 10) 5 0 "制图"
	   "text" (polar pt4 (* pi 0.15) 3) 5 0 "审核"
	   "text" (polar pt7 (* pi 0.15) 3) 5 0 "比例"
	   "text" (polar pt7 (* pi 1.6) 7) 5 0 "材料"
	   "text" (polar pt2 (* pi 1.1) 30) 6 0 "(图号)"
 	)
  ;以下为绘制零件图
  (setq p11 (getpoint "\n请输入图形插入起点！"))
  (command "circle" p11 30)
)