永久物件反應器例子

龙龙仔

;;This file is designed to test how the vlr-copied event fires.
;;The event calls the callback function once for each copy. In
;;an array command, it would fire multiple times before the command
;;is ended. To test the effects, load this function, draw
;;an object, run the obs program and then run the array command.

;;D. C. Broad, Jr. (c) 2002
;;Cost: 50% of the profits of using it. ;-)

;;Callback dummy
(defun RPORT (A B C)
  (if(/= (CAR C) 0) ;FOR R2007
    (progn
      (princ "A:")
      (princ A)
      (princ "B:")
      (princ B)
      (princ "C:")
      (princ C)
    )
  )
  (princ)
)

;;Clear all reactors to get baseline test.
(vlr-remove-all)

;;Command to select the object to be tracked by
;;the vlr-copied reactor
(defun C:OBS (/ E O)
  (setq E (car (entsel)))
  (setq O (vlax-ename->vla-object E))
  (vlr-object-reactor
    (list O)
    "Data"
    '((:vlr-copied . RPORT))
  )
)

vken7az2p

再次请教版主,
以下两个问题
01.我试着取得复制后产生的物件,再将其加入成为反应器,
但却都没法完成,请问程序中哪里出错呢?
02.删除后若执行 UNDO 命令,所恢复的物件是否变成临时性反应器?
希望版主或是其他高手可以解答一下.
谢谢!

3. (VL-LOAD-COM)
4. (SETQ ACADOBJECT   (VLAX-GET-ACAD-OBJECT))
5. (SETQ ACADDOCUMENT (VLA-GET-ACTIVEDOCUMENT ACADOBJECT))
6. (SETQ MSPACE       (VLA-GET-MODELSPACE ACADDOCUMENT))
7. ; 复制反应程序
8. (DEFUN AR_AE_RR_COPIED
9. (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST /
10. AR_AE_RR_COPIED AR_AE_RR_MODIFIED BRK_VLA-NR-OBJ
11. BRK-VLA-RR-OBJ DXF05_LAS-OBJ DXF05_NN-OBJ DXF05_NR-OBJ
12. DXF05_RR-OBJ EN-AREA EN-AREA-M I LST NN NR-OBJ PTDT RE
13. RR-OBJ VLA-NR-OBJ VLA-RR-OBJ)
14. (PRINT "AR_AE_RR_COPIED,复制反应程序")
15. (IF (VLAX-READ-ENABLED-P NOTIFIER-OBJECT) ;;确定物件对象是否可读
16. (PROGN
17. (SETQ NR-OBJ (ENTLAST)) ;取出最后物件
18. (IF (= (AR_DXF 0 NR-OBJ) "LWPOLYLINE")
19. (PROGN
20. (SETQ VLA-NR-OBJ (VLAX-ENAME->VLA-OBJECT NR-OBJ)) ;转换为VLA
21. (SETQ PTDT (VLAX-CURVE-GETPOINTATPARAM NR-OBJ 0)) ;PL起点
22. (SETQ DXF05_NR-OBJ (VLA-GET-HANDLE VLA-NR-OBJ)) ;图元处理码
23. (SETQ BRK_VLA-NR-OBJ (LIST VLA-NR-OBJ)) ;串列VLA
24. ; 建立复制物件后的反应器
25. (SETQ LST (CDR (CAR (VLR-REACTORS :VLR-Object-Reactor)))) ;取出反应器列表
26. (SETQ I 0)
27. (SETQ RE T)
28. (SETQ DXF05_LAS-OBJ (VLA-GET-HANDLE (CAR (VLR-OWNERS (LAST LST))))) ;最后一笔资料
30. (WHILE RE
31. (SETQ NN (VLR-OWNERS (NTH I LST)))
32. (SETQ DXF05_NN-OBJ (VLA-GET-HANDLE (CAR NN)))
33. (COND
34. ((= DXF05_NR-OBJ DXF05_NN-OBJ)
35. (PRINT "相同资料 ") (PRINC (ITOA I))
36. (SETQ I (1+ I))
37. (SETQ RE T)
38. )
39. ((AND (= DXF05_LAS-OBJ DXF05_NN-OBJ)
40.       (= DXF05_NR-OBJ DXF05_NN-OBJ)
41.       )
42. (PRINT "最后一笔资料 ") (PRINC (ITOA I))
43. (SETQ RE NIL)
44. )
45. ((/= DXF05_NR-OBJ DXF05_NN-OBJ)
46. (SETQ EN-AREA (VLA-GET-AREA VLA-NR-OBJ)) ;取出面积
47. (SETQ EN-AREA-M (STRCAT (RTOS (/ EN-AREA 10000) 2 2) "㎡")) ;面积单位
48. (VL-CMDF "TEXT" PTDT 30 0 EN-AREA-M ) ;输出面积数值成文字
49. (SETQ RR-OBJ (ENTLAST))
50. (SETQ VLA-RR-OBJ (VLAX-ENAME->VLA-OBJECT RR-OBJ)) ;转换为VLA
51. (SETQ DXF05_RR-OBJ (VLA-GET-HANDLE VLA-RR-OBJ)) ;图元处理码
52. (SETQ BRK-VLA-RR-OBJ (LIST VLA-RR-OBJ)) ;串列VLA
53. (VLR-PERS ;;永久反应器
54. (VLR-OBJECT-REACTOR ;;物件反应器
55. BRK_VLA-NR-OBJ ;;NR_物件对象,LIST的VLA
56. DXF05_RR-OBJ   ;;RR_编辑对象.图元处理码
57. '((:VLR-MODIFIED . AR_AE_RR_MODIFIED) ;编辑反应程序
58.   (:VLR-COPIED . AR_AE_RR_COPIED) ;复制反应程序
59.   (:VLR-ERASED . AR_AE_RR_ERASED) ;删除反应程序
60.   )
61. ))
62. (SETQ I (1+ I))
63. (SETQ RE NIL)
64. )
65. ) ;_ 结束COND
66. ) ;_ 结束WHILE
67. ) ;_ 结束PROGN
68. ) ;_ 结束IF
69. ) ;_ 结束PROGN
70. ) ;_ 结束IF
71. ) ; DEFUN AR_AE_RR_COPIED
72. ; 编辑反应程序
73. (DEFUN AR_AE_RR_MODIFIED
74. (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST / EN-AREA EN-AREA-M RR-OBJ VLR-TX)
75. (PRINT "AR_AE_RR_MODIFIED,编辑反应程序")
76. (IF (VLAX-READ-ENABLED-P NOTIFIER-OBJECT) ;;确定物件对象是否可读
77. (PROGN
78. (SETQ RR-OBJ (HANDENT (VLR-DATA REACTOR-OBJECT))) ;;编辑对象,REACTOR-OBJECT
79. (SETQ VLR-RR-OBJ  (VLAX-ENAME->VLA-OBJECT RR-OBJ))
80. (SETQ EN-AREA (VLA-GET-AREA NOTIFIER-OBJECT)) ;;物件对象,NOTIFIER-OBJECT
81. (SETQ EN-AREA-M (STRCAT (RTOS (/ EN-AREA 10000) 2 2) "㎡"))
82. (VLA-PUT-TEXTSTRING VLR-RR-OBJ EN-AREA-M)
83. ) ;_ 结束PROGN
84. ) ;_ 结束IF
85. ) ;DEFUN AR_AE_RR_MODIFIED
86. ; 删除反应程序
87. (DEFUN AR_AE_RR_ERASED (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST / )
88. (PRINT "AR_AE_RR_ERASED,删除反应程序")
89. (FOREACH I (CDR (CAR (VLR-REACTORS :VLR-OBJECT-REACTOR)))
90. (IF (OR (VLAX-ERASED-P (CAR (VLR-OWNERS I)))
91. (VLAX-ERASED-P (VLAX-ENAME->VLA-OBJECT NOTIFIER-OBJECT))
92. )
93. (PROGN
94. (SETQ RR-OBJ (HANDENT (VLR-DATA REACTOR-OBJECT))) ;;编辑对象,REACTOR-OBJECT
95. (ENTDEL RR-OBJ)
96. (VLR-PERS-RELEASE I)
97. (VLR-REMOVE I)
98. ) ;_ 结束PROGN
99. ) ;_ 结束IF
100. )
101. ) ;DEFUN AR_AE_RR_MODIFIED
102. ; 删除没有物件对象者的反应器
103. (IF REMOVE_PERS_REACT
104. (PROGN
105. (FOREACH I (VLR-PERS-LIST)
106.   (IF (NOT (VLR-OWNERS I))
107.     (PROGN
108.       (VLR-PERS-RELEASE I)
109.       (VLR-REMOVE I)
110.     ) ;_ 结束PROGN
111.   ) ;_ 结束IF
112. ) ;_ 结束FOREACH
113. ) ;_ 结束PROGN
114. ) ;_ 结束if
115. (defun AR_DXF (#code #ename)
116. (cdr (assoc #code (entget #ename)))
117. )
118. ; 执行产生面积程序
119. (defun c:CRAREA ()
120. (prompt "\n**<面积反应器练习>**")
121. (SETQ NR-OBJ (CAR (ENTSEL "\n 选取物件:")))
122. (SETQ PTDT (VLAX-CURVE-GETPOINTATPARAM NR-OBJ 0)) ;PL起点
123. (SETQ VLA-NR-OBJ (VLAX-ENAME->VLA-OBJECT NR-OBJ)) ;转换为VLA
124. (SETQ DXF05_NR-OBJ (VLA-GET-HANDLE VLA-NR-OBJ)) ;图元处理码
125. (SETQ BRK_VLA-NR-OBJ (LIST VLA-NR-OBJ)) ;串列VLA
126. (SETQ EN-AREA (VLA-GET-AREA VLA-NR-OBJ)) ;取出面积
127. (SETQ EN-AREA-M (STRCAT (RTOS (/ EN-AREA 10000) 2 2) "㎡")) ;面积单位
128. (VL-CMDF "TEXT" PTDT 30 0 EN-AREA-M ) ;输出面积数值成文字
129. (SETQ RR-OBJ (ENTLAST)) ;;取得文字图元
130. (SETQ VLA-RR-OBJ (VLAX-ENAME->VLA-OBJECT RR-OBJ)) ;转换为VLA
131. (SETQ DXF05_RR-OBJ (VLA-GET-HANDLE VLA-RR-OBJ)) ;图元处理码
132. (SETQ BRK-VLA-RR-OBJ (LIST VLA-RR-OBJ)) ;串列VLA
133. ; 建立反应器
134. (VLR-PERS ;;永久反应器
135. (VLR-OBJECT-REACTOR ;;物件反应器
136. BRK_VLA-NR-OBJ ;;NR_物件对象,LIST的VLA
137. DXF05_RR-OBJ   ;;RR_编辑对象.图元处理码
138. '((:VLR-MODIFIED . AR_AE_RR_MODIFIED) ;编辑反应程序
139.   (:VLR-COPIED . AR_AE_RR_COPIED) ;复制反应程序
140.   (:VLR-ERASED . AR_AE_RR_ERASED) ;删除反应程序
141.   )
142. ))
143. (prin1))

(VL-LOAD-COM) (SETQ ACADOBJECT   (VLAX-GET-ACAD-OBJECT)) (SETQ ACADDOCUMENT (VLA-GET-ACTIVEDOCUMENT ACADOBJECT)) (SETQ MSPACE       (VLA-GET-MODELSPACE ACADDOCUMENT)) ; 复制反应程序 (DEFUN AR_AE_RR_COPIED (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST / AR_AE_RR_COPIED AR_AE_RR_MODIFIED BRK_VLA-NR-OBJ BRK-VLA-RR-OBJ DXF05_LAS-OBJ DXF05_NN-OBJ DXF05_NR-OBJ DXF05_RR-OBJ EN-AREA EN-AREA-M I LST NN NR-OBJ PTDT RE RR-OBJ VLA-NR-OBJ VLA-RR-OBJ) (PRINT "AR_AE_RR_COPIED,复制反应程序") (IF (VLAX-READ-ENABLED-P NOTIFIER-OBJECT) ;;确定物件对象是否可读 (PROGN (SETQ NR-OBJ (ENTLAST)) ;取出最后物件 (IF (= (AR_DXF 0 NR-OBJ) "LWPOLYLINE") (PROGN (SETQ VLA-NR-OBJ (VLAX-ENAME->VLA-OBJECT NR-OBJ)) ;转换为VLA (SETQ PTDT (VLAX-CURVE-GETPOINTATPARAM NR-OBJ 0)) ;PL起点 (SETQ DXF05_NR-OBJ (VLA-GET-HANDLE VLA-NR-OBJ)) ;图元处理码 (SETQ BRK_VLA-NR-OBJ (LIST VLA-NR-OBJ)) ;串列VLA ; 建立复制物件后的反应器 (SETQ LST (CDR (CAR (VLR-REACTORS :VLR-Object-Reactor)))) ;取出反应器列表 (SETQ I 0) (SETQ RE T) (SETQ DXF05_LAS-OBJ (VLA-GET-HANDLE (CAR (VLR-OWNERS (LAST LST))))) ;最后一笔资料 (WHILE RE (SETQ NN (VLR-OWNERS (NTH I LST))) (SETQ DXF05_NN-OBJ (VLA-GET-HANDLE (CAR NN))) (COND ((= DXF05_NR-OBJ DXF05_NN-OBJ) (PRINT "相同资料 ") (PRINC (ITOA I)) (SETQ I (1+ I)) (SETQ RE T) ) ((AND (= DXF05_LAS-OBJ DXF05_NN-OBJ)       (= DXF05_NR-OBJ DXF05_NN-OBJ)       ) (PRINT "最后一笔资料 ") (PRINC (ITOA I)) (SETQ RE NIL) ) ((/= DXF05_NR-OBJ DXF05_NN-OBJ) (SETQ EN-AREA (VLA-GET-AREA VLA-NR-OBJ)) ;取出面积 (SETQ EN-AREA-M (STRCAT (RTOS (/ EN-AREA 10000) 2 2) "㎡")) ;面积单位 (VL-CMDF "TEXT" PTDT 30 0 EN-AREA-M ) ;输出面积数值成文字 (SETQ RR-OBJ (ENTLAST)) (SETQ VLA-RR-OBJ (VLAX-ENAME->VLA-OBJECT RR-OBJ)) ;转换为VLA (SETQ DXF05_RR-OBJ (VLA-GET-HANDLE VLA-RR-OBJ)) ;图元处理码 (SETQ BRK-VLA-RR-OBJ (LIST VLA-RR-OBJ)) ;串列VLA (VLR-PERS ;;永久反应器 (VLR-OBJECT-REACTOR ;;物件反应器 BRK_VLA-NR-OBJ ;;NR_物件对象,LIST的VLA DXF05_RR-OBJ   ;;RR_编辑对象.图元处理码 '((:VLR-MODIFIED . AR_AE_RR_MODIFIED) ;编辑反应程序   (:VLR-COPIED . AR_AE_RR_COPIED) ;复制反应程序   (:VLR-ERASED . AR_AE_RR_ERASED) ;删除反应程序   ) )) (SETQ I (1+ I)) (SETQ RE NIL) ) ) ;_ 结束COND ) ;_ 结束WHILE ) ;_ 结束PROGN ) ;_ 结束IF ) ;_ 结束PROGN ) ;_ 结束IF ) ; DEFUN AR_AE_RR_COPIED ; 编辑反应程序 (DEFUN AR_AE_RR_MODIFIED (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST / EN-AREA EN-AREA-M RR-OBJ VLR-TX) (PRINT "AR_AE_RR_MODIFIED,编辑反应程序") (IF (VLAX-READ-ENABLED-P NOTIFIER-OBJECT) ;;确定物件对象是否可读 (PROGN (SETQ RR-OBJ (HANDENT (VLR-DATA REACTOR-OBJECT))) ;;编辑对象,REACTOR-OBJECT (SETQ VLR-RR-OBJ  (VLAX-ENAME->VLA-OBJECT RR-OBJ)) (SETQ EN-AREA (VLA-GET-AREA NOTIFIER-OBJECT)) ;;物件对象,NOTIFIER-OBJECT (SETQ EN-AREA-M (STRCAT (RTOS (/ EN-AREA 10000) 2 2) "㎡")) (VLA-PUT-TEXTSTRING VLR-RR-OBJ EN-AREA-M) ) ;_ 结束PROGN ) ;_ 结束IF ) ;DEFUN AR_AE_RR_MODIFIED ; 删除反应程序 (DEFUN AR_AE_RR_ERASED (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST / ) (PRINT "AR_AE_RR_ERASED,删除反应程序") (FOREACH I (CDR (CAR (VLR-REACTORS :VLR-OBJECT-REACTOR))) (IF (OR (VLAX-ERASED-P (CAR (VLR-OWNERS I))) (VLAX-ERASED-P (VLAX-ENAME->VLA-OBJECT NOTIFIER-OBJECT)) ) (PROGN (SETQ RR-OBJ (HANDENT (VLR-DATA REACTOR-OBJECT))) ;;编辑对象,REACTOR-OBJECT (ENTDEL RR-OBJ) (VLR-PERS-RELEASE I) (VLR-REMOVE I) ) ;_ 结束PROGN ) ;_ 结束IF ) ) ;DEFUN AR_AE_RR_MODIFIED ; 删除没有物件对象者的反应器 (IF REMOVE_PERS_REACT (PROGN (FOREACH I (VLR-PERS-LIST)   (IF (NOT (VLR-OWNERS I))     (PROGN       (VLR-PERS-RELEASE I)       (VLR-REMOVE I)     ) ;_ 结束PROGN   ) ;_ 结束IF ) ;_ 结束FOREACH ) ;_ 结束PROGN ) ;_ 结束if (defun AR_DXF (#code #ename) (cdr (assoc #code (entget #ename))) ) ; 执行产生面积程序 (defun c:CRAREA () (prompt "\n**<面积反应器练习>**") (SETQ NR-OBJ (CAR (ENTSEL "\n 选取物件:"))) (SETQ PTDT (VLAX-CURVE-GETPOINTATPARAM NR-OBJ 0)) ;PL起点 (SETQ VLA-NR-OBJ (VLAX-ENAME->VLA-OBJECT NR-OBJ)) ;转换为VLA (SETQ DXF05_NR-OBJ (VLA-GET-HANDLE VLA-NR-OBJ)) ;图元处理码 (SETQ BRK_VLA-NR-OBJ (LIST VLA-NR-OBJ)) ;串列VLA (SETQ EN-AREA (VLA-GET-AREA VLA-NR-OBJ)) ;取出面积 (SETQ EN-AREA-M (STRCAT (RTOS (/ EN-AREA 10000) 2 2) "㎡")) ;面积单位 (VL-CMDF "TEXT" PTDT 30 0 EN-AREA-M ) ;输出面积数值成文字 (SETQ RR-OBJ (ENTLAST)) ;;取得文字图元 (SETQ VLA-RR-OBJ (VLAX-ENAME->VLA-OBJECT RR-OBJ)) ;转换为VLA (SETQ DXF05_RR-OBJ (VLA-GET-HANDLE VLA-RR-OBJ)) ;图元处理码 (SETQ BRK-VLA-RR-OBJ (LIST VLA-RR-OBJ)) ;串列VLA ; 建立反应器 (VLR-PERS ;;永久反应器 (VLR-OBJECT-REACTOR ;;物件反应器 BRK_VLA-NR-OBJ ;;NR_物件对象,LIST的VLA DXF05_RR-OBJ   ;;RR_编辑对象.图元处理码 '((:VLR-MODIFIED . AR_AE_RR_MODIFIED) ;编辑反应程序   (:VLR-COPIED . AR_AE_RR_COPIED) ;复制反应程序   (:VLR-ERASED . AR_AE_RR_ERASED) ;删除反应程序   ) )) (prin1))

龙龙仔

你沒有把11樓的例子看懂,VLR-COPIED觸發時,實際物件其實還沒有生成呢!!  慢慢研究吧!

vken7az2p

总算明白版主说是复制时并没有完成物件的产生,
但该怎样在程式结束后取得物件,就又是一各问题了.

不知道版主可以说一下吗

谢谢

(DEFUN AR_AE_RR_COPIED
(NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST / )
(IF (/= (CAR PARAMETER-LIST) 0)
  (PROGN
(PRINC PARAMETER-LIST)
(PRINC (ENTGET (CAR PARAMETER-LIST)))
) ;_ 结束PROGN
) ;_ 结束IF
)

龙龙仔

Vlr-copied 的3個參數是甚麼? 看想楚點,把它用表記錄起來

  (defun AR_AE_RR_COPIED (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST /)

 

再用vlr-commandended反應器處理一下即可(把copy 出來的物件加上反應器)

highflybir

我理解后改成如下：

1、先在主程序中创建COMMAND反应器

;;;Creat COMMAND reactor
(defun Creat-Command-Reactor ()
  (if (not *CommandReactor*)
    (setq *CommandReactor*
    (vlr-pers
      (vlr-command-reactor
        nil
        '((:vlr-commandwillstart . CMD-Start)
   (:vlr-commandended . CMD-Ended)
        )
      )
    )
    );setq
  );if
)

2、定义复制回调函数

;;; 复制回调函数
(DEFUN AR_AE_RR_COPIED (NOTIFIER-OBJECT REACTOR-OBJECT ARAMETER-LIST / ent)
  (if (/= (car PARAMETER-LIST) 0)                          ;如果有拷贝(copy,array等方式)
    (PROGN
      (setq ent (car PARAMETER-LIST))
      (setq *ReactorCopy* (cons ent *ReactorCopy*))        ;设置拷贝指针变量
      (princ "\nAR_AE_RR_COPIED,复制反应程序")             ;这句可以不要
    ) ;_ 结束PROGN
  ) ;_ 结束IF
) ;_ 结束defun

;;;命令开始
(defun CMD-start (reactor command-list /)
  (setq *ReactorCopy* nil)                                 ;命令开始前清空拷贝指针
  (princ)
)
;;;命令结束
(defun CMD-Ended (reactor command-list / pt0 obj area area-m rr-ent rr-obj)
  (if *ReactorCopy*                                       
    (foreach n *ReactorCopy*                               ;对每份拷贝
      (SETQ pt0 (VLAX-CURVE-GETPOINTATPARAM n 0))          L起点???
      (setq obj (vlax-ename->vla-object n))
      (SETQ area (vla-GET-AREA obj))                    ;取出面积
      (SETQ area-m (STRCAT (RTOS (/ area 10000) 2 2) "㎡"));面积单位
      (make-text area-m pt0 3000)                    ;输出面积数值成文字
                                                           ;建议不用command方式
      (SETQ RR-ent (ENTLAST))                     ;取得文字图元
      (SETQ RR-OBJ (VLAX-ENAME->vla-OBJECT RR-ent))        ;转换为VLA
      ;;永久反应器
      (VLR-PERS
 ;;物件反应器
 (VLR-OBJECT-REACTOR
   ;;NR_物件对象,LIST的VLA
   (list obj)
   ;;RR_编辑对象
   (cons rr-obj area)
   '((:VLR-MODIFIED . AR_AE_RR_MODIFIED)            ;编辑回调函数
     (:VLR-COPIED . AR_AE_RR_COPIED)                ;复制回调函数
     (:VLR-ERASED . AR_AE_RR_ERASED)                ;删除回调函数
   )
 )
      )
    )
  )
  (setq *ReactorCopy* nil)                                 ;;命令结束后清空拷贝指针
  (princ)
)

龙龙仔

make-text  函數?? 

highflybir 版主一看就懂了! 多寫些例子出來吧!

highflybir

对vken7az2p的程序稍微做了一下改动。

建议不用handel作为vlr-owner,和data,而用其vla-object,在反应器的回调函数中尽量避免不用command来创建实体，而用vla方法或者entmake方法。

还有对这个程序最好能处理undo,erase,等情况，在文件被关闭时，注意清空一些无用的反应器。

make-text  函數是一个简单的用entmake创建文字的程序，参数三个，字符串，插入点，字高.

vken7az2p

谢谢 龙龙仔 版大 及 highflybir 版大,的指导.
发现到了

01.在 :VLR-COMMANDENDED 状态中,不能使用 COMMAND 命令,而需使用其他命令来建立物件.
如:
(VL-LOAD-COM)
(SETQ ACADOBJECT   (VLAX-GET-ACAD-OBJECT))
(SETQ ACADDOCUMENT (VLA-GET-ACTIVEDOCUMENT ACADOBJECT))
(SETQ MSPACE       (VLA-GET-MODELSPACE ACADDOCUMENT))
...
(VLA-AddText MSPACE EN-AREA-M (vlax-3d-point PTDT) 30) ;VBA
...
也是可以完成建立文字.

02.原来 :VLR-COPIED 的回传值,要把他 LIST 起来,
(SETQ ENT (CAR PARAMETER-LIST)
      *REACTORCOPY* (CONS ENT *REACTORCOPY*)
)
只是变数的命名,带有 *R... 跟 REACTORCOPY 反应应该是没差异吧.

03.highflybir 版大提到,在文件被关闭时，注意清空一些无用的反应器。
若是使用临时性反应器,是否变成在需要使用反应器时重新恢复关联即可,
可以免去整理反应器资料库处理问题呢?

因为发现整理永久性反应器的资料库真是不好处理...
尤其是遇到 只有一各物件对象 ,已经删除却能在资料库,
不知道版大都怎样处理呢?

烦请各位指导一下
谢谢

wowan1314

收藏了！ 谢谢！