求助------能不能改变动态块的拉伸宽度

挪威的森林

我想通过程序来改变动态块的属性，比如要把宽度改成1000。因该怎么做才能实现目的呢？

ORCHI

没什么人回答啊，我也遇到这个问题了，不知道怎么用编程方法对动态块进行拉伸、移动等操作。希望高人解答啊。

davide888

我也想知道     

zlg258369

2. (setq obj (vlax-ename->vla-object (entlast)))
   
3.       (setq
   
4.         Pros (vlax-variant-value (vla-GetDynamicBlockProperties obj))
   
5.       )
   
6.       (setq oSBProperty (vlax-safearray-get-element Pros 0))  ;;;起始为0，+2为下一属性值，以此类推
   
7.       (vla-put-value
   
8.         oSBProperty
   
9.         (vlax-make-variant
   
10.           200.0                                                                         ;;;修改的值
    
11.           (vlax-variant-type (vla-get-value oSBProperty))
    
12.         )
    
13.       )

(setq obj (vlax-ename->vla-object (entlast)))<br />       (setq<br />         Pros (vlax-variant-value (vla-GetDynamicBlockProperties obj))<br />       )<br />       (setq oSBProperty (vlax-safearray-get-element Pros 0))  ;;;起始为0，+2为下一属性值，以此类推<br />       (vla-put-value<br />         oSBProperty<br />         (vlax-make-variant<br />           200.0                                                                         ;;;修改的值<br />           (vlax-variant-type (vla-get-value oSBProperty))<br />         )<br />       )

司马睿

这段代码我正好可以用的上

davide888

zlg258369 发表于 2013-9-18 19:40

非常感谢      

davide888

zlg258369 发表于 2013-9-18 19:40

大神帮忙啊    数值类型好改了    像翻转及可见性没办法改啊

zlg258369

davide888 发表于 2013-9-23 10:31
大神帮忙啊    数值类型好改了    像翻转及可见性没办法改啊

换个新的，这是别人的

2. ;; Get Dynamic Block Property Value  -  Lee Mac
   
3. ;; Returns the value of a Dynamic Block property (if present)
   
4. ;; blk - [vla] VLA Dynamic Block Reference object
   
5. ;; prp - [str] Dynamic Block property name (case-insensitive)
   
6. 
   
7. (defun LM:getdynpropvalue ( blk prp )
   
8.     (setq prp (strcase prp))
   
9.     (vl-some '(lambda ( x ) (if (= prp (strcase (vla-get-propertyname x))) (vlax-get x 'value)))
   
10.         (vlax-invoke blk 'getdynamicblockproperties)
    
11.     )
    
12. )
    
13. 
    
14. ;; Set Dynamic Block Property Value  -  Lee Mac
    
15. ;; Modifies the value of a Dynamic Block property (if present)
    
16. ;; blk - [vla] VLA Dynamic Block Reference object
    
17. ;; prp - [str] Dynamic Block property name (case-insensitive)
    
18. ;; val - [any] New value for property
    
19. ;; Returns: [any] New value if successful, else nil
    
20. 
    
21. (defun LM:setdynpropvalue ( blk prp val )
    
22.     (setq prp (strcase prp))
    
23.     (vl-some
    
24.        '(lambda ( x )
    
25.             (if (= prp (strcase (vla-get-propertyname x)))
    
26.                 (progn
    
27.                     (vla-put-value x (vlax-make-variant val (vlax-variant-type (vla-get-value x))))
    
28.                     (cond (val) (t))
    
29.                 )
    
30.             )
    
31.         )
    
32.         (vlax-invoke blk 'getdynamicblockproperties)
    
33.     )
    
34. )

;; Get Dynamic Block Property Value  -  Lee Mac<br /> ;; Returns the value of a Dynamic Block property (if present)<br /> ;; blk - [vla] VLA Dynamic Block Reference object<br /> ;; prp - [str] Dynamic Block property name (case-insensitive)<br /> <br /> (defun LM:getdynpropvalue ( blk prp )<br />     (setq prp (strcase prp))<br />     (vl-some '(lambda ( x ) (if (= prp (strcase (vla-get-propertyname x))) (vlax-get x 'value)))<br />         (vlax-invoke blk 'getdynamicblockproperties)<br />     )<br /> )<br /> <br /> ;; Set Dynamic Block Property Value  -  Lee Mac<br /> ;; Modifies the value of a Dynamic Block property (if present)<br /> ;; blk - [vla] VLA Dynamic Block Reference object<br /> ;; prp - [str] Dynamic Block property name (case-insensitive)<br /> ;; val - [any] New value for property<br /> ;; Returns: [any] New value if successful, else nil<br /> <br /> (defun LM:setdynpropvalue ( blk prp val )<br />     (setq prp (strcase prp))<br />     (vl-some<br />        '(lambda ( x )<br />             (if (= prp (strcase (vla-get-propertyname x)))<br />                 (progn<br />                     (vla-put-value x (vlax-make-variant val (vlax-variant-type (vla-get-value x))))<br />                     (cond (val) (t))<br />                 )<br />             )<br />         )<br />         (vlax-invoke blk 'getdynamicblockproperties)<br />     )<br /> )

(LM:getdynpropvalue (vlax-ename->vla-object (car (entsel))) "门状态")
(LM:setdynpropvalue (vlax-ename->vla-object (car (entsel))) "门状态" "打开45度")

davide888

zlg258369 发表于 2013-9-23 12:21
换个新的，这是别人的(LM:getdynpropvalue (vlax-ename->vla-object (car (entsel))) "门状态")
(LM:set ...

好人，不过setdynpropvalue是2012以后的函数吧

zlg258369

davide888 发表于 2013-9-23 15:33
好人，不过setdynpropvalue是2012以后的函数吧

这我倒是没试过，我用的是2012