[求助]关于“在CAD中插入时间和日期”的显示问题

amook147

豆包 分分钟解决。。。

alexmai

;;;改为“保存日期”字段文字
(defun c:rqqq()
   (while
        (setq obj (nentselp "\n 选择文字  [Exit]:"))
        (setq obj (vlax-ename->vla-object (car obj)))
        (vlax-property-available-p obj "TextString")
        (vla-put-TextString obj (strcat "%<\\AcVar SaveDate \\f \"yyyy.MM.dd\">%"))
   )
   (command "REGENall")
)