Lisp自动运行命令

acad1985 · 发表于 2022-7-5 15:28:32

大家好
我在一个文件夹中有一堆文件，我必须对几个文件进行清除。
我有一个lisp文件可以自动打开文件，
因此，我的想法是，打开文件后，如果文件名有7位数字，则清除命令应自动运行，如果文件名小于/大于7位，则命令不应运行。如果可能的话，我们可以用lisp吗。？

Tharwat · 发表于 2022-7-5 15:34:58

你好

创建阿卡多克。lsp文件（如果它尚未存在于AutoCAD支持文件夹中），然后将代码添加到上述文件中，然后在代码中需要一些代码来检查文件名，如果符合条件，则执行此操作。

acad1985 · 发表于 2022-7-5 15:35:11

嗨Tharwat
感谢您的回复，如果我将代码添加到acaddoc中。lsp，这将在每次打开我的AutoCAD时运行所有文件，但如果文件名有七位数字（例如1234_A3），则只需要自动运行purge命令。

BIGAL · 发表于 2022-7-5 15:38:26

一个简单的检查（getvar“dwgname”）并查看它是否有一些模式

copy


(getvar 'dwgname)
strlen is it 11
subtract .dwg of end dont forget the 4 end characters .dwg
substr in a loop 7 times check each character is it a number
asscii 47-59 is 0-9 
Drawing1.dwg is 12 long so Drawing1 is 8 long

acad1985 · 发表于 2022-7-5 15:42:41

嘿Bigal
你能告诉我密码吗。。我不是Lisp程序的专家。但我有兴趣学习。所以请帮帮我。

rlx · 发表于 2022-7-5 15:44:46

这将有助于您的道路：

copy


(defun c:tst ( / dwgn letters numbers)
 (vl-load-com)
 ; dwgname without path and extension
 (setq dwgn (vl-filename-base (getvar 'dwgname)))
 (princ (strcat "\nDrawing name is : " dwgn))
 (princ (strcat "\nDrawing name has " (itoa (strlen dwgn)) " characters"))
 ; Total number of letters in filename
 (if (> (setq letters (length (vl-remove-if '(lambda(x)(and (< x 58)(> x 47)))(vl-string->list dwgn)))) 0)
   (princ (strcat "\nTotal of letters in drawing name : " (itoa letters)))
   (princ "\nNo letters in dwgname")
 )
 ; total number of numbers in filename
 (if (> (setq numbers (length (vl-remove-if '(lambda(x)(or (< x 48)(> x 57)))(vl-string->list dwgn)))) 0)
   (princ (strcat "\nTotal of numbers in drawing name : " (itoa numbers)))
   (princ "\nNo numbers in dwgname")
 )
 (princ)
)
; a few tiny lisp functions for more general use :
; remove letters from string (ripcar "123abc456def") -> "123456"
(defun ripcar (s)
 (vl-list->string (vl-remove-if '(lambda(x)(or (< x 48)(> x 57)))(vl-string->list s))))
; remove numbers from string (ripnum "123abc456def") -> "abcdef"
(defun ripnum (s)
 (vl-list->string (vl-remove-if '(lambda(x)(and (< x 58)(> x 47)))(vl-string->list s))))