请大侠帮忙

董堃

我用lisp写了一个图框程序，但是弄不了反应器和回调函数，请各位大侠帮帮忙！！

Gu_xl

1. ;;;插完图框后立即使用如下语句，添加反应器
   
2. (vlr-pers (VLR-Object-Reactor (list (vlax-ename->vla-object (entlast))) (cdr (assoc 5 (entget (entlast)))) '((:VLR-modified . Tk-Change))))
   
3. ;;;回调函数
   
4. (defun Tk-Change (Object Reactor-Object Parameter-list / en)
   
5.   ;;;得到图廓图元名
   
6.   (setq en (handent (vlr-data Reactor-Object)))
   
7.   ;;;
   
8.   ;;读取图廓 en 的相关属性
   
9.   ...
   
10.   ;;;读取属性代码自己添加
    
11.   ;;;赋值 图样代号？的属性
    
12.   ...
    
13.   ;;;属性赋值代码自己添加
    
14. 
    
15.   )
    

;;;插完图框后立即使用如下语句，添加反应器<br /> (vlr-pers (VLR-Object-Reactor (list (vlax-ename->vla-object (entlast))) (cdr (assoc 5 (entget (entlast)))) '((:VLR-modified . Tk-Change))))<br /> ;;;回调函数<br /> (defun Tk-Change (Object Reactor-Object Parameter-list / en)<br />   ;;;得到图廓图元名<br />   (setq en (handent (vlr-data Reactor-Object)))<br />   ;;;<br />   ;;读取图廓 en 的相关属性<br />   ...<br />   ;;;读取属性代码自己添加<br />   ;;;赋值 图样代号？的属性<br />   ...<br />   ;;;属性赋值代码自己添加<br /> <br />   )<br />

董堃

谢谢Gu_xl 版主
我试试，不懂的再来求教！！

xiaxiang

希望看到完整版的程序，楼主加油了，让我等不劳而获一下

董堃

Gu_xl 版主；我的回调函数如下但就是不能实现功能不知是何原因
请帮帮忙！

;;回调函数
(defun Tk-Change (Object tyclm Parameter-list / en)
  ;;;得到图廓图元名
  (setq n 0)
  (setq en(vlax-ename->vla-object(handent (vlr-data tyclm))))
  (setq ename (vlax-invoke en "GetAttributes"))
  ;;读取图廓 en 的相关属性
  (REPEAT (LENGTH en)
  (if(=(vla-get-TagString (nth n ename))"图样代号")(setq tydh(vla-get-TextString (nth n ename))));;;读取图样代号属性的值
  (setq n (1+ n)))                                                             
  (setq n 0)
  (REPEAT (LENGTH en)
  (if(=(vla-get-TagString (nth n ename))"tydh")(vla-put-TextString (nth n ename) tydh));;;设定左上角图样代号属性的值
  (setq n (1+ n)))                                                             
(vla-update en)
)

Gu_xl

回复 董堃 的帖子

(REPEAT (LENGTH en)
==>(REPEAT (LENGTH ename)
,再试试

董堃

(REPEAT (LENGTH ename)后
还是看不到反应

董堃

(vlr-data tyclm)
这个位置要出错

董堃

是不是要把回调函数放到acad2005.lsp中？