能否进行如此的倒角标注?

ZZXXQQ

2. ;另类倒角标注
3. (DEFUN C:DCORNER ()
4. (SETVAR "CMDECHO" 0)
5. (SETQ OLDOS (GETVAR "OSMODE"))
6. (SETQ DL (ENTGET (CAR (ENTSEL "\nPlease Select a Line 请选择一条直线 :"))))
7. (WHILE (/= (CDR (ASSOC 0 DL)) "LINE")
8.   (PRINC "\nError!")
9.   (SETQ DL (ENTGET (CAR (ENTSEL "\nPlease Select a Line 请选择一条直线 :"))))
10. )
11. (SETQ P1 (CDR (ASSOC 10 DL))
12.        P2 (CDR (ASSOC 11 DL))
13.        X (ABS (- (CAR P1) (CAR P2)))
14.        Y (ABS (- (CADR P1) (CADR P2))))
15. (SETVAR "OSMODE" 0)
16. (IF (EQUAL X Y 1E-4) (PROGN
17.   (SETVAR "SNAPANG" (ANGLE P1 P2))
18.   (SETVAR "ORTHOMODE" 1)
19.   (SETQ PT1 (POLAR P1 (ANGLE P1 P2) (/ (DISTANCE P1 P2) 2))
20. PT2 (GETPOINT PT1 "\n标注方向 :")
21.         PT2 (POLAR PT1 (ANGLE PT1 PT2) (/ X (SQRT 2.0))))
22.   (SETVAR "CMDECHO" 1)
23.   (COMMAND "DIMALIGNED" PT1 PT2 PAUSE)
24.   (SETVAR "SNAPANG" 0)
25. ))
26. (SETVAR "OSMODE" OLDOS)
27. (SETVAR "CMDECHO" 1)
28. (PRINC)
29. )

复制代码

Tlove2012

有没有更优化好些的呀！！！