[求助]倾斜标注

jaminth

就是把线性标注和连续标注结合起来,然后尺寸界限的长度是一样的(高版本的cad连续标注好象有这功能)

图上红色字就是鼠标依次点过的地方
[url=http://www.mjtd.com/bbs/showimg.asp?BoardID=3&fileid=19066][/url]
小弟自己改了一下,可对于倾斜标注老是不行的！请高手帮忙也改进一下！

2. (DEFUN C:DM ()
3. ;(setvar "orthomode" 1)
4. (if (= userr1 "") (setvar "userr1" 900.00))
5. (setq dimjl (getvar "userr1"))
6. (INITGET 9)
7. (SETQ PT1 (GETPOINT "\nFirst extension line origin 尺寸界限第一点 :"))
8. (INITGET 9)
9. (SETQ PT2 (GETPOINT PT1 "\nSecond extension line origin 尺寸界限第二点 :"))
10. (setq ang1 (angle pt1 pt2))
11. (setq pt (polar pt2 (+ ang1 (* 1.5 pi)) dimjl))
12.      (if (or (equal (car pt1) (car pt2) 0.01) (equal (cadr pt1) (cadr pt2) 0.01))
13.        (command "_dimlinear" pt1 pt2 pt)
14.        (command "_dimaligned" pt1 pt2 pt)
15.      )
16. (SETQ ANG (CDR (ASSOC 50 (ENTGET (ENTLAST)))))
17. (COMMAND "_DIMCONTINUE")
18. (WHILE (SETQ PT3 (GETPOINT "\nSpecify a second extension line origin 第二点 :"))
19.   (IF (EQUAL ANG 0.0 1E-3)
20.    (SETQ PT3 (LIST (CAR PT3) (CADR PT2) 0.0))
21.    (SETQ PT3 (LIST (CAR PT2) (CADR PT3) 0.0))
22.   )
23.   (COMMAND PT3)
24. )
25. (COMMAND "" "")
26. (PRINC)
27. )

(DEFUN C:DM () ;(setvar "orthomode" 1) (if (= userr1 "") (setvar "userr1" 900.00)) (setq dimjl (getvar "userr1")) (INITGET 9) (SETQ PT1 (GETPOINT "\nFirst extension line origin 尺寸界限第一点 :")) (INITGET 9) (SETQ PT2 (GETPOINT PT1 "\nSecond extension line origin 尺寸界限第二点 :")) (setq ang1 (angle pt1 pt2)) (setq pt (polar pt2 (+ ang1 (* 1.5 pi)) 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)      ) (SETQ ANG (CDR (ASSOC 50 (ENTGET (ENTLAST))))) (COMMAND "_DIMCONTINUE") (WHILE (SETQ PT3 (GETPOINT "\nSpecify a second extension line origin 第二点 :"))   (IF (EQUAL ANG 0.0 1E-3)    (SETQ PT3 (LIST (CAR PT3) (CADR PT2) 0.0))    (SETQ PT3 (LIST (CAR PT2) (CADR PT3) 0.0))   )   (COMMAND PT3) ) (COMMAND "" "") (PRINC) )

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

jaminth

谢谢,待试用一下!

337099425

下载看看是不是能用，谢谢楼主分享