反应器问题求助

Lisphk

qq2222081387 发表于 2018-11-27 18:21
请问一下  在反应器里面用将 -3 组码加人列表    用entmod 更新列表 CAD就崩溃     在反应器里面应该用什 ...

反应器里面别用 entget ,entmod,entmake这样的
用vla-getxdata, vla-setxdata

marting

qq2222081387 发表于 2018-11-27 18:21
请问一下  在反应器里面用将 -3 组码加人列表    用entmod 更新列表 CAD就崩溃     在反应器里面应该用什 ...

帮助文件例子

1. (vl-load-com)
   
2. (defun c:Example_SetXData()
   
3.     ;; This example creates a line and attaches extended data to that line.
   
4.     (setq acadObj (vlax-get-acad-object))
   
5.     (setq doc (vla-get-ActiveDocument acadObj))
   
6.    
   
7.     ;; Create the line
   
8.     (setq startPt (vlax-3d-point 1 1 0)
   
9.           endPt (vlax-3d-point 5 5 0))
   
10.     (setq modelSpace (vla-get-ModelSpace doc))
    
11.     (setq lineObj (vla-AddLine modelSpace startPt endPt))
    
12.     (vla-ZoomAll acadObj)
    
13. 
    
14.     ;; Initialize all the xdata values. Note that first data in the list should be
    
15.     ;; application name and first datatype code should be 1001
    
16.     (setq DataType (vlax-make-safearray vlax-vbInteger '(0 . 9)))
    
17.     (setq Data (vlax-make-safearray vlax-vbVariant '(0 . 9)))
    
18. 
    
19.     (vlax-safearray-put-element DataType 0 1001)
    
20.     (vlax-safearray-put-element Data 0 "Test_Application")
    
21. 
    
22.     (vlax-safearray-put-element DataType 1 1000)
    
23.     (vlax-safearray-put-element Data 1 "This is a test for xdata")
    
24. 
    
25.     ;; layer
    
26.     (vlax-safearray-put-element DataType 2 1003)
    
27.     (vlax-safearray-put-element Data 2 "0")
    
28. 
    
29.     ;; real
    
30.     (vlax-safearray-put-element DataType 3 1040)
    
31.     (vlax-safearray-put-element Data 3 1.23479137438413E+40)
    
32. 
    
33.     ;; distance
    
34.     (vlax-safearray-put-element DataType 4 1041)
    
35.     (vlax-safearray-put-element Data 4 1237324938)
    
36.   
    
37.     ;; 16 bit Integer
    
38.     (vlax-safearray-put-element DataType 5 1070)
    
39.     (vlax-safearray-put-element Data 5 32767)
    
40. 
    
41.     ;; 32 bit Integer
    
42.     (vlax-safearray-put-element DataType 6 1071)
    
43.     (vlax-safearray-put-element Data 6 32767)
    
44. 
    
45.     ;; scaleFactor
    
46.     (vlax-safearray-put-element DataType 7 1042)
    
47.     (vlax-safearray-put-element Data 7 10)
    
48. 
    
49.     ;; 3D point
    
50.     (setq reals3 (vlax-3d-point -2.95 100 -20))
    
51.     (vlax-safearray-put-element DataType 8 1010)
    
52.     (vlax-safearray-put-element Data 8 reals3)
    
53.    
    
54.     ;; world space position
    
55.     (setq worldPos (vlax-3d-point 4 400.99999999 2.798989))
    
56.     (vlax-safearray-put-element DataType 9 1011)
    
57.     (vlax-safearray-put-element Data 9 worldPos)
    
58.    
    
59.     ;; Attach the xdata to the line
    
60.     (vla-SetXData lineObj DataType Data)
    
61.    
    
62.     ;; Return the xdata for the line
    
63.     (vla-GetXData lineObj "" 'xtypeOut 'xdataOut)
    
64. )
    

(vl-load-com)<br /> (defun c:Example_SetXData()<br />     ;; This example creates a line and attaches extended data to that line.<br />     (setq acadObj (vlax-get-acad-object))<br />     (setq doc (vla-get-ActiveDocument acadObj))<br />     <br />     ;; Create the line<br />     (setq startPt (vlax-3d-point 1 1 0)<br />           endPt (vlax-3d-point 5 5 0))<br />     (setq modelSpace (vla-get-ModelSpace doc))<br />     (setq lineObj (vla-AddLine modelSpace startPt endPt))<br />     (vla-ZoomAll acadObj)<br /> <br />     ;; Initialize all the xdata values. Note that first data in the list should be<br />     ;; application name and first datatype code should be 1001<br />     (setq DataType (vlax-make-safearray vlax-vbInteger '(0 . 9)))<br />     (setq Data (vlax-make-safearray vlax-vbVariant '(0 . 9)))<br /> <br />     (vlax-safearray-put-element DataType 0 1001)<br />     (vlax-safearray-put-element Data 0 "Test_Application")<br /> <br />     (vlax-safearray-put-element DataType 1 1000)<br />     (vlax-safearray-put-element Data 1 "This is a test for xdata")<br /> <br />     ;; layer<br />     (vlax-safearray-put-element DataType 2 1003)<br />     (vlax-safearray-put-element Data 2 "0")<br /> <br />     ;; real<br />     (vlax-safearray-put-element DataType 3 1040)<br />     (vlax-safearray-put-element Data 3 1.23479137438413E+40)<br /> <br />     ;; distance<br />     (vlax-safearray-put-element DataType 4 1041)<br />     (vlax-safearray-put-element Data 4 1237324938)<br />   <br />     ;; 16 bit Integer<br />     (vlax-safearray-put-element DataType 5 1070)<br />     (vlax-safearray-put-element Data 5 32767)<br /> <br />     ;; 32 bit Integer<br />     (vlax-safearray-put-element DataType 6 1071)<br />     (vlax-safearray-put-element Data 6 32767)<br /> <br />     ;; scaleFactor<br />     (vlax-safearray-put-element DataType 7 1042)<br />     (vlax-safearray-put-element Data 7 10)<br /> <br />     ;; 3D point<br />     (setq reals3 (vlax-3d-point -2.95 100 -20))<br />     (vlax-safearray-put-element DataType 8 1010)<br />     (vlax-safearray-put-element Data 8 reals3)<br />     <br />     ;; world space position<br />     (setq worldPos (vlax-3d-point 4 400.99999999 2.798989))<br />     (vlax-safearray-put-element DataType 9 1011)<br />     (vlax-safearray-put-element Data 9 worldPos)<br />     <br />     ;; Attach the xdata to the line<br />     (vla-SetXData lineObj DataType Data)<br />     <br />     ;; Return the xdata for the line<br />     (vla-GetXData lineObj "" 'xtypeOut 'xdataOut)<br /> )<br />

GETXDATA

1. (vl-load-com)
   
2. (defun c:Example_GetXData()
   
3.     ;; This example creates a line and attaches extended data to that line.
   
4.     (setq acadObj (vlax-get-acad-object))
   
5.     (setq doc (vla-get-ActiveDocument acadObj))
   
6.    
   
7.     ;; Create the line
   
8.     (setq startPt (vlax-3d-point 1 1 0)
   
9.           endPt (vlax-3d-point 5 5 0))
   
10.     (setq modelSpace (vla-get-ModelSpace doc))
    
11.     (setq lineObj (vla-AddLine modelSpace startPt endPt))
    
12.     (vla-ZoomAll acadObj)
    
13. 
    
14.     ;; Initialize all the xdata values. Note that first data in the list should be
    
15.     ;; application name and first datatype code should be 1001
    
16.     (setq DataType (vlax-make-safearray vlax-vbInteger '(0 . 9)))
    
17.     (setq Data (vlax-make-safearray vlax-vbVariant '(0 . 9)))
    
18. 
    
19.     (vlax-safearray-put-element DataType 0 1001)
    
20.     (vlax-safearray-put-element Data 0 "Test_Application")
    
21. 
    
22.     (vlax-safearray-put-element DataType 1 1000)
    
23.     (vlax-safearray-put-element Data 1 "This is a test for xdata")
    
24. 
    
25.     ;; layer
    
26.     (vlax-safearray-put-element DataType 2 1003)
    
27.     (vlax-safearray-put-element Data 2 "0")
    
28. 
    
29.     ;; real
    
30.     (vlax-safearray-put-element DataType 3 1040)
    
31.     (vlax-safearray-put-element Data 3 1.23479137438413E+40)
    
32. 
    
33.     ;; distance
    
34.     (vlax-safearray-put-element DataType 4 1041)
    
35.     (vlax-safearray-put-element Data 4 1237324938)
    
36.   
    
37.     ;; 16 bit Integer
    
38.     (vlax-safearray-put-element DataType 5 1070)
    
39.     (vlax-safearray-put-element Data 5 32767)
    
40. 
    
41.     ;; 32 bit Integer
    
42.     (vlax-safearray-put-element DataType 6 1071)
    
43.     (vlax-safearray-put-element Data 6 32767)
    
44. 
    
45.     ;; scaleFactor
    
46.     (vlax-safearray-put-element DataType 7 1042)
    
47.     (vlax-safearray-put-element Data 7 10)
    
48. 
    
49.     ;; 3D point
    
50.     (setq reals3 (vlax-3d-point -2.95 100 -20))
    
51.     (vlax-safearray-put-element DataType 8 1010)
    
52.     (vlax-safearray-put-element Data 8 reals3)
    
53.    
    
54.     ;; world space position
    
55.     (setq worldPos (vlax-3d-point 4 400.99999999 2.798989))
    
56.     (vlax-safearray-put-element DataType 9 1011)
    
57.     (vlax-safearray-put-element Data 9 worldPos)
    
58.    
    
59.     ;; Attach the xdata to the line
    
60.     (vla-SetXData lineObj DataType Data)
    
61.    
    
62.     ;; Return the xdata for the line
    
63.     (vla-GetXData lineObj "" 'xtypeOut 'xdataOut)
    
64. )
    

(vl-load-com)<br /> (defun c:Example_GetXData()<br />     ;; This example creates a line and attaches extended data to that line.<br />     (setq acadObj (vlax-get-acad-object))<br />     (setq doc (vla-get-ActiveDocument acadObj))<br />     <br />     ;; Create the line<br />     (setq startPt (vlax-3d-point 1 1 0)<br />           endPt (vlax-3d-point 5 5 0))<br />     (setq modelSpace (vla-get-ModelSpace doc))<br />     (setq lineObj (vla-AddLine modelSpace startPt endPt))<br />     (vla-ZoomAll acadObj)<br /> <br />     ;; Initialize all the xdata values. Note that first data in the list should be<br />     ;; application name and first datatype code should be 1001<br />     (setq DataType (vlax-make-safearray vlax-vbInteger '(0 . 9)))<br />     (setq Data (vlax-make-safearray vlax-vbVariant '(0 . 9)))<br /> <br />     (vlax-safearray-put-element DataType 0 1001)<br />     (vlax-safearray-put-element Data 0 "Test_Application")<br /> <br />     (vlax-safearray-put-element DataType 1 1000)<br />     (vlax-safearray-put-element Data 1 "This is a test for xdata")<br /> <br />     ;; layer<br />     (vlax-safearray-put-element DataType 2 1003)<br />     (vlax-safearray-put-element Data 2 "0")<br /> <br />     ;; real<br />     (vlax-safearray-put-element DataType 3 1040)<br />     (vlax-safearray-put-element Data 3 1.23479137438413E+40)<br /> <br />     ;; distance<br />     (vlax-safearray-put-element DataType 4 1041)<br />     (vlax-safearray-put-element Data 4 1237324938)<br />   <br />     ;; 16 bit Integer<br />     (vlax-safearray-put-element DataType 5 1070)<br />     (vlax-safearray-put-element Data 5 32767)<br /> <br />     ;; 32 bit Integer<br />     (vlax-safearray-put-element DataType 6 1071)<br />     (vlax-safearray-put-element Data 6 32767)<br /> <br />     ;; scaleFactor<br />     (vlax-safearray-put-element DataType 7 1042)<br />     (vlax-safearray-put-element Data 7 10)<br /> <br />     ;; 3D point<br />     (setq reals3 (vlax-3d-point -2.95 100 -20))<br />     (vlax-safearray-put-element DataType 8 1010)<br />     (vlax-safearray-put-element Data 8 reals3)<br />     <br />     ;; world space position<br />     (setq worldPos (vlax-3d-point 4 400.99999999 2.798989))<br />     (vlax-safearray-put-element DataType 9 1011)<br />     (vlax-safearray-put-element Data 9 worldPos)<br />     <br />     ;; Attach the xdata to the line<br />     (vla-SetXData lineObj DataType Data)<br />     <br />     ;; Return the xdata for the line<br />     (vla-GetXData lineObj "" 'xtypeOut 'xdataOut)<br /> )<br />

qq2222081387

newer 发表于 2018-11-27 14:40
扩展实体  搜索论坛

又遇到问题了 帮忙看一下可以吗
1.有个疑问 我构造的是 :vlr-objectModified   对象已被修改  数据库反应器   
现在将    “扩展实体数据”  加入圆中   算修改对象吗？ 会不会无限循环下去

2.我用的是论坛中的代码 添加的数据
http://bbs.xdcad.net/forum.php?m ... ht=Xdata&page=1
出现下面的错误提示
“错误: Automation 错误。 对象已打开进行读取”

newer

qq2222081387 发表于 2018-11-28 13:04
又遇到问题了 帮忙看一下可以吗
1.有个疑问 我构造的是 :vlr-objectModified   对象已被修改  数据库反 ...

安装晓东工具箱

打开系统监视器，都勾上，然后你设置扩展实体数据，看看命令行都提示你做什么了

(xdrx_object_setxdata (entlast) "abc" 1)

qq2222081387

引入VBA字典达到想要的效果了   有兴趣的可以去看一下   http://bbs.xdcad.net/thread-719072-1-1.html