ollie 发表于 2022-7-6 14:12:58

将vla插入点转换为

标题说明了一切
 
有什么想法吗
 
谢谢

lpseifert 发表于 2022-7-6 14:22:19

也许是这样？

(setq obj (vlax-ename->vla-object (car (entsel)))
   var (vla-get-insertionpoint obj)
      sa (vlax-variant-value var)
ip-lst (vlax-safearray->list sa)
)

ollie 发表于 2022-7-6 14:28:44

 
谢谢，这很理想。我之前尝试过这个方法，没有变量值，但它不起作用

Lee Mac 发表于 2022-7-6 14:38:49

另一种方式：
 

(vlax-get Obj 'InsertionPoint)

lpseifert 发表于 2022-7-6 14:47:36

嘿使用未记录的函数是不公平的！
你在哪里找到这些？

Lee Mac 发表于 2022-7-6 14:51:47

 
我不知道tbh，你只需要边走边捡——从其他人的代码等。

lpseifert 发表于 2022-7-6 15:03:14

这是一个很好的例子。。。适用于所有可用属性（从转储）？

Lee Mac 发表于 2022-7-6 15:05:57

 
是的，只是平常的一种选择。我还没有遇到任何问题，尽管存在一些bug，其中一些方法/属性以不同的方式响应不同的函数。
 
李

lpseifert 发表于 2022-7-6 15:13:12

谢谢李
页: [1]
查看完整版本: 将vla插入点转换为