修改动态块属性

Humanway

用entmake创建一个已存在的动态块，并从图纸中1个相同块的动态块属性复制属性

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 /> )

但对于翻转属性不行，报错说参数类型错误

1. ; 错误: AutoCAD.Application: 输入无效
   
2. 参数类型错误: VLA-OBJECT nil

复制代码

请大神指教，万分感谢

SHUNDocker

期待大佬解答，有一样的疑问！