粗糙度标注程序(很久以前在CAD自动化上发表过）

a7web

拿了220的稿费
  
;;程序名 :CCD.LSP  
;;;粗糙度标注程序 for AutoCAD R13  
;;;编制者:司马奇  
;;;编制日期:1998-5-29  
;;;最后修改日期:1999-4-21  
;;;附带文件:  
  
(defun c:ccd(/ la aper os size heig ang string pbox sca)  
   (princ "\n粗糙度标注程序")  
  
; (setq temperr *error*)  
  ; (setq *error* trap)  
; (command "undo" "be")  
  
; (setq la (getvar "clayer"))  
   (setq aper (getvar "aperture"))  
   (setq os (getvar "osmode"))  
   (setq size (getvar "dimtxt"))  
   (setq pbox (getvar "apbox"))  
   (setq sca (getvar "dimscale"))  
   (setq size (* size sca))  
   (setq heig (* size 1.4))  
   (setvar "osmode" 256)  
   (setvar "aperture" 7)  
   (setvar "apbox" 1)  
   (setq pt1 (getpoint "\n插入点")  
            pt2 (osnap pt1 "near"))  
   (setvar "apbox" pbox)  
   (setvar "osmode" os)  
   (setvar "aperture" aper)  
   (if (= pt2 nil)  
       (setq ang (dtr 90) pt2 pt1)  
       (setq ang (angle pt2 pt1))  
     )  
   (if (or (null ra)(= ra ""))  
       (setq ra "6.3"))  
   (princ "\n请输入粗糙度值 <")  
   (princ ra)  
   (princ ">")  
   (setq string (getstring))  
   (if (or (null string)(= string ""))  
     (setq string ra)(setq ra string))  
; (setvar "clayer" "YHTEXT")  
   (setvar "osmode" 0)  
   (command "Pline" (polar pt2 (- ang (dtr 30)) (* heig 2))  
                    pt2      
     (polar pt2 (+ ang (dtr 30)) heig)  
     (Polar pt2 (- ang (dtr 30)) heig) "")  
  
   (if (and (< ang (dtr 210)) (> ang (dtr 30)))  
     (progn  
       (setq pt1 (polar pt2 ang (* size 1.6)))  
       (command "text" "j" "f"  
           (polar pt1 (+ ang (dtr 90)) (* size 0.9))  
           (polar pt1 (- ang (dtr 90)) (* size 0.9))  
           size  
           string)  
        )  
      (progn  
       (setq pt1 (polar pt2 ang (* size 2.4)))  
       (command "text" "j" "f"  
           (polar pt1 (- ang (dtr 90)) (* size 0.9))  
           (polar pt1 (+ ang (dtr 90)) (* size 0.9))  
           size  
           string)  
     )  
    )  
  (setvar "osmode" os)  
; (setvar "clayer" la)  
  ;(command "undo" "e")  
  (princ)  
)

刻录机

a7web

刻录机