尘缘一生 发表于 2024-11-20 17:31:58

再发LISP图库代码

本帖最后由 尘缘一生 于 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







尘缘一生 发表于 2024-11-21 17:12:45

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

dew 发表于 2024-11-20 18:28
显示错误: no function definition: SLMSG
实际没什么，就是为了多版本来作的，也就是做一些常量，来简化写法。但光这个也是不行，还有其他，太多了主要是。
;;简体、繁体、英文提示---(一级)-----
;;msg1 简体字 nilmsg2 繁体字 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部分的集成，就明了了。

尘缘一生 发表于 2024-11-21 17:14:49

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

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

qd001 发表于 2024-11-21 17:23:56

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

哦哦{:1_1:}

hubeiwdlue 发表于 2024-11-20 17:59:52

谢谢分享，

dew 发表于 2024-11-20 18:28:23

显示错误: no function definition: SLMSG

qd001 发表于 2024-11-20 22:32:44

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

moranyuyan 发表于 2024-11-21 06:34:38

谢谢分享

gf123 发表于 2024-11-21 07:49:01

谢谢分享。。。

XPG 发表于 2024-11-21 11:26:40

感谢分享。。

netfoxs 发表于 2024-11-21 15:26:11

谢谢分享！

dolcat 发表于 2024-11-21 15:34:23

多谢分享！！！

guankuiwu 发表于 2024-11-21 15:54:48

支持lisp图库！:victory:
页: [1] 2
查看完整版本: 再发LISP图库代码