[编程申请]：自动改变尺寸数字为EQ

mhy007

各位高手，我是菜鸟，经常遇到一个问题，就是当标注一个物体等分后带有小数点（如100等分成3份），想把它写为EQ，但每次都要手工修改，很麻烦。能否编一个程序，能自动搜索图上所有带小数点的尺寸数字，凡是有两个及两个以上相同的数字，则自动把其改为“EQ”字样。在下先谢过各位了。

zxq0220

程序
[php]
(DEFUN C:MADEEQ ()
(SETVAR "CMDECHO" 0)
(IF (SETQ ENS (ENTSEL "\nSelect a Dimension : ")) (PROGN
  (SETQ ENT (ENTGET (CAR ENS)))
  (IF (SETQ SS (SSGET "X" (LIST (ASSOC 0 ENT)))) (PROGN
   (SETQ P1 (CDR (ASSOC 10 ENT)) P2 (CDR (ASSOC 11 ENT))
         A1 (CDR (ASSOC 50 ENT))
         DD (IF (> A1 0)
            (ABS (- (CADR P1) (CADR P2))) (ABS (- (CAR P1) (CAR P2)))))
   (SETQ SS (SSDEL (CAR ENS) SS) I -1)
   (REPEAT (SSLENGTH SS)
    (SETQ ENT1 (ENTGET (SSNAME SS (SETQ I (1+ I)))))
    (SETQ P1 (CDR (ASSOC 10 ENT1)) P2 (CDR (ASSOC 11 ENT1))
          A2 (CDR (ASSOC 50 ENT1))
          DD1 (IF (> A2 0)
             (ABS (- (CADR P1) (CADR P2))) (ABS (- (CAR P1) (CAR P2)))))
    (IF (AND (EQUAL A1 A2 1E-6) (EQUAL DD DD1 1E-6))
     (ENTMOD (SUBST (CONS 1 "EQ") (ASSOC 1 ENT1) ENT1))
    )
   )
  ))
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

mhy007

哇，高手！不过好像有点小问题，其它尺寸数字都变成EQ了，点击的那个却不会变。自己想修改一下又无从下手，真不好意思！还有，要是点一下命令，程序就能自动搜索，自动修改，对我等懒人就更方便了，不知这样会不会很难？恳求大侠出手。

zxq0220

要程序自动搜索也可以，但图中其它的尺寸要是包含小数就会全变成EQ了。
下面的程序是改过的，连选中的一块变成EQ。
[php]
(DEFUN C:MADEEQ ()
(SETVAR "CMDECHO" 0)
(IF (SETQ ENS (ENTSEL "\nSelect a Dimension : ")) (PROGN
  (SETQ ENT (ENTGET (CAR ENS)))
  (IF (SETQ SS (SSGET "X" (LIST (ASSOC 0 ENT)))) (PROGN
   (SETQ P1 (CDR (ASSOC 10 ENT)) P2 (CDR (ASSOC 11 ENT))
         A1 (CDR (ASSOC 50 ENT))
         DD (IF (> A1 0)
            (ABS (- (CADR P1) (CADR P2))) (ABS (- (CAR P1) (CAR P2)))))
   (SETQ I -1)
   (REPEAT (SSLENGTH SS)
    (SETQ ENT1 (ENTGET (SSNAME SS (SETQ I (1+ I)))))
    (SETQ P1 (CDR (ASSOC 10 ENT1)) P2 (CDR (ASSOC 11 ENT1))
          A2 (CDR (ASSOC 50 ENT1))
          DD1 (IF (> A2 0)
             (ABS (- (CADR P1) (CADR P2))) (ABS (- (CAR P1) (CAR P2)))))
    (IF (AND (EQUAL A1 A2 1E-6) (EQUAL DD DD1 1E-6))
     (ENTMOD (SUBST (CONS 1 "EQ") (ASSOC 1 ENT1) ENT1))
    )
   )
  ))
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

APPLE-413

你们这是英文版吧

mhy007

谢谢zxq0220 ，问题解决了，虽然不能自动搜索，但人也不能太懒了，多点击一下也没什么，呵呵！坛子里高手如云，好心人也多，感慨中…