文件名、版本和日期

Baber62 · 发表于 2022-7-5 23:37:14

您好，如果一个新文件尚未保存，我需要一个lisp例程来执行以下操作。将其另存为[Filename-Rev 000-Date-Time]，其中会提示用户输入文件名。然后在绘制完图纸后，将版次增加1，并添加新的日期和时间。时间应为“hh-mm”格式。

此外，保存图形时，应将其保存在两个位置，一个在替代文件夹中，另一个在当前文件夹中。

我已经设法使用vba创建了一个宏，它可以为excel电子表格创建宏，只是想知道是否可以在lisp中为AutoCAD图形创建类似的宏。

MSasu · 发表于 2022-7-5 23:47:43

您可以重新定义SAVE命令以按这种方式操作。

Baber62 · 发表于 2022-7-5 23:59:07

您好，米尔恰，任何关于如何做到这一点的建议将不胜感激。

MSasu · 发表于 2022-7-6 00:05:02

启动器：

copy

(vl-load-com)
(command "_UNDEFINE" "_QSAVE")
(defun c:QSave( / stringDate fileName )
(setq stringDate (rtos (getvar "CDATE") 2 6))
(if (eq (getvar "DWGTITLED") 0)   ;test if drawing was saved
 (if (setq fileName (getfiled "Save drawing" (getvar "DWGPREFIX") "DWG" 1))
  (command "_.SAVE" (strcat (vl-filename-directory fileName) "\"
                            (vl-filename-base fileName)
                            "-Rev000-" 
                            (substr stringDate 1  
                            "-"
                            (substr stringDate 10 4)
                            (vl-filename-extension fileName)))
 )
)
(princ)
)
;(command "_REDEFINE" "_QSAVE")   ;to get ride later of this change