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

xxp2277

marting 发表于 2018-12-31 15:20
(vlax-get-property bom0 'items) 换成

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

有，但是这也太多了吧。
_$ (vlax-get-property bom0 'items 0)
#<VLA-OBJECT IMcadBOMItems 00000000326b2538>
_$ (vlax-get-property bom0 'items 1)
#<VLA-OBJECT IMcadBOMItems 00000000326b5058>
_$ (vlax-get-property bom0 'items 2)
#<VLA-OBJECT IMcadBOMItems 00000000326b5538>
_$ (vlax-get-property bom0 'items 3)
#<VLA-OBJECT IMcadBOMItems 0000000032827018>
_$ (vlax-get-property bom0 'items 55)
#<VLA-OBJECT IMcadBOMItems 0000000032826e98>
_$ (vlax-get-property bom0 'items 100)
#<VLA-OBJECT IMcadBOMItems 0000000032826b38>
_$ (vlax-get-property bom0 'items 500)
#<VLA-OBJECT IMcadBOMItems 0000000032827198>
_$ (vlax-get-property bom0 'items 1000)
#<VLA-OBJECT IMcadBOMItems 0000000032826fb8>

marting

xxp2277 发表于 2018-12-31 15:31
有，但是这也太多了吧。
_$ (vlax-get-property bom0 'items 0)
#

你把 0 的项 对象提出来，再用上面的方法，看看这个对象下面有什么属性

xxp2277

marting 发表于 2018-12-31 15:38
你把 0 的项 对象提出来，再用上面的方法，看看这个对象下面有什么属性

(setq item0 (vlax-get-property bom0 'items 0))
#<VLA-OBJECT IMcadBOMItems 000000002b226788>
_$ (vlax-dump-object item0 t)
; IMcadBOMItems: IMcadBOMItems Interface
;特性值:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00000001405b7198>
;   Count (RO) = 2
;支持的方法:
;   Add (1)
;   Item (1)
;   Remove (1)
T

xxp2277

marting 发表于 2018-12-31 15:38
你把 0 的项 对象提出来，再用上面的方法，看看这个对象下面有什么属性

不知是否用空帮我远程看下，我站短发不了消息，给我短消息我加你qq帮忙看看吧。

marting

xxp2277 发表于 2018-12-31 15:51
(setq item0 (vlax-get-property bom0 'items 0))
#
_$ (vlax-dump-object item0 t)

再试试ITEM0下面的，都有什么

(vla-item item0 0)

xxp2277

marting 发表于 2018-12-31 15:59
再试试ITEM0下面的，都有什么

(vla-item item0 0)

_$ (setq item0-0 (vla-item item0 0))
#<VLA-OBJECT IMcadBOMItem4 000000003271d878>
_$ (vlax-dump-object item0-0 t)
; IMcadBOMItem4: IMcadBOMItem4 Interface
;特性值:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00000001405b7198>
;   AutoCalculateEnabled = -1
;   Balloons (RO) = #<VLA-OBJECT IMcadBalloons 00000000328773b8>
;   BOM (RO) = #<VLA-OBJECT IMcadBOM4 000000003271d918>
;   Data = 不支持** SafeArray
;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000002b291810>
;   ExcludeFromPartList = 0
;   Expanded = 0
;   Handle (RO) = "4E6"
;   Ha**tensionDictionary (RO) = 0
;   I**pandable (RO) = 0
;   ItemNumber = "1"
;   ObjectID (RO) = 48
;   ObjectID32 (RO) = 48
;   ObjectName (RO) = "AcmBomRow"
;   OwnerID (RO) = 43
;   OwnerID32 (RO) = 43
;   Phantomed (RO) = 0
;   Quantity = 2
;   SortPriority = 1
;支持的方法:
;   AddReference (1)
;   Delete ()
;   GetAttribute (2)
;   GetBomOverride (6)
;   GetCalculatedQuantity (2)
;   GetExtensionDictionary ()
;   GetItemDefinition (2)
;   GetItemDefinition32 (2)
;   GetItemPartDefinition (2)
;   GetItemPartDefinition32 (2)
;   GetPartBalloons (1)
;   GetReferences (1)
;   GetReferences32 (1)
;   GetXData (3)
;   ReferenceExists (1)
;   RemoveAttribute (1)
;   RemoveReference (1)
;   SetAttribute (2)
;   SetAttributePreDefinedListValue (2)
;   SetXData (2)
T

xxp2277

marting 发表于 2018-12-31 15:59
再试试ITEM0下面的，都有什么

(vla-item item0 0)

大神，有qq么？我发送不了站内短信，你如果有空的话是否方便帮忙远程看下？可以的话你给我发站短你的qq，我加你。

marting

xxp2277 发表于 2018-12-31 16:02
_$ (setq item0-0 (vla-item item0 0))
#
_$ (vlax-dump-object item0-0 t)

提  data 属性，继续查

xxp2277

marting 发表于 2018-12-31 16:08
提  data 属性，继续查

_$ (setq item0-0-data (vlax-get-property item0-0 'data))
#<variant 8200 ...>
_$ (vlax-dump-object item0-0-data t)
_$ (vlax-dump-object item0-0-data t)
; 错误: 参数类型错误: VLA-OBJECT #<variant 8200 ...>
_$

运行第一次没有任何反馈，运行两次就出错了。

marting

xxp2277 发表于 2018-12-31 16:17
_$ (setq item0-0-data (vlax-get-property item0-0 'data))
#
_$ (vlax-dump-object item0-0-data t)
...

$ (setq item0-0-data (vlax-get-property item0-0 'data))
#<variant 8200 ...>

出来一次后，你就用上面的给你那个函数

(xd::vla:variant->list item0-0)

xxp2277

marting 发表于 2018-12-31 16:26
$ (setq item0-0-data (vlax-get-property item0-0 'data))
#

(xd::vla:variant->list item0-0-data)
(("BOM_UNITS" "ea") ("MASS" "1.000") ("MATERIAL" "Q235B") ("TOTAL_MASS" "2.000") ("DESCR" "A1") ("STANDARD" "A"))
_$
好吧，终于出来了。
修改的函数应该如何写呢？

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)

试试

xxp2277

marting 发表于 2018-12-31 18:08
（XD::Vla:StringArrayToSafeArray）关联字符串表转安全数组（SafeArray)0 个回复 - 0 次查看命令: !lst  ...

多谢！测试好了我再来上传整理的代码。