iCAx开思网

标题: 粗糙度标注程序(很久以前在CAD自动化上发表过） [打印本页]

作者: a7web 时间: 2003-8-22 16:05
标题: 粗糙度标注程序(很久以前在CAD自动化上发表过）
拿了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)
)

作者: 刻录机 时间: 2003-8-22 16:30
你怎么一下大概起来了？
这可是你的呕血之作哦？！

作者: a7web 时间: 2003-8-22 16:39
难道我没给你么，这么说风凉话

作者: 刻录机 时间: 2003-8-23 06:47

a7web wrote:
难道我没给你么，这么说风凉话

误会，我那是说风凉话啊！！！
还有什么好家伙先给我瞧瞧！！

欢迎光临 iCAx开思网 (https://www.icax.org/)