检索距离参数fr

poorestchump · 发表于 2022-7-6 11:24:58

我对vlisp了解不够，无法独自完成这项工作。我附加了一个带有动态块的dwg和一个对零件进行编号并合计数量的例程。我需要另一个例程，该例程将查找与在块编辑器中创建的拉伸参数之间的距离，以便只有具有相同长度的同名零件才会显示在数据提取表的同一行上。我在任何地方都找不到任何可以证明这一点的证据。
请帮助我：(
提前感谢，
接线盒
废旧物品图纸
333.LSP

ollie · 发表于 2022-7-6 12:03:35

你好

下面的代码将引导您上路。选择块后，它将在命令行中列出属性及其相应的值

希望这有帮助
奥利

Lee Mac · 发表于 2022-7-6 12:44:30

以下是获取动态块特性的一种方法：

copy


(defun GetDynProps (obj)
 (if (eq :vlax-true (vla-get-isDynamicBlock obj))
   (mapcar
     (function
       (lambda (x)
         (list (vla-get-PropertyName x)
               (if (= 8192 (logand 8192 (vlax-variant-type
                                          (setq var (vla-get-value x)))))
                 (vlax-safearray->list
                   (vlax-variant-value var))
                 (vlax-variant-value var)))))
     
   (vlax-invoke obj 'GetDynamicBlockProperties))))

还有一个

copy

[编程交流] 检索距离参数fr

发表回复

精选推荐