求教如何修改动态块中的特性呢

qianwh1210

求教,这是一个动态图块,设置了d1和d2拉伸动作,,,
现在想(GETINT "输入d1")和(GETINT "输入d2") 来实现这个图块的动态调整

newbuser

你好，请发个带图块的dwg上来才会有人帮你测试啊。

鱼与熊掌

;返回动态快属性和值
(defun cx_b_sx (en / obj pros)
  (setq obj (vlax-ename->vla-object en))
  (setq Pros (vlax-invoke obj 'GetDynamicBlockProperties))
  (mapcar '(lambda (X)
                        (cons (vlax-get X 'PropertyName) (vlax-get X 'Value))
                )
          Pros
  )                                        ;返回值
)


;动态快属性值修改 n第N 项
(defun cx_b_sxg        (en n dis / obj osbproperty pros2)
       
  (setq        obj   (vlax-ename->vla-object en)
                Pros2 (vlax-variant-value (vla-GetDynamicBlockProperties obj))
  )
  (setq oSBProperty (vlax-safearray-get-element Pros2 (* n 2)))
        ;;;起始为0，+2为下一属性值，以此类推
  (vla-put-value
    oSBProperty
    (vlax-make-variant
      dis
                        ;;;修改的值
      (vlax-variant-type (vla-get-value oSBProperty))
    )
  )
)