[求助]求大侠帮忙编个倒角标注
<P>求大侠帮忙编个倒角标注</P> 程序：(DEFUN C:DIMCHAMFER ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETQ OLDZIN (GETVAR "DIMZIN"))
(SETQ ORTHO (GETVAR "ORTHOMODE"))
(SETQ OLDTAD (GETVAR "DIMTAD"))
(SETVAR "DIMZIN" 8)
(SETVAR "OSMODE" 0)
(SETVAR "DIMTAD" 1)
(SETQ DL (ENTGET (CAR (ENTSEL "\nPlease Select a Line 请选择一条直线 :"))))
(WHILE (/= (CDR (ASSOC 0 DL)) "LINE")
(PRINC "\nError!")
(SETQ DL (ENTGET (CAR (ENTSEL "\nPlease Select a Line 请选择一条直线 :"))))
)
(SETQ P1 (CDR (ASSOC 10 DL))
P2 (CDR (ASSOC 11 DL))
X (ABS (- (CAR P1) (CAR P2)))
Y (ABS (- (CADR P1) (CADR P2))))
(IF (EQUAL X Y 1E-4)
(SETQ TT (STRCAT (RTOS X 2 3) "x45%%d"))
(PROGN
(SETQ CT (/ (DISTANCE P1 P2) (SQRT 2.0)))
(PRINC "\nDistance of Chamfer 倒角尺寸<") (PRINC (RTOS CT 2 3))
(SETQ TT (GETSTRING "> :")
TT (STRCAT (IF (= TT "") (RTOS CT 2 3) TT) "x45%%d"))
))
(IF (/= TT "") (PROGN
(SETQ OLDASZ (GETVAR "DIMASZ")
P4 (POLAR P1 (ANGLE P1 P2) (* (DISTANCE P1 P2) 0.5)))
(SETVAR "DIMASZ" 0)
(SETVAR "SNAPANG" (ANGLE P1 P2))
(SETVAR "ORTHOMODE" 1)
(IF (SETQ P3 (GETPOINT P4 "\nText Point 文字点? ")) (PROGN
(SETQ P4 (IF (> (DISTANCE P3 P1) (DISTANCE P3 P2)) P2 P1)
P5 (POLAR P3 (/ PI 2) (* (GETVAR "DIMGAP") 1)))
(COMMAND "LEADER" P4 P5 "" TT "")
))
(SETVAR "SNAPANG" 0)
(SETVAR "ORTHOMODE" ORTHO)
(SETVAR "DIMASZ" OLDASZ)
))
(SETVAR "DIMZIN" OLDZIN)
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
<P>谢谢ZZXXQQ大侠</P>
<P>能不能改成任意角度的标注</P>
<P> </P>
页:
[1]