找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1762|回复: 27

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

[复制链接]
发表于 2018-12-27 00:47:40 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
本帖最后由 xxp2277 于 2019-1-1 00:05 编辑

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


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

BOM2.png
———————————————————————————分割线———————————————————

  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. )

我自己用的主要的读取代码如上,其中
(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


test_bom.zip

70.6 KB, 下载次数: 4, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-12-31 18:08:08 | 显示全部楼层
本帖最后由 newer 于 2018-12-31 18:45 编辑
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)

试试

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-12-31 01:15:54 | 显示全部楼层
本帖最后由 Lisphk 于 2018-12-31 01:18 编辑
xxp2277 发表于 2018-12-31 00:26
感谢解答。命令运行后如下:

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

试试

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

看看 表名字给你改没?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2018-12-28 22:37:24 | 显示全部楼层
自己顶一下。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6056个

财富等级: 富甲天下

发表于 2018-12-29 00:08:28 | 显示全部楼层
你要先把明细表上传上来吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-12-29 23:13:55 | 显示全部楼层
本帖最后由 xxp2277 于 2018-12-29 23:19 编辑
kqqt6236 发表于 2018-12-29 00:08
你要先把明细表上传上来吧

感谢回答。这样一串代码下来:
  1. (setq ss (ssadd))
  2. (ssadd (car (entsel)) ss)
  3. (setq en (ssname ss 0))
  4. (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


点评

没装机械版,看你提供的数据,是一个ACMPARTLIST的实体,你试试ACTIVEX,看提供了什么方法 (defun c:tt() (if (setq e (car (entsel))) (progn (setq o (vlax-ename->vla-object e))  详情 回复 发表于 2018-12-30 00:38
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-12-29 23:15:16 | 显示全部楼层
重复,编辑掉。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-12-30 00:38:05 | 显示全部楼层
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. )


加载上面代码,执行TT,选中明细表,然后F2,把文本屏幕列出的都粘贴到论坛来,看看
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-12-31 00:26:08 | 显示全部楼层
marting 发表于 2018-12-30 00:38
没装机械版,看你提供的数据,是一个ACMPARTLIST的实体,你试试ACTIVEX,看提供了什么方法

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

  1. 命令: TT

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

点评

你要的东西都在这个里面了,属性和方法 试试 (vla-put-title (vlax-ename->vla-object (entsel)) "我的明细表") 看看 表名字给你改没?  详情 回复 发表于 2018-12-31 01:15
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-12-31 09:01:05 | 显示全部楼层
Lisphk 发表于 2018-12-31 01:15
你要的东西都在这个里面了,属性和方法

试试

大神,修改成功了,感谢!
  1. (vla-put-title (vlax-ename->vla-object (car (entsel))) "我的明细表")
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-12-31 09:14:52 | 显示全部楼层
Lisphk 发表于 2018-12-31 01:15
你要的东西都在这个里面了,属性和方法

试试

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

点评

没有软件,只能猜了 你试试里面的itemlist对象,看它里面有什么 (setq item (vla-get-itemlist (vlax-ename->vla-object (entsel)))) (vlax-dump-object item t) 再试试读下BOM (setq bom (vla-get-bom (vl  详情 回复 发表于 2018-12-31 12:46
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-12-31 12:46:42 | 显示全部楼层
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)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-12-31 13:59:42 | 显示全部楼层
marting 发表于 2018-12-31 12:46
没有软件,只能猜了
你试试里面的itemlist对象,看它里面有什么

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

然后分别用
  1. (setq itemlist (vlax-get-property ob 'ItemList))
  2. (vlax-dump-object itemlist t)


  1. (setq bom (vlax-get-property ob 'bom))
  2. (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
复制代码

点评

DOM对象里面可能有你要的 (setq bom (vlax-get-property ob 'bom)) (vlax-dump-object bom t) 然后: 加载下面函数: [mw_shl_code=actionscript3,true](defun XD::VLA:Variant->List ( x ) (cond  详情 回复 发表于 2018-12-31 14:13
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-12-31 14:13:41 | 显示全部楼层
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))

看看得到什么?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-12-31 15:09:32 | 显示全部楼层
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))

然后载入:(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)就提示:
; 错误: 实参太少

点评

(vlax-get-property bom0 'items) 换成 (vlax-get-property bom0 'items 0) 看有值没?  详情 回复 发表于 2018-12-31 15:20
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-12-31 15:20:55 | 显示全部楼层
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) 看有值没?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-14 20:06 , Processed in 0.256765 second(s), 72 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表