请教一下如何操作动态块

54256

我用可见性做了动态块，点三角形的夹点就能选择我需要的可见性参数
如果用lisp该如何完成上述动作呢？
看论坛里讲动态块的内容不多，望高手指教
另外，明经怎么变这么慢呢

gaics

(defun c:ttt (/ obj pros i pro)
  (setq obj (vlax-ename->vla-object (car (entsel))))
  (setq pros (vlax-invoke obj 'GetDynamicBlockProperties))
  (setq i 0)
  (while (< i (length pros))
    (setq pro (nth i pros))
    (if        (wcmatch (vla-get-propertyname pro) "可见性*,Visibility*")
      (vla-put-value pro "xxx");;"xxx"是动态块的可见性状态名称，改成你需要的。
    )
    (setq i (1+ i))
  )
  (princ)
)

gaics

;;obj是目标动态块
;;value是动态块的可见性状态名称
(defun ch-visibility (obj value / pros i pro)
  (setq pros (vlax-invoke obj 'GetDynamicBlockProperties))
  (setq i 0)
  (while (< i (length pros))
    (setq pro (nth i pros))
    (if (wcmatch (vla-get-propertyname pro) "可见性*,Visibility*")
      (vla-put-value pro value)
    )
    (setq i (1+ i))
  )
)