MastroLube 发表于 2022-7-5 19:56:38

如何通过l管理阵列步骤

你好,
我有个小问题要问你。
 
你知道在一个数组动作中是否可以控制元素之间的距离吗?
 
我可以改变动态的礼节,但这个不行
示例:测试。图纸
 
这是我在开发模式中看待动态属性的方式:

_$ (setq ent (vlax-ename->vla-object (car (entsel))))
#<VLA-OBJECT IAcadBlockReference 0000000047467ed8>
_$ (SETQ props (VLAX-INVOKE ent 'getdynamicblockproperties))
(#<VLA-OBJECT IAcadDynamicBlockReferenceProperty 0000000046df3af8> #<VLA-OBJECT IAcadDynamicBlockReferenceProperty 0000000046df6c78>)
 
谢谢
丹尼斯

Tharwat 发表于 2022-7-5 20:44:35

试试这个常规,丹尼斯,让我知道。
 

(defun c:test (/ d i s)
;;; Tharwat 09.Apr.2015    ;;;
(if (and (setq s (ssget "_:L" '((0 . "INSERT") (2 . "`*U*"))))
          (setq d (getdist "\n Specify Distance :"))
   )
   (repeat (setq i (sslength s))
   (foreach x (vlax-invoke
                  (vlax-ename->vla-object (ssname s (setq i (1- i))))
                  'getdynamicBlockproperties
                )
       (if (eq "Distanze1" (vla-get-propertyname x))
         (vlax-put x 'value d)
       )
   )
   )
)
(princ)
)
(vl-load-com)

MastroLube 发表于 2022-7-5 21:21:21

你好Tharwat,谢谢你的回复,但这不是我要找的。
对不起,我的错,我的英语不太好。
我会用一些图片来更好地解释
 

 

 
希望现在更清楚了
 
丹尼斯
页: [1]
查看完整版本: 如何通过l管理阵列步骤