[求助]：有没有办法判断多个分尺寸之和是否等于总尺寸？

ywx0576

有一幅没有按比例画的图，分尺寸中有一些人为改过。
有没有办法判断多个分尺寸之和是否等于总尺寸？

snsj

要只是判断就简单了，改过的时候显示，没改过的时候什么都不显示

2. 
   
3. ;;;标注求和
   
4. (defun c:pdxg (/ ss kk i )
   
5. (setq ss (ssget '((0 . "DIMENSION"))) i 0)
   
6. (repeat (sslength ss)  
   
7.   (if (/= (cdr(assoc 1(entget(ssname ss i)))) "")
   
8.   (setq kk t)
   
9.   )(setq i (1+ i))
   
10.         )
    
11. (if (= kk t)(princ "\n*****被人改过*****"))(princ)
    
12.   )
    
13. 
    

<br /> ;;;标注求和<br /> (defun c:pdxg (/ ss kk i )<br /> (setq ss (ssget '((0 . "DIMENSION"))) i 0)<br /> (repeat (sslength ss)  <br />   (if (/= (cdr(assoc 1(entget(ssname ss i)))) "")<br />   (setq kk t)<br />   )(setq i (1+ i))<br />         )<br /> (if (= kk t)(princ "\n*****被人改过*****"))(princ)<br />   )<br /> <br />

7812310576

哈哈，最笨的办法就是老老实实一个一个加起来，对比一下结果就行了。

aeo

最初由 snsj 发布
[B]要只是判断就简单了，改过的时候显示，没改过的时候什么都不显示
[code]
;;;标注求和
(defun c:pdxg (/ ss kk i )
(setq ss (ssget '((0 . "DIMENSION"))) i 0)
(repeat (sslength ss)  
  (if (/= (cdr(assoc... [/B]

(if (/= (cdr(assoc 1(entget(ssname ss i)))) "")

-->
(setq text  (cdr(assoc 1(entget(ssname ss i)))) )
(if (or(/=  text"")(wcmatch text "*<>*")) ...