对象修改反应器可修改正在进行的反应器作用的物件吗?

naruto018

对象修改反应器可修改正在进行的反应器作用的物件吗?

最近正练习反应器
尝试写下面代码

1. (defun C:tt  ( / mlobj )
   
2.     (defun position  (owner reactor args / getent pt)
   
3.         (cond
   
4.             (owner
   
5.              (setq getent (entget (vlax-vla-object->ename owner)))
   
6.              (setq pt (cdr (assoc 10 getent)))
   
7.              (princ "\n : ")
   
8.              (princ (strcat
   
9.                      "("
   
10.                      (rtos (car pt) 2 2)
    
11.                      ","
    
12.                      (rtos (cadr pt) 2 2)
    
13.                      ","
    
14.                      (rtos (caddr pt) 2 2)
    
15.                      ")"))
    
16.              (vlax-put-property
    
17.                  owner
    
18.                  "TextString"
    
19.                  (strcat
    
20.                      "("
    
21.                      (rtos (car pt) 2 2)
    
22.                      ","
    
23.                      (rtos (cadr pt) 2 2)
    
24.                      ","
    
25.                      (rtos (caddr pt) 2 2)
    
26.                      ")"))
    
27.              )
    
28.             );_cond
    
29.         ) ;_end
    
30.     (if        (setq mlobj (entmakex (list '(0 . "MTEXT")
    
31.                     '(100 . "AcDbEntity")
    
32.                     '(100 . "AcDbMText")
    
33.                     '(7 . "Standard")
    
34.                     (cons 1 "123")
    
35.                     (cons 10 (getpoint)))))
    
36.         (vlr-object-reactor
    
37.             (list (vlax-ename->vla-object mlobj))
    
38.             nil
    
39.             '((:vlr-objectClosed . position)))
    
40.         ) ;_if
    
41.     );_end
    

(defun C:tt  ( / mlobj )<br />     (defun position  (owner reactor args / getent pt)<br />         (cond<br />             (owner<br />              (setq getent (entget (vlax-vla-object->ename owner)))<br />              (setq pt (cdr (assoc 10 getent)))<br />              (princ "\n : ")<br />              (princ (strcat<br />                      "("<br />                      (rtos (car pt) 2 2)<br />                      ","<br />                      (rtos (cadr pt) 2 2)<br />                      ","<br />                      (rtos (caddr pt) 2 2)<br />                      ")"))<br />              (vlax-put-property<br />                  owner<br />                  "TextString"<br />                  (strcat<br />                      "("<br />                      (rtos (car pt) 2 2)<br />                      ","<br />                      (rtos (cadr pt) 2 2)<br />                      ","<br />                      (rtos (caddr pt) 2 2)<br />                      ")"))<br />              )<br />             );_cond<br />         ) ;_end<br />     (if        (setq mlobj (entmakex (list '(0 . "MTEXT")<br />                     '(100 . "AcDbEntity")<br />                     '(100 . "AcDbMText")<br />                     '(7 . "Standard")<br />                     (cons 1 "123")<br />                     (cons 10 (getpoint)))))<br />         (vlr-object-reactor<br />             (list (vlax-ename->vla-object mlobj))<br />             nil<br />             '((:vlr-objectClosed . position)))<br />         ) ;_if<br />     );_end<br />

移动文字后
显示错误在
(vlax-put-property
                 owner
                 "TextString"
                 (strcat
                     "("
                     (rtos (car pt) 2 2)
                     ","
                     (rtos (cadr pt) 2 2)
                     ","
                     (rtos (caddr pt) 2 2)
                     ")"))


是因为不能修改正在进行的反应器作用的物件吗
还是哪边写错

Lisphk

如果安装了OPENDCL，用 dcl-sendstring 发送字符串到命令行去执行修改部分的函数。

naruto018

Lisphk 发表于 2019-2-27 16:46
如果安装了OPENDCL，用 dcl-sendstring 发送字符串到命令行去执行修改部分的函数。

我对OPENDCL不熟
dcl-sendstring是要做什么
怎么用阿

aisong220