怎么修改动态块属性

Humanway

两个相同的动态块，将其中一个属性，赋值给另一个

2. (defun c:copypps (/ obj ppts)
   
3.   (setq  obj        (vlax-ename->vla-object (car (entsel)))
   
4.   AllowedValues nil
   
5.   ppts nil
   
6.   )
   
7.   (if (setq obj (vlax-invoke obj 'GetDynamicBlockProperties)
   
8.       ent obj)
   
9.     (progn
   
10.       (repeat (length obj)
    
11.   (if (= (vlax-get (car obj) 'show) -1)
    
12.     (setq ppts (append ppts (list (vlax-get (car obj) 'Value))))
    
13.   )
    
14.   (setq obj (cdr obj))
    
15.       )
    
16.       (setq obj  (vlax-invoke
    
17.       (vlax-ename->vla-object (car (entsel)))
    
18.       'GetDynamicBlockProperties
    
19.     )
    
20.       i obj
    
21.       )
    
22.       (while ppts
    
23.   (if (= (vlax-get (car obj) 'show) -1)
    
24.     (progn
    
25.       (vlax-put (car obj) 'Value (car ppts))
    
26.       (setq obj  (cdr obj)
    
27.       ppts (cdr ppts)
    
28.       )
    
29.     )
    
30.     (setq obj (cdr obj))
    
31.   )
    
32.       )
    
33.     )
    
34.   )  
    
35.   (princ)
    
36. )

(defun c:copypps (/ obj ppts)<br />   (setq  obj        (vlax-ename->vla-object (car (entsel)))<br />   AllowedValues nil<br />   ppts nil<br />   )<br />   (if (setq obj (vlax-invoke obj 'GetDynamicBlockProperties)<br />       ent obj)<br />     (progn<br />       (repeat (length obj)<br />   (if (= (vlax-get (car obj) 'show) -1)<br />     (setq ppts (append ppts (list (vlax-get (car obj) 'Value))))<br />   )<br />   (setq obj (cdr obj))<br />       )<br />       (setq obj  (vlax-invoke<br />       (vlax-ename->vla-object (car (entsel)))<br />       'GetDynamicBlockProperties<br />     )<br />       i obj<br />       )<br />       (while ppts<br />   (if (= (vlax-get (car obj) 'show) -1)<br />     (progn<br />       (vlax-put (car obj) 'Value (car ppts))<br />       (setq obj  (cdr obj)<br />       ppts (cdr ppts)<br />       )<br />     )<br />     (setq obj (cdr obj))<br />   )<br />       )<br />     )<br />   )  <br />   (princ)<br /> )

对于长度、可见性等属性都可以正常赋值，但如果是翻转属性，就会报错说参数错误，请教高老师，这种情况，怎么处理，谢谢。

Humanway

竟然自己找到答案了，函数修改如下：

2. (defun c:copypps (/ obj ppts)
   
3.   ;获取块的对象名
   
4.   (setq        obj  (vlax-ename->vla-object (car (entsel)))
   
5.         ppts nil
   
6.   )
   
7.   ;判断是否为动态块，如果是，获取动态块属性
   
8.   (if (setq obj (vlax-invoke obj 'GetDynamicBlockProperties))
   
9.     (progn
   
10.       (repeat (length obj)
    
11.         ;判断是否为只读属性，不是，则记录value值
    
12.         (if (= (vlax-get (car obj) 'ReadOnly) 0)
    
13.           (setq ppts (append ppts (list (vlax-get-property (car obj) 'Value))))
    
14.         )
    
15.         (setq obj (cdr obj))
    
16.       )
    
17.       ;获取要修改属性动态块的属性表，该块必须与需复制块是同类块
    
18.       (setq obj        (vlax-invoke
    
19.                   (vlax-ename->vla-object (car (entsel)))
    
20.                   'GetDynamicBlockProperties
    
21.                 )
    
22.       )
    
23.       ;将所有非只读属性，按第1个块的值进行修改
    
24.       (while ppts
    
25.         (if (= (vlax-get (car obj) 'ReadOnly) 0)
    
26.           (progn
    
27.             (vlax-put-property (car obj) 'Value (car ppts))
    
28.             (setq obj  (cdr obj)
    
29.                   ppts (cdr ppts)
    
30.             )
    
31.           )
    
32.           (setq obj (cdr obj))
    
33.         )
    
34.       )
    
35.     )
    
36.   )
    
37.   (princ)
    
38. )

(defun c:copypps (/ obj ppts)<br />   ;获取块的对象名<br />   (setq        obj  (vlax-ename->vla-object (car (entsel)))<br />         ppts nil<br />   )<br />   ;判断是否为动态块，如果是，获取动态块属性<br />   (if (setq obj (vlax-invoke obj 'GetDynamicBlockProperties))<br />     (progn<br />       (repeat (length obj)<br />         ;判断是否为只读属性，不是，则记录value值<br />         (if (= (vlax-get (car obj) 'ReadOnly) 0)<br />           (setq ppts (append ppts (list (vlax-get-property (car obj) 'Value))))<br />         )<br />         (setq obj (cdr obj))<br />       )<br />       ;获取要修改属性动态块的属性表，该块必须与需复制块是同类块<br />       (setq obj        (vlax-invoke<br />                   (vlax-ename->vla-object (car (entsel)))<br />                   'GetDynamicBlockProperties<br />                 )<br />       )<br />       ;将所有非只读属性，按第1个块的值进行修改<br />       (while ppts<br />         (if (= (vlax-get (car obj) 'ReadOnly) 0)<br />           (progn<br />             (vlax-put-property (car obj) 'Value (car ppts))<br />             (setq obj  (cdr obj)<br />                   ppts (cdr ppts)<br />             )<br />           )<br />           (setq obj (cdr obj))<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

lxl217114

厉害了

sunwei2009

谢谢分享 学习了

depgfdepgf

大佬是否可以改为框选模式，谢谢

ferious

为何只能改一个拉伸长度，没有阵列？