高老师，请教Entmake创建动态块的问题

Humanway

对于有可见性的动态块，有两个问题，着实找不到办法
1、怎么获得有可见性动态块，当前的显示状态
2、用entmake创建有可见性的动态块，怎么在创建时，指定显示状态
谢谢

smartstar

据说entmake不能创建动态块，可以插入动态块：
;;说明:获取动态块原始块名
;;参数:msg:拾取图元提示
;;返回:动态块原始块名
(defun ddk-name (msg / entity)
        (setq entity (vla-get-EffectiveName (vlax-ename->vla-object (car (while (not entity)
                                                                                                                 (setq entity (entsel msg)))
                                                                                                             )
                                                              )
                         )
        )
)
;;[功能] Entmake插入块(插入属性块时，属性丢失) by自贡黄明儒整理
;;(EntmakeInsert "ccd1" (getpoint))
(defun EntmakeInsert(name pt)
  (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
)
(defun c:tt()
(setq e (ddk-name  "\n请选择动态块："))
(setq pt (getpoint "\n请确定插入点:"))
(EntmakeInsert e pt)
(princ)
)
参考：http://bbs.mjtd.com/forum.php?mo ... make%2B%B6%AF%CC%AC

Humanway

smartstar 发表于 2020-9-28 11:16
据说entmake不能创建动态块，可以插入动态块：
;;说明:获取动态块原始块名
;;参数:msg:拾取图元提示

请问怎样列出动态块的可见性列表，并指定具体的可见性呢？

gaics

Humanway 发表于 2020-9-29 10:27
请问怎样列出动态块的可见性列表，并指定具体的可见性呢？

[提问] 请教一下如何操作动态块
参考这篇帖子

1. ;;;获取所有允许的可见性状态
   
2.   (defun get-visibility-allowedvalues (obj / pros i pro values value lst)
   
3.   (setq pros (vlax-invoke obj 'GetDynamicBlockProperties))
   
4.   (setq i 0)
   
5.   (while (< i (length pros))
   
6.     (setq pro (nth i pros))
   
7.     (if        (wcmatch (vla-get-propertyname pro) "可见性*,Visibility*")
   
8.       (setq values (vlax-safearray->list
   
9.                      (vlax-variant-value (vla-get-allowedvalues pro))
   
10.                    )
    
11.       )
    
12.     )
    
13.     (setq i (1+ i))
    
14.   )
    
15.   (setq i 0 lst '())
    
16.   (repeat (length values)
    
17.     (setq value (vlax-variant-value (nth i values)))
    
18.     (setq lst(cons value lst))
    
19.     (setq i (1+ i))
    
20.   )
    
21.   lst
    
22. )
    
23. ;;;获取当前可见性状态
    
24. (defun get-visibility-value (obj / pros i pro value)
    
25.   (setq pros (vlax-invoke obj 'GetDynamicBlockProperties))
    
26.   (setq i 0)
    
27.   (while (< i (length pros))
    
28.     (setq pro (nth i pros))
    
29.     (if        (wcmatch (vla-get-propertyname pro) "可见性*,Visibility*")
    
30.       (setq value (vlax-variant-value (vla-get-value pro)))
    
31.     )
    
32.     (setq i (1+ i))
    
33.   )
    
34.   value
    
35. )
    
36. ;;;设置可见性状态
    
37. (defun put-visibility-value (obj value / pros i pro)
    
38.   (setq pros (vlax-invoke obj 'GetDynamicBlockProperties))
    
39.   (setq i 0)
    
40.   (while (< i (length pros))
    
41.     (setq pro (nth i pros))
    
42.     (if        (wcmatch (vla-get-propertyname pro) "可见性*,Visibility*")
    
43.       (vla-put-value pro value)
    
44.     )
    
45.     (setq i (1+ i))
    
46.   )
    
47. )

;;;获取所有允许的可见性状态<br />   (defun get-visibility-allowedvalues (obj / pros i pro values value lst)<br />   (setq pros (vlax-invoke obj 'GetDynamicBlockProperties))<br />   (setq i 0)<br />   (while (< i (length pros))<br />     (setq pro (nth i pros))<br />     (if        (wcmatch (vla-get-propertyname pro) "可见性*,Visibility*")<br />       (setq values (vlax-safearray->list<br />                      (vlax-variant-value (vla-get-allowedvalues pro))<br />                    )<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (setq i 0 lst '())<br />   (repeat (length values)<br />     (setq value (vlax-variant-value (nth i values)))<br />     (setq lst(cons value lst))<br />     (setq i (1+ i))<br />   )<br />   lst<br /> )<br /> ;;;获取当前可见性状态<br /> (defun get-visibility-value (obj / pros i pro value)<br />   (setq pros (vlax-invoke obj 'GetDynamicBlockProperties))<br />   (setq i 0)<br />   (while (< i (length pros))<br />     (setq pro (nth i pros))<br />     (if        (wcmatch (vla-get-propertyname pro) "可见性*,Visibility*")<br />       (setq value (vlax-variant-value (vla-get-value pro)))<br />     )<br />     (setq i (1+ i))<br />   )<br />   value<br /> )<br /> ;;;设置可见性状态<br /> (defun put-visibility-value (obj value / pros i pro)<br />   (setq pros (vlax-invoke obj 'GetDynamicBlockProperties))<br />   (setq i 0)<br />   (while (< i (length pros))<br />     (setq pro (nth i pros))<br />     (if        (wcmatch (vla-get-propertyname pro) "可见性*,Visibility*")<br />       (vla-put-value pro value)<br />     )<br />     (setq i (1+ i))<br />   )<br /> )