[LISP]：[编程申请]：求助]：除了ctrl+1，可以一键打开和关闭特性对话框吗？

tcht

(defun c:ttest (/ tt apple_sel apple_nnblk)
(vl-load-com)
  (setq tt t)
   (while tt
     (setvar "errno" 0)
     (setq apple_sel (entsel "\n选择要改为匿名块的图块: ")
   )
     (if (/= (getvar "errno") 7)
      (setq tt nil)
       )
     )
(setq apple_nnblk (vlax-ename->vla-object(car apple_sel)))
(if (= (vla-get-objectname apple_nnblk) "AcDbBlockReference")
  (progn
    (vla-put-name
      (vla-item (vla-get-blocks
       (vla-get-activedocument (vlax-get-acad-object))
     )
(vla-get-name apple_nnblk)
)
"*U"    
      ) 
    )   
  (princ "\n######---选择物体非块---######")
   )
    (princ)
)

phoenixdjq

(defun c:VC()
(if (= jilujilu nil)
(setq jilujilu 1)
)
(if (= (rem jilujilu 2) 0)
(command "properties")
(command "propertiesclose")
)
(setq jilujilu (+ 1 jilujilu ))
(princ)
)