关于对象反应器，如何写才好？

风树

newer 发表于 2013-12-23 19:18
拷贝和粘贴不用考虑啊，因为要属性内容变化了，才激活反应器，做块内其他实体的修改。

我对反应器也没有多少了解不确定一个参照带有反应器，经过cad界面上的复制、粘贴等操作后，生成的对象还带反应器吗？

newer

风树 发表于 2013-12-23 19:22
我对反应器也没有多少了解不确定一个参照带有反应器，经过cad界面上的复制、粘贴等操作后，生成的对象还 ...

可以给块定义加反应器啊，把属性和块定义关联起来。对于块来说，属性变了，要修改的也是块定义，而不是块引用。

st788796

由块找属性，或由属性找块都是父子关系

牢固

newer 发表于 2013-12-23 19:15
打开就有关闭的时候，能不能监视到块已经关闭，然后修改呢？

这个可以了！可以实现属性修改，框自动跟着修改！
不过框和属性的相对位置还需要调整，需要根据属性的位置和块进行矩阵换算一下！这个换算我就暂时不写了！先把示例代码发上来：

Array，本帖隐藏的内容需要发帖数高于 20 才可浏览，你当前发帖数为

st788796

牢固 发表于 2013-12-23 20:07
这个可以了！可以实现属性修改，框自动跟着修改！
不过框和属性的相对位置还需要调整，需要根据属性的位 ...

哈哈，我们光说不练，G版直接上代码，这个实质是相对比例变换，自身比例，相对关系比例变换

风树

看看思路。回帖数14了

newer

风树 发表于 2013-12-23 21:00
看看思路。回帖数19了

你在做什么{:soso_e132:}

牢固

完整版代码：

Array，本帖隐藏的内容需要发帖数高于 20 才可浏览，你当前发帖数为

newer

牢固 发表于 2013-12-24 10:17
完整版代码：

[/post]

G 版，能不鞥用点监视器，做个动态的演示啊。

aeo

这样不行吧
属性的好处就是图形不变，里面的文字不停变化
你为了其中的一个属性，把图块改了，那还做什么属性块？

我讲个方法：
反正是块，计算文字大小，自动改那个 插入 的X比例，
做块的时候那个框的x画成1,这样很好算

反应器只要判断是不是那个块定义就行了，拷贝粘贴也没关系.

st788796

我写的话就用scaleentity

newer

aeo 发表于 2013-12-24 10:29
这样不行吧
属性的好处就是图形不变，里面的文字不停变化
你为了其中的一个属性，把图块改了，那还做什么 ...

用图块的好处是当做容器了，可以把实体组织起来做个“对象”，类似自定义对象，但是可以通用。

ll_j

其实属性和图块是可以相对独立的，图块可以做成无属性的动态块，然后将属性附着在这个块上，再根据属性的长度来变化动态块的相关长度。
或者也可以使用无名块，根据属性的长度来构建无名块，不过这样用多了，图中的无名块和反应器也会很多，势必影响速度。
本人不懂反应器，属于光说不练的假把式，对不对也就不知道了。

st788796

高版本的约束更简单

aeo

2. 
   
3. (defun c:addvlr (/ E OBJ TEXTSTRING)  
   
4.          (if (and(setq e (car(nentsel "\n选择块属性:")))        
   
5.                  (= "ATTRIB" (cdr (assoc 0 (entget e))))        )   
   
6.           (progn      (setq obj (vlax-ename->vla-object e))            
   
7.                  (vlr-pers (VLR-Object-Reactor (list obj)nil '((:vlr-modified . att-Change))))      
   
8.                  (princ "\n反应器已注入!")      )   
   
9.          )   
   
10.       (princ)
    
11. )
    
12. 
    
13. (defun att-Change (OBJ VLROBJ PARAMETERS / blkref box dis doc en ename sca textstring)
    
14.   (setq textstring (vla-get-textstring obj))
    
15.   (setq blkref (vla-ObjectIDToObject
    
16.                       (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
    
17.                       (vla-get-ownerid obj)
    
18.                 )
    
19.        ename (vlax-vla-object->ename blkref)
    
20.   )
    
21.   (setq  sca (abs(vla-get-YScaleFactor blkref))
    
22.          box (textbox (entget (vlax-vla-object->ename obj)))
    
23.          dis (+ (- (caadr box)(caar box))(* sca 0.1) )
    
24.          en(entget ename)
    
25.    )
    
26.    (entmod(subst(cons 41 dis)(assoc 41 en)en))
    
27. )
    
28. 
    
29. 
    

<br /> (defun c:addvlr (/ E OBJ TEXTSTRING)  <br />          (if (and(setq e (car(nentsel "\n选择块属性:")))        <br />                  (= "ATTRIB" (cdr (assoc 0 (entget e))))        )    <br />           (progn      (setq obj (vlax-ename->vla-object e))            <br />                  (vlr-pers (VLR-Object-Reactor (list obj)nil '((:vlr-modified . att-Change))))      <br />                  (princ "\n反应器已注入!")      )   <br />          )   <br />       (princ) <br /> )<br /> <br /> (defun att-Change (OBJ VLROBJ PARAMETERS / blkref box dis doc en ename sca textstring)<br />   (setq textstring (vla-get-textstring obj))<br />   (setq blkref (vla-ObjectIDToObject <br />                       (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />                       (vla-get-ownerid obj)<br />                 )<br />        ename (vlax-vla-object->ename blkref)<br />   )<br />   (setq  sca (abs(vla-get-YScaleFactor blkref))<br />          box (textbox (entget (vlax-vla-object->ename obj)))<br />          dis (+ (- (caadr box)(caar box))(* sca 0.1) )<br />          en(entget ename)<br />    )<br />    (entmod(subst(cons 41 dis)(assoc 41 en)en))<br /> )<br /> <br /> <br />

下面是实验dwg

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:Drawing1.rar 
下载次数:3  文件大小:17.76 KB 
下载权限: 不限 以上  [免费赚D豆]