[求助]求大侠帮忙编个倒角标注

acad-cad

求大侠帮忙编个倒角标注

ZZXXQQ

程序：

2. (DEFUN C:DIMCHAMFER ()
3. (SETVAR "CMDECHO" 0)
4. (SETQ OLDOS (GETVAR "OSMODE"))
5. (SETQ OLDZIN (GETVAR "DIMZIN"))
6. (SETQ ORTHO (GETVAR "ORTHOMODE"))
7. (SETQ OLDTAD (GETVAR "DIMTAD"))
8. (SETVAR "DIMZIN" 8)
9. (SETVAR "OSMODE" 0)
10. (SETVAR "DIMTAD" 1)
11. (SETQ DL (ENTGET (CAR (ENTSEL "\nPlease Select a Line 请选择一条直线 :"))))
12. (WHILE (/= (CDR (ASSOC 0 DL)) "LINE")
13.   (PRINC "\nError!")
14.   (SETQ DL (ENTGET (CAR (ENTSEL "\nPlease Select a Line 请选择一条直线 :"))))
15. )
16. (SETQ P1 (CDR (ASSOC 10 DL))
17.        P2 (CDR (ASSOC 11 DL))
18.        X (ABS (- (CAR P1) (CAR P2)))
19.        Y (ABS (- (CADR P1) (CADR P2))))
20. (IF (EQUAL X Y 1E-4)
21.   (SETQ TT (STRCAT (RTOS X 2 3) "x45%%d"))
22. (PROGN
23.   (SETQ CT (/ (DISTANCE P1 P2) (SQRT 2.0)))
24.   (PRINC "\nDistance of Chamfer 倒角尺寸<") (PRINC (RTOS CT 2 3))
25.   (SETQ TT (GETSTRING "> :")
26.         TT (STRCAT (IF (= TT "") (RTOS CT 2 3) TT) "x45%%d"))
27. ))
28. (IF (/= TT "") (PROGN
29.   (SETQ OLDASZ (GETVAR "DIMASZ")
30.         P4 (POLAR P1 (ANGLE P1 P2) (* (DISTANCE P1 P2) 0.5)))
31.   (SETVAR "DIMASZ" 0)
32.   (SETVAR "SNAPANG" (ANGLE P1 P2))
33.   (SETVAR "ORTHOMODE" 1)
34.   (IF (SETQ P3 (GETPOINT P4 "\nText Point 文字点? ")) (PROGN
35.    (SETQ P4 (IF (> (DISTANCE P3 P1) (DISTANCE P3 P2)) P2 P1)
36.          P5 (POLAR P3 (/ PI 2) (* (GETVAR "DIMGAP") 1)))
37.    (COMMAND "LEADER" P4 P5 "" TT "")
38.   ))
39.   (SETVAR "SNAPANG" 0)
40.   (SETVAR "ORTHOMODE" ORTHO)
41.   (SETVAR "DIMASZ" OLDASZ)
42. ))
43. (SETVAR "DIMZIN" OLDZIN)
44. (SETVAR "OSMODE" OLDOS)
45. (SETVAR "CMDECHO" 1)
46. (PRINC)
47. )

复制代码

acad-cad

谢谢ZZXXQQ大侠

能不能改成任意角度的标注