谢谢分享！下载留着、也学着！
看看是不是重的
少一个函数 DCL2LISP
timmy521 发表于 2022-12-22 17:42
少一个函数 DCL2LISP
[*];; DCL写进LISP函数------(一级)----------
[*](defun dcl2lisp (lst_str / str f)
[*](setq &file (getfilen ".dcl") f (open &file "w"))
[*](foreach str lst_str
[*] (princ "\n" f)
[*] (princ str f)
[*])
[*](close f)
[*]&file ;;返回
[*])
[*];;卸载DCL，删除临时DCL文件-----(一级)---------
[*](defun slunloaddcl (id /)
[*](unload_dialog id)
[*](sl:del-fil &file)
[*](gc)
[*])
[*];;取得临时文件名-----(一级)----------
[*];;exn 扩展名 ".dcl" ".dwg" nil 返回不带扩展名 路径 "D:\\temp\123"
[*];;用法 (getfilen ".dcl") (getfilen nil)
[*](defun getfilen (exn)
[*](setq &file (vl-filename-mktemp "" "" exn))
[*]&file
[*])
[*];删除文件--------(一级)------
[*];(sl:del-fil "D:\\简历.docx")
[*](defun sl:del-fil (file / fso oFile att ent ss)
[*](vl-catch-all-apply
[*] (function
[*] (lambda ()
[*] (if (= (vl-file-delete file) nil)
[*] (progn
[*] (setq fso (vlax-create-object "Scripting.FilesystemObject"))
[*] (setq oFile (vlax-invoke fso 'GetFile File));易报错(发生意外),原因尚不清楚
[*] (setq att (logand 1 (vlax-get-property oFile 'Attributes)))
[*] (if (/= att 0) (vlax-put-property oFile 'Attributes 0))
[*] (setq fildir (vl-filename-directory file))
[*] (setq ss (vl-directory-files fildir (strcat (vl-filename-base file) (vl-filename-extension file)) 0))
[*] (foreach ent ss
[*] (vlax-invoke fso "deletefile" (strcat fildir "\\" ent) :vlax-false)
[*] )
[*] (vlax-release-object oFile)
[*] (vlax-release-object fso)
[*] )
[*] )
[*] )
[*] )
[*])
[*])
少 tukuguanli的定义
下载了不能使用
sl_getfolder 这个函数也没有
slalert这个也没有
兄弟你不能这样啊，能分享东西是好的，你收币也无可厚非，但是你的东西发全呗，这里少一个函数哪里少一个函数，你加了一个三种语言的很好，但是你不跟人说明，你的程序里面也没有自动启动该函数，很多人不了解的可能就直接卡在第一步了。还是那句话，收币完全可以但是东西要有用，不然就是浪费大家时间
命令: sltk
; 错误: no function definition: SLMSG
请把函数发全！