再发一遍图库代码(源码)

p-3-ianlcc

谢谢分享！下载留着、也学着！

timmy521

看看是不是重的

timmy521

少一个函数 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)
•           )
•         )
•       )
•     )
•   )
• )
  

timmy521

少 tukuguanli的定义

00放飞梦想00

下载了不能使用

timmy521

sl_getfolder 这个函数也没有

timmy521

slalert这个也没有

you_boss

兄弟你不能这样啊，能分享东西是好的，你收币也无可厚非，但是你的东西发全呗，这里少一个函数哪里少一个函数，你加了一个三种语言的很好，但是你不跟人说明，你的程序里面也没有自动启动该函数，很多人不了解的可能就直接卡在第一步了。还是那句话，收币完全可以但是东西要有用，不然就是浪费大家时间

fundoll

命令: sltk
; 错误: no function definition: SLMSG
请把函数发全！