如何获得某个标注对象的全局比例?

clh521

我用这个(entget(car(entsel)))无法查到,烦请懂的帮忙下

USER2128

(cdr (assoc 40 (tblsearch (cdr (assoc 3 (entget(car(entsel))))))))

zml84

1. ;;;指定标注对象，获取全局比例
   
2. (and (setq en (car (entsel)))
   
3.      (or (setq tmp
   
4.                 (cdr
   
5.                   (assoc 1040
   
6.                          (cdadr (assoc -3 (entget en '("ACAD"))))
   
7.                   )
   
8.                 )
   
9.          )
   
10.          (setq tmp
    
11.                 (cdr
    
12.                   (assoc 40
    
13.                          (tblsearch "DIMstyle" (cdr (assoc 3 (entget en))))
    
14.                   )
    
15.                 )
    
16.          )
    
17.      )
    
18.      (print tmp)
    
19. )
    

;;;指定标注对象，获取全局比例<br /> (and (setq en (car (entsel)))<br />      (or (setq tmp<br />                 (cdr<br />                   (assoc 1040<br />                          (cdadr (assoc -3 (entget en '("ACAD"))))<br />                   )<br />                 )<br />          )<br />          (setq tmp<br />                 (cdr<br />                   (assoc 40<br />                          (tblsearch "DIMstyle" (cdr (assoc 3 (entget en))))<br />                   )<br />                 )<br />          )<br />      )<br />      (print tmp)<br /> )<br />

clh521

USER2128 发表于 2013-3-27 08:12
(cdr (assoc 40 (tblsearch (cdr (assoc 3 (entget(car(entsel))))))))

谢谢，你这一句很简洁，但运行时错误，出现：
错误: 参数太少

clh521

zml84 发表于 2013-3-27 08:42

非常感谢：你的程序运行正确，帮了我大忙

但是对于引线标注就不正确了

zml84

1. ;;;指定标注对象，获取全局比例
   
2. ;;;可支持 引线标注
   
3. (and (setq en (car (entsel "\n请点取标注对象: ")))
   
4.      (or (and (setq tmp (cdadr (assoc -3 (entget en '("ACAD")))))
   
5.               (setq tmp (member '(1070 . 40) tmp))
   
6.               (setq tmp (cdr (assoc 1040 tmp)))
   
7.          )
   
8.          (and
   
9.            (setq tmp (tblsearch "DIMstyle" (cdr (assoc 3 (entget en)))))
   
10.            (setq tmp (cdr (assoc 40 tmp)))
    
11.          )
    
12.      )
    
13.      (print tmp)
    
14. )

;;;指定标注对象，获取全局比例<br /> ;;;可支持 引线标注<br /> (and (setq en (car (entsel "\n请点取标注对象: ")))<br />      (or (and (setq tmp (cdadr (assoc -3 (entget en '("ACAD")))))<br />               (setq tmp (member '(1070 . 40) tmp))<br />               (setq tmp (cdr (assoc 1040 tmp)))<br />          )<br />          (and<br />            (setq tmp (tblsearch "DIMstyle" (cdr (assoc 3 (entget en)))))<br />            (setq tmp (cdr (assoc 40 tmp)))<br />          )<br />      )<br />      (print tmp)<br /> )

clh521

zml84 发表于 2013-3-27 13:12

非常感谢,这次真的很完美了

jyzas

怎样通过组码修改全局比例