本帖最后由 作者 于 2007-12-1 23:25:06 编辑
程序老不能正常运行!! - (defun c:dm ()
- (initget 128)
- (setq pt1 (getpoint "\nSpecify first extension line origin or Input the distance of dimension line location:"))
- (setq typ (type pt1))
- (if (= typ str)
- (progn
- (setq dimjl (atof pt1))
- (setq pt1 (getpoint "\nSpecify first extension line origin:"))
- )
- )
- (initget 9)
- (setq pt2 (getpoint pt1 "\nSpecify second extension line origin 尺寸界限第二点 :"))
- (setq pt0 (getpoint pt2 "\nspecify dimension line location:"))
- (setq ang (angle pt1 pt2))(setq ang2 (angle pt2 pt0))
- (if (and(> ang2 ang)(< ang2 (+ ang pi)))
- (setq ang0 (+ ang (* 0.5 pi)))
- (setq ang0 (- ang (* 0.5 pi)))
- )
- (setq pt(polar pt2 ang0 dimjl))
- (if (or (equal (car pt1) (car pt2) 0.01) (equal (cadr pt1) (cadr pt2) 0.01))
- (command "_dimlinear" pt1 pt2 pt)
- (command "_dimaligned" pt1 pt2 pt)
- )
- (command "_dimcontinue")
- (while (setq pt3 (getpoint "\nspecify a second extension line origin 第二点 :"))
- (setq pt4 (polar pt3 (+ (/ pi 2) ang) 20) pt3 (inters pt1 pt2 pt3 pt4 nil))
- (command pt3)
- )
- (command "" "")
- ; (print (strcat "ang=" (rtos ang)))
- ; (print (strcat "ang2=" (rtos ang2)))
- ; (print (strcat "ang0=" (rtos ang0)))
- (princ)
- )
| 
发表于 2007-11-30 13:42
置顶卡
变色卡
显身卡
楼主
发表于 2007-12-2 08:05