woodman78 发表于 2022-7-6 08:19:58

生成目录

大家好，
 
我们最近改变了存储已发布图纸的方式。我正在寻找将创建文件夹的lisp，但我想获取当前图形保存在其中的文件夹，添加已发布的图形，然后提示输入新文件夹的名称。可以将当前日期设置为YYYY-MM-DD格式作为对话框中的默认日期吗？
 
谢谢

MSasu 发表于 2022-7-6 08:36:45

您可以使用CDATE系统变量获取当前日期：
 
(setq theDate(rtos (getvar "CDATE") 2 6)
   theYear(substr theDate 1 4)
   theMonth (substr theDate 5 2)
   theDay   (substr theDate 7 2))
 
当做
米尔恰

Lee Mac 发表于 2022-7-6 08:51:05

当我需要日期时，我使用DIESEL edtime函数，例如：
 
;; Get Date-Lee Mac
;; A wrapper for the edtime DIESEL function

(defun LM:GetDate ( format )
   (menucmd (strcat "m=$(edtime,$(getvar,DATE)," format ")"))
)
_$ (LM:GetDate "YYYY MO DD")
"2012 02 06"
参考：
 
4

woodman78 发表于 2022-7-6 09:09:42

好东西，李。谢谢你也一样。毫无疑问，我会带着问题回来的。

BIGAL 发表于 2022-7-6 09:22:32

不确定您是否知道这一点，但使用（VL mkdir“dirname”）
页: [1]
查看完整版本: 生成目录