生成目录

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

大家好，

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

谢谢

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

您可以使用CDATE系统变量获取当前日期：

copy

(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函数，例如：

copy

;; Get Date  -  Lee Mac
;; A wrapper for the edtime DIESEL function
(defun LM:GetDate ( format )
   (menucmd (strcat "m=$(edtime,$(getvar,DATE)," format ")"))
)

copy

_$ (LM:GetDate "YYYY MO DD")
"2012 02 06"

参考：

copy

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

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

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

不确定您是否知道这一点，但使用（VL mkdir“dirname”）

[编程交流] 生成目录

发表回复

精选推荐