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

stulsx · 发表于 2004-3-23 20:54:00

;我是反应器的初学者，请问我编的这段反应器的错误在哪里
; 运行出现的错误是－－错误: *error*    函数中出错invalid  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 · 发表于 2004-3-23 21:26:00

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

stulsx · 发表于 2004-3-24 08:02:00

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

龙龙仔 · 发表于 2004-3-24 08:05:00

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

stulsx · 发表于 2004-3-24 08:17:00

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

meflying · 发表于 2004-3-24 19:53:00

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

stulsx · 发表于 2004-3-24 20:50:00

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)
)

ieq04bkmdnx.JPG