再发LISP图库代码

尘缘一生 · 发表于前天 17:31

本帖最后由尘缘一生于 2024-11-20 17:52 编辑

1：增加显示本库文件数
2：增加显示本库本文件大小
3：自动清理本库除SLD,DWG之外的文件，清理垃圾
4：插入部分为了丝滑，做了2种模式
5：再压缩代码，主要对繁体，英文，简体版支持的部分的DCL文件进行整合压缩
6：对“替换当前”，进行改写，防止选择为空时候，删除掉旧文件。
7：.....余不枚举了

众多的函数，为三领内裤，没有整理，字面意思一看便知，可自理。
注：三领的图库是免费的，里面都整理好了，主要以我设计的部分为主整合。

链接：https://pan.baidu.com/s/1A2tIcncPiST4VZ9usYaFsg
提取码：bofx。单独库文件可以直接下载：blks.ZIP

尘缘一生 · 发表于昨天 17:12

本帖最后由尘缘一生于 2024-11-21 17:18 编辑

dew 发表于 2024-11-20 18:28
显示错误: no function definition: SLMSG

实际没什么，就是为了多版本来作的，也就是做一些常量，来简化写法。但光这个也是不行，还有其他，太多了主要是。
;;简体、繁体、英文提示---(一级)-----
;;msg1 简体字 nil  msg2 繁体字 nil msg3 英文 nil--
(defun slmsg (msg1 msg2 msg3 / msg)
      (cond
            ((= $Lgver 1)
                     (setq msg msg1)
            )
            ((= $Lgver 2) ;繁体版
                     (setq msg msg2)
            )
            ((= $Lgver 3)
                     (setq msg msg3)
            )
      )
      msg ;;输出信息
)
      (setq k1 (getvar "SYSCODEPAGE")) ;显示所在地区的代码
      (cond
            ((= k1 (strcase "ansi_936")) ;;CAD是简体版
                     (setq $Lgver 1 $hz "hz" $xz "xz" k0 "bz" str "简体中文"
                              $okbt ":button {label=\"确定\";key=\"accept\";is_default=true;}"
                              $canbt ":button {label=\"取消\"; key=\"cancel\";is_cancel=true;}"
                     )
            )
            ((= k1 (strcase "ansi_950")) ;繁体版
                     (setq $Lgver 2 $hz "fan" $xz "fank" k0 "ft" str "羉砰いゅ"
                              $okbt ":button {label=\"絋﹚\";key=\"accept\";is_default=true;}"
                              $canbt ":button {label=\"\"; key=\"cancel\";is_cancel=true;}"
                     )
            )
            ((and (/= k1 (strcase "ansi_936")) (/= k1 (strcase "ansi_950"))) ;;英文或其他版
                     (setq $Lgver 3 $hz "hz" $xz "xz" k0 "en" str "Englishversion"
                              $okbt ":button {label=\"Accept\";key=\"accept\";is_default=true;}"
                              $canbt ":button {label=\"Cancel\"; key=\"cancel\";is_cancel=true;}"
                     )
            )
      )
      (setq
            $row ":cluster {horizontal_margin=none; vertical_margin=none; children_alignment=centered;"
            $column ":cluster {layout=vertical;horizontal_margin=none;vertical_margin=none;"
            $boxed_row ":cluster {boxed=true;children_alignment=centered;"
            $boxed_column ":cluster {layout=vertical;boxed=true;"
            $radio_row ":radio_cluster {horizontal_margin=none;vertical_margin=none;children_alignment=centered;"
            $radio_column ":radio_cluster {layout=vertical;horizontal_margin=none;vertical_margin=none;"
            $boxed_radio_row ":radio_cluster {boxed=true;children_alignment=centered;"
            $boxed_radio_column ":radio_cluster {layout=vertical;boxed=true;"
      )

对照这部分，看DCL部分的集成，就明了了。

尘缘一生 · 发表于昨天 17:14

qd001 发表于 2024-11-20 22:32
sltk.lsp这个程序是单独用的么

这个不能单独运行，这是集成代码，
图库这个事啊，因为我用，我才知道一直需要改什么，LISP图库虽然简单，但是，这可是没有版本限制的，也就是纯绿色，其他都办不到这一点，

qd001 · 发表于昨天 17:23

尘缘一生发表于 2024-11-21 17:14
这个不能单独运行，这是集成代码，
图库这个事啊，因为我用，我才知道一直需要改什么，LISP图库虽然简单 ...

哦哦

hubeiwdlue · 发表于前天 17:59

谢谢分享，

dew · 发表于前天 18:28

显示错误: no function definition: SLMSG

qd001 · 发表于前天 22:32

sltk.lsp这个程序是单独用的么

moranyuyan · 发表于昨天 06:34

谢谢分享

gf123 · 发表于昨天 07:49

谢谢分享。。。

XPG · 发表于昨天 11:26

感谢分享。。

netfoxs · 发表于昨天 15:26

谢谢分享！

dolcat · 发表于昨天 15:34

多谢分享！！！

guankuiwu · 发表于昨天 15:54

支持lisp图库！

账号		自动登录	找回密码
密码			注册

再发LISP图库代码

本帖子中包含更多资源

评分