【已解决】哪位知道cad机械版的明细表怎么读写么？

xxp2277

用的autocad mechanical版本，想对明细栏内容进行部分修改（比如根据输入的规格尺寸自动计算单件重量），是属性块还知道读取，这个自带的格式真不好弄啊。
哪位大神给个关键代码，或者给点参考资料。



明细表双击默认会用mechanical的专用编辑工具打开，见下图。估计其它普通版本cad打开会是打开块的编辑方式。


———————————————————————————分割线———————————————————

1. (setq ss (ssget "X" (list (cons 0 "ACMPARTLIST")(cons 1 "明细表"))))
   
2. (setq en (ssname ss 0))
   
3. (setq ob (vlax-ename->vla-object en))
   
4. (setq bom (vlax-get-property ob 'bom))
   
5. (setq items (vlax-get-property bom 'items 0))
   
6. (load "VarianttoList.lsp")
   
7. (load "StringArrayToSafeArray.lsp")
   
8. (setq partlst '())
   
9. (vlax-for eachitem items
   
10.     (setq partlst (append partlst (xd::vla:variant->list (vlax-get-property eachitem 'data))))
    
11. )

(setq ss (ssget "X" (list (cons 0 "ACMPARTLIST")(cons 1 "明细表"))))<br /> (setq en (ssname ss 0))<br /> (setq ob (vlax-ename->vla-object en))<br /> (setq bom (vlax-get-property ob 'bom))<br /> (setq items (vlax-get-property bom 'items 0))<br /> (load "VarianttoList.lsp")<br /> (load "StringArrayToSafeArray.lsp")<br /> (setq partlst '())<br /> (vlax-for eachitem items<br />     (setq partlst (append partlst (xd::vla:variant->list (vlax-get-property eachitem 'data))))<br /> )

我自己用的主要的读取代码如上，其中
(load "VarianttoList.lsp")见http://bbs.xdcad.net/forum.php?m ... &fromuid=778257
(load "StringArrayToSafeArray.lsp")见（XD::Vla:StringArrayToSafeArray）关联字符串表转安全数组（SafeArray)
http://bbs.xdcad.net/forum.php?m ... &fromuid=778257
(出处: 晓东CAD家园-论坛)
修改明细表请参见http://bbs.xdcad.net/forum.php?m ... &fromuid=778257
再次感谢marting 和Lisphk的帮助！x1



格式混乱，望见谅！

x1

marting

xxp2277 发表于 2018-12-31 16:36
(xd::vla:variant->list item0-0-data)
(("BOM_UNITS" "ea") ("MASS" "1.000") ("MATERIAL" "Q235B") (" ...

（XD::Vla:StringArrayToSafeArray）关联字符串表转安全数组（SafeArray)

0 个回复 - 0 次查看

命令: !lst (("fafaf" "faff") ("3435" "3535")) 命令: (setq d (XD::VLA:STRINGARRAYTOSAFEARRAY lst)) # 命令: (xd::vla:variant->list d) (("fafaf" "faff") ("3435" "3535"))

2018-12-31 17:59 - marting - 开源函数库

去下载上面的函数

修改你的数据

(setq lst '(("BOM_UNITS" "我的修改") ("MASS" "1.000") ("MATERIAL" "Q235B") ("TOTAL_MASS" "5.3400") ("DESCR" "A1") ("STANDARD" "A")))

(setq data (xd::vla:stringArrayToSafeArray lst))

(vlax-put-property item0-0-data 'data data)

试试

Lisphk

xxp2277 发表于 2018-12-31 00:26
感谢解答。命令运行后如下：

你要的东西都在这个里面了，属性和方法

试试

(vla-put-title (vlax-ename->vla-object (entsel)) "我的明细表")
或者：(vlax-put-property (vlax-ename->vla-object (entsel)) 'title  "我的明细表")

看看 表名字给你改没？

xxp2277

自己顶一下。

kqqt6236

你要先把明细表上传上来吧

xxp2277

kqqt6236 发表于 2018-12-29 00:08
你要先把明细表上传上来吧

感谢回答。这样一串代码下来：

1. (setq ss (ssadd))
   
2. (ssadd (car (entsel)) ss)
   
3. (setq en (ssname ss 0))
   
4. (entget (en))

(setq ss (ssadd))<br /> (ssadd (car (entsel)) ss)<br /> (setq en (ssname ss 0))<br /> (entget (en))

得到的数据并不是我想要的关于明细表的具体内容。

1. ((-1 . <图元名: 7ffff608300>) (0 . "ACMPARTLIST") (5 . "4E8") (102 . "{ACAD_REACTORS") (330 . <图元名: 7ffff6082c0>) (102 . "}") (330 . <图元名: 7ffff6039f0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcmSymbolClass") (10 410.0 66.0 0.0) (11 1.0 0.0 0.0) (12 0.0 1.0 0.0) (40 . 1.0) (1 . "GB") (100 . "AcmPartList") (10 0.0 0.0 0.0) (94 . 0) (1 . "明细表") (96 . 1) (97 . 1) (340 . <图元名: 7ffff6082c0>) (98 . 2) (290 . 1) (99 . 1) (291 . 0) (70 . 0) (71 . 0) (72 . 20) (73 . 2) (74 . 192) (75 . 0) (330 . <图元名: 0>) (40 . 0.0))

复制代码

           x1   
    >
    <
    >>
    <<
    O

    x1

xxp2277

重复，编辑掉。

marting

xxp2277 发表于 2018-12-29 23:13
感谢回答。这样一串代码下来：

得到的数据并不是我想要的关于明细表的具体内容。

没装机械版，看你提供的数据，是一个ACMPARTLIST的实体，你试试ACTIVEX，看提供了什么方法

1. (defun c:tt()
   
2.     (if (setq e (car (entsel)))
   
3.        (progn
   
4.            (setq o (vlax-ename->vla-object e))
   
5.            (vlax-dump-object o t)
   
6.        )
   
7.     )
   
8.     (princ)
   
9. )

(defun c:tt()<br />     (if (setq e (car (entsel)))<br />        (progn<br />            (setq o (vlax-ename->vla-object e))<br />            (vlax-dump-object o t)<br />        )<br />     )<br />     (princ)<br /> )

加载上面代码，执行TT，选中明细表，然后F2，把文本屏幕列出的都粘贴到论坛来，看看

xxp2277

marting 发表于 2018-12-30 00:38
没装机械版，看你提供的数据，是一个ACMPARTLIST的实体，你试试ACTIVEX，看提供了什么方法

感谢解答。命令运行后如下：

1. 
   
2. 命令: TT
   
3. 
   
4. 选择对象: ; IMcadPartList3: IMcadPartList3 Interface
   
5. ;特性值:
   
6. ;   Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140987198>
   
7. ;   AttachmentPoint = 2
   
8. ;   BOM = #<VLA-OBJECT IMcadBOM4 00000000321c2d78>
   
9. ;   ColumnSplitEnabled = 0
   
10. ;   ColumnSplitRows = 20
    
11. ;   ColumnSplitSections = 2
    
12. ;   ColumnSplitStyle = 0
    
13. ;   ColumnSplitWrap = 0
    
14. ;   CoordinateSystem = 不支持** SafeArray
    
15. ;   CustomBlockName = ""
    
16. ;   CustomBlocks (RO) = 发生意外。
    
17. ;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000002b011c40>
    
18. ;   FilterEmptyBlocks = 0
    
19. ;   Filters (RO) = #<VLA-OBJECT IMcadPartListFilters 00000000322972a8>
    
20. ;   FormulaBarEnabled = -1
    
21. ;   GripFrameEnabled = -1
    
22. ;   Handle (RO) = "4E8"
    
23. ;   Ha**tensionDictionary (RO) = 0
    
24. ;   HeadingTextControl = 1
    
25. ;   Height = 21.0
    
26. ;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000000032297488>
    
27. ;   IsAttached (RO) = -1
    
28. ;   IsCustomBlockUsed (RO) = 0
    
29. ;   IsHeadingEnabled = -1
    
30. ;   IsTitleEnabled = 0
    
31. ;   ItemList = #<VLA-OBJECT IMcadBOMItems 0000000032297608>
    
32. ;   Layer = "0"
    
33. ;   LeaderArrowType = ...不显示带索引的内容...
    
34. ;   LeaderColor = ...不显示带索引的内容...
    
35. ;   LeaderCount (RO) = 0
    
36. ;   LeaderLanding = ...不显示带索引的内容...
    
37. ;   LeaderLineType = ...不显示带索引的内容...
    
38. ;   Linetype = "ByLayer"
    
39. ;   LinetypeScale = 1.0
    
40. ;   Lineweight = -1
    
41. ;   MappingName = ""
    
42. ;   Material = "ByLayer"
    
43. ;   MultipleRow = 1
    
44. ;   ObjectID (RO) = 42
    
45. ;   ObjectID32 (RO) = 42
    
46. ;   ObjectName (RO) = "AcmPartList"
    
47. ;   Origin = (410.0 66.0 0.0)
    
48. ;   OwnerID (RO) = 43
    
49. ;   OwnerID32 (RO) = 43
    
50. ;   PlotStyleName = "ByLayer"
    
51. ;   ResultBarEnabled = 0
    
52. ;   RowTextControl = 1
    
53. ;   Scale = 1.0
    
54. ;   Standard = #<VLA-OBJECT IMcadStandard4 0000000032188138>
    
55. ;   SymbolStandard = #<VLA-OBJECT IMcadBOMStandard2 00000000321881c8>
    
56. ;   Title = "明细表"
    
57. ;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 0000000032297840>
    
58. ;   ViewId = 发生意外。
    
59. ;   ViewID32 = 发生意外。
    
60. ;   Visible = -1
    
61. ;   Width = 180.0
    
62. ;   WrapAroundTitle = 0
    
63. ;   WrapText = 0
    
64. ;   WrapTitleBlockId = 0
    
65. ;   WrapTitleBlockId32 = 0
    
66. ;支持的方法:
    
67. ;   AddFilter (1)
    
68. ;   AddFilterType (1)
    
69. ;   AddLeader (3)
    
70. ;   ArrayPolar (3)
    
71. ;   ArrayRectangular (6)
    
72. ;   AttachGeometry (5)
    
73. ;   Copy ()
    
74. ;   Delete ()
    
75. ;   DetachGeometry (2)
    
76. ;   GetBoundingBox (2)
    
77. ;   GetExtensionDictionary ()
    
78. ;   GetLeader (2)
    
79. ;   GetLeaderAttachment (3)
    
80. ;   GetXData (3)
    
81. ;   Highlight (1)
    
82. ;   InsertLeaderNode (3)
    
83. ;   IntersectWith (2)
    
84. ;   Mirror (2)
    
85. ;   Mirror3D (3)
    
86. ;   Move (2)
    
87. ;   MoveLeaderNode (3)
    
88. ;   RemoveFilter (2)
    
89. ;   RemoveLeader (1)
    
90. ;   RemoveLeaderNode (2)
    
91. ;   Rotate (2)
    
92. ;   Rotate3D (3)
    
93. ;   ScaleEntity (2)
    
94. ;   SetToDefaults ()
    
95. ;   setWrapPListAttachPoint ()
    
96. ;   SetXData (2)
    
97. ;   TransformBy (1)
    
98. ;   Update ()
    
99. ;   UpdateToAttachedObject ()
    

复制代码

xxp2277

Lisphk 发表于 2018-12-31 01:15
你要的东西都在这个里面了，属性和方法

试试

大神，修改成功了，感谢！

1. (vla-put-title (vlax-ename->vla-object (car (entsel))) "我的明细表")

(vla-put-title (vlax-ename->vla-object (car (entsel))) "我的明细表")

xxp2277

Lisphk 发表于 2018-12-31 01:15
你要的东西都在这个里面了，属性和方法

试试

明细表的名字能改变了，但如果要获取和修改明细表里具体的内容应该如何做呢？

marting

xxp2277 发表于 2018-12-31 09:14
明细表的名字能改变了，但如果要获取和修改明细表里具体的内容应该如何做呢？

没有软件，只能猜了
你试试里面的itemlist对象，看它里面有什么

(setq item (vla-get-itemlist (vlax-ename->vla-object (entsel))))
(vlax-dump-object item t)

再试试读下BOM
(setq bom (vla-get-bom (vlax-ename->vla-object (entsel))))
(vlax-dump-object bom t)

xxp2277

marting 发表于 2018-12-31 12:46
没有软件，只能猜了
你试试里面的itemlist对象，看它里面有什么

先使用

1. (setq ob (vlax-ename->vla-object (car (entsel))))

(setq ob (vlax-ename->vla-object (car (entsel))))

然后分别用

1. (setq itemlist (vlax-get-property ob 'ItemList))
   
2. (vlax-dump-object itemlist t)

(setq itemlist (vlax-get-property ob 'ItemList))<br /> (vlax-dump-object itemlist t)

和

1. (setq bom (vlax-get-property ob 'bom))
   
2. (vlax-dump-object bom t)

(setq bom (vlax-get-property ob 'bom))<br /> (vlax-dump-object bom t)

分别得到如下结果：

1. #<VLA-OBJECT IMcadBOMItems 00000000328252d8>
   
2. ; IMcadBOMItems: IMcadBOMItems Interface
   
3. ;特性值:
   
4. ;   Application (RO) = #<VLA-OBJECT IAcadApplication 00000001405b7198>
   
5. ;   Count (RO) = 2
   
6. ;支持的方法:
   
7. ;   Add (1)
   
8. ;   Item (1)
   
9. ;   Remove (1)
   
10. T

复制代码

1. #<VLA-OBJECT IMcadBOM4 000000003271d918>
   
2. ; IMcadBOM4: IMcadBOM4 Interface
   
3. ;特性值:
   
4. ;   Application (RO) = #<VLA-OBJECT IAcadApplication 00000001405b7198>
   
5. ;   Count (RO) = 2
   
6. ;   Data = 不支持** SafeArray
   
7. ;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000002b291810>
   
8. ;   Handle (RO) = "4E4"
   
9. ;   Ha**tensionDictionary (RO) = 0
   
10. ;   IsBorder (RO) = 0
    
11. ;   IsVisible (RO) = -1
    
12. ;   Items (RO) = ...不显示带索引的内容...
    
13. ;   Name = "MAIN"
    
14. ;   ObjectID (RO) = 43
    
15. ;   ObjectID32 (RO) = 43
    
16. ;   ObjectName (RO) = "AcmBom"
    
17. ;   OwnerID (RO) = 44
    
18. ;   OwnerID32 (RO) = 44
    
19. ;   PartLists (RO) = #<VLA-OBJECT IMcadPartLists 0000000032824f78>
    
20. ;   Target (RO) = 发生意外。
    
21. ;支持的方法:
    
22. ;   AddItem (2)
    
23. ;   AddObject (2)
    
24. ;   AddUnassociatedItem (3)
    
25. ;   AddXRecord (1)
    
26. ;   applySort ()
    
27. ;   Delete ()
    
28. ;   GetExtensionDictionary ()
    
29. ;   GetName (1)
    
30. ;   GetObject (1)
    
31. ;   GetProperties (5)
    
32. ;   GetProperties32 (5)
    
33. ;   GetStructuredChildItems (2)
    
34. ;   GetStructuredParentItem (2)
    
35. ;   GetXData (3)
    
36. ;   Item (1)
    
37. ;   MergeItems (1)
    
38. ;   Remove (1)
    
39. ;   Rename (2)
    
40. ;   Replace (2)
    
41. ;   SetProperties (5)
    
42. ;   SetXData (2)
    
43. ;   SplitItem (2)
    
44. T

复制代码

marting

xxp2277 发表于 2018-12-31 13:59
先使用
然后分别用
和

DOM对象里面可能有你要的


(setq bom (vlax-get-property ob 'bom))
(vlax-dump-object bom t)

然后：
加载下面函数：

[Actionscript3] 纯文本查看 复制代码

(defun XD::VLA:Variant->List ( x )
    (cond
        (   (= 'list (type x))
            (mapcar 'XD::VLA:Variant->List x)
        )
        (   (= 'variant (type x))
            (XD::VLA:Variant->List (vlax-variant-value x))
        )
        (   (= 'safearray (type x))
            (XD::VLA:Variant->List (vlax-safearray->list x))
        )
        (   x   )
    )
)

然后执行：

(setq lst (vla-get-items bom)
        arr (xd::vla:variant->list lst))

看看得到什么？

xxp2277

marting 发表于 2018-12-31 14:13
DOM对象里面可能有你要的

我这边的诸如：vla-get-items、vla-get-bom、vla-get-itemlist在我这里都未定义。我使用类似这种代替的：(vlax-get-property ob 'bom)。
这次的试验中：重新开始依次执行：

1. (setq ob (vlax-ename->vla-object (car (entsel))))
   
2. (setq bom0 (vlax-get-property ob 'bom))

(setq ob (vlax-ename->vla-object (car (entsel))))<br /> (setq bom0 (vlax-get-property ob 'bom))

然后载入：(load "X:\\XD2list.lsp");提示XD::VLA:VARIANT->LIST命令成功
然后执行：(setq lst (vla-get-items bom0) arr (xd::vla:variant->list lst))
提示
; 错误: no function definition: VLA-GET-ITEMS
这次用 (vlax-get-property bom0 'items)代替 (vla-get-items bom0)就提示：
; 错误: 实参太少

marting

xxp2277 发表于 2018-12-31 15:09
我这边的诸如：vla-get-items、vla-get-bom、vla-get-itemlist在我这里都未定义。我使用类似这种代替的： ...

(vlax-get-property bom0 'items) 换成

(vlax-get-property bom0 'items 0) 看有值没？