wytxl2002 发表于 2006-2-14 16:08:00

ZZXXQQ 发表于 2006-2-28 21:18:00


;另类倒角标注
(DEFUN C:DCORNER ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(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))))
(SETVAR "OSMODE" 0)
(IF (EQUAL X Y 1E-4) (PROGN
(SETVAR "SNAPANG" (ANGLE P1 P2))
(SETVAR "ORTHOMODE" 1)
(SETQ PT1 (POLAR P1 (ANGLE P1 P2) (/ (DISTANCE P1 P2) 2))
PT2 (GETPOINT PT1 "\n标注方向 :")
      PT2 (POLAR PT1 (ANGLE PT1 PT2) (/ X (SQRT 2.0))))
(SETVAR "CMDECHO" 1)
(COMMAND "DIMALIGNED" PT1 PT2 PAUSE)
(SETVAR "SNAPANG" 0)
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)

Tlove2012 发表于 2012-5-2 14:40:32

有没有更优化好些的呀!!!
页: [1]
查看完整版本: 能否进行如此的倒角标注?