关于 Autodesk Mechanical 零件参照属性的 Lisp 写入

SunSpring · 发表于 2013-10-30 21:58

读取属性代码如下:

(vlax-safearray->list
(vlax-variant-value
(vlax-get-property (vlax-ename->vla-object x) 'Data)
)
)

请安装有Mechanical CAD的小伙伴们试试.

SunSpring · 发表于 2013-10-31 13:03

(setq point (vlax-make-safearray vlax-vbString '(0 . 1) '(0 . 1)))
(vlax-make-variant point)
(vlax-safearray-put-element point 0 0 "DESCR")
(vlax-safearray-put-element point 0 1 value)
(vlax-put-property (*en2obj* en) 'Data point)

sfzyr · 发表于 2021-9-29 22:16

你这个是无法写入的，会提示你“; 错误: Automation 错误。未提供说明。”，应为你的二维数组没有填写完成，你需要指定二维数组的各个键值对，增加：
(vlax-safearray-put-element point 1 0 "MATERIAL")
(vlax-safearray-put-element point 1 1 "Q235")
这样，你再put-property时，才不会报错，而且，你的0 0 和1 0对应的值，必须是你的特性表存在的值，否则也会报错。

sfzyr · 发表于 2021-9-29 22:20

需要把对应的值对用二维数组赋值完整，并对应特性表中的值有效，才不会报错。
(setq point (vlax-make-safearray vlax-vbString '(0 . 1) '(0 . 1)))
(vlax-make-variant point)
(vlax-safearray-put-element point 0 0 "DESCR")
(vlax-safearray-put-element point 0 1 “aa”)
(vlax-safearray-put-element point 1 0 "MATERIAL")
(vlax-safearray-put-element point 1 1 "Q235")
(vlax-put-property (vlax-ename->vla-object (car (entsel))) 'Data point)
这样就能修改了

sfzyr · 发表于 2021-9-29 22:31

注意数组赋值要完整且与零件特性中的值对应上，现在我的问题是，那个“块零件参照”，我无法获取他的对象，这样我无法对他进行操作。有机械版CAD的，可以试一下。可以去看看我的帖子：块零件参照的数据如何lisp读取，重新修改写入http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid898355

账号		自动登录	找回密码
密码			注册

[已解答] 关于 Autodesk Mechanical 零件参照属性的 Lisp 写入