关于标注

/db_自贡黄明儒_

如图所示，图1为“置为当前”，图2“替代”。两种标注各有优点（这个大家都知道的）
现在的问题是：怎么判断哪些是“置为当前”产生的标注，哪些是“替代”产生的标注？
换一说法：两种标注相互转换？

/db_自贡黄明儒_

;;后半部分的实现

1. ;;后半部分的实现
   
2. (defun C:ToOverride (/ E N OBJ SCALEFACTOR SS)
   
3.   (setq ss (ssget "X" '((0 . "*DIMENSION"))))
   
4.   (if ss
   
5.     (repeat (setq n (sslength ss))
   
6.       (setq e (ssname ss (setq n (1- n))))
   
7.       (setq obj (vlax-ename->vla-object e))
   
8.       (setq ScaleFactor (vlax-get obj 'ScaleFactor))
   
9.       (vlax-put obj 'ScaleFactor (1+ ScaleFactor))
   
10.       (vlax-put obj 'ScaleFactor ScaleFactor);恢复
    
11.     )
    
12.   )
    
13.   (princ"\n全是替代产生的标注")
    
14.   (princ)
    
15. )

;;后半部分的实现<br /> (defun C:ToOverride (/ E N OBJ SCALEFACTOR SS)<br />   (setq ss (ssget "X" '((0 . "*DIMENSION"))))<br />   (if ss<br />     (repeat (setq n (sslength ss))<br />       (setq e (ssname ss (setq n (1- n))))<br />       (setq obj (vlax-ename->vla-object e))<br />       (setq ScaleFactor (vlax-get obj 'ScaleFactor))<br />       (vlax-put obj 'ScaleFactor (1+ ScaleFactor))<br />       (vlax-put obj 'ScaleFactor ScaleFactor);恢复<br />     )<br />   )<br />   (princ"\n全是替代产生的标注")<br />   (princ)<br /> )

newer

/db_自贡黄明儒_ 发表于 2016-8-17 14:15
;;后半部分的实现

查看下扩展实体数据，替代的都在里面呢。

csharp

标注是一个复杂对象，变量最多，即可影响当前标注，也可修改已有标注实体，对已有标注实体提供了put属性，对即将标注设置系统变量就ok