[求助]请高手指点一下反应器的毛病在哪里?

stulsx

;我是反应器的初学者，请问我编的这段反应器的错误在哪里 ; 运行出现的错误是 －－ 错误: *error* 函数中出错invalid AutoCAD command: nil
(defun MakeReactor (ent)
(setq Rct1 (vlr-object-reactor (list (vlax-ename->vla-object ent))
"Rct" '((:vlr-modified . fun))))
) (defun c:main()
(vl-load-com)
(setq obt (entsel "\n选择物体"))
(setq ent (car obt))
(MakeReactor ent)
) ;回调函数
(defun fun()
(princ "\n 反应器定义成功!")
)

meflying

仔细看看回调函数的定义，对象反应器的回调函数是有三个参数的。。。

stulsx

这样就好了： (defun fun(a b c)
(princ "\n 反应器定义成功!")
) 另外还有个问题： 书上说，不可以用command ,getent, entmod 函数， 而你编的利用反应器计算两个数相乘的程序的回调函数(ass命令启动的那个程序) 里为什么可以用 entget 和 entmod 呢？

龙龙仔

(defun fun (notifier-object reactor-object parameter-list)
(princ "\n 反應器定義成功!")
)

stulsx

三楼的写法也是可以的，我测试过

meflying

回调函数限制的是交互式操作，如entsel、getpoint等（没有getent这个函数），并没有限制entmod，而我程序中对象的获得是通过回调函数的参数及扩展数据获得的，并没有交互式操作

stulsx

Visual LISP中文版开发人员手册.zip (VlispDev.pdf) 第217页 的“说明”见图 “说明”中说不能用 entmod 函数 ，而在你的程序的回调函数里却使用了，你的回调函数是这样的： (defun Cal (notifier-object reactor-object parameter-list / handles i ent txt Datas Result ents)
(setq Datas nil)
(setq handles (GetEx notifier-object "ForCal_meflying"))
(setq i 1)
(repeat (1- (length handles))
(setq ent (handent (nth i handles)))
(setq txt (GetTxt ent))
(setq Datas (append Datas (list (atof txt))))
(setq i (1+ i))
)
(setq ent (handent (car handles)))
(setq Result (apply '* Datas))
(setq ents (entget ent))
(setq ents (subst (cons 1 (rtos Result)) (assoc 1 ents) ents))
(entmod ents )
(princ)
)

meflying

你按他的说明，到216页，查看反应器使用规则，却没有这样一说。。。


而且这种限制只是说可能会导致应用程序出现不可预料的结果，并不是一定出错。


我这样使用不知是否存在隐患。。。我也糊涂了，帮助文件中也是一样，前面有说，可具体的使用规则却没有限制。

stulsx

按照你的页面定位, 你到205页就有了

meflying

我知道有，我是提示你去看一下。。。