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

SunSpring

读取属性代码如下:

1. (vlax-safearray->list
   
2.           (vlax-variant-value
   
3.             (vlax-get-property (vlax-ename->vla-object x) 'Data)
   
4.           )
   
5. )
   

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

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

SunSpring

(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

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

sfzyr

需要把对应的值对用二维数组赋值完整，并对应特性表中的值有效，才不会报错。
(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

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