（2017.9.15更新）dcl-to-lsp对话框*.dcl转*.lsp工具 V1.8.1.2NM

ssyfeng · 发表于 2017-5-21 09:31:56

正在学习DCL，不过感觉好难啊

searinon · 发表于 2017-5-21 09:55:48

一张贴屹立不倒啊。

fangmin723 · 发表于 2017-5-21 21:45:13

ssyfeng 发表于 2017-5-21 09:31

有问题可以问我，能帮的上就帮！

qq1254582201 · 发表于 2017-5-24 17:52:32

不知道是不是下载过呢

qq1254582201 · 发表于 2017-5-24 21:34:35

东西很棒，给楼主点赞！！！！！

434939575 · 发表于 2017-5-24 21:44:56

看看这个，学习下！

atest201 · 发表于 2017-5-26 22:51:01

谢谢分享！看看这个方不便转

qq1254582201 · 发表于 2017-5-31 11:41:23

楼主，请问怎么获取对话框里的数据呢？本人小白，求带哦

qq1254582201 · 发表于 2017-5-31 11:46:08

求此插件LISP，参考学习

fangmin723 · 发表于 2017-5-31 13:36:19

qq1254582201 发表于 2017-5-31 11:46

这插件我在网上下载的，用起来有问题，有待优化！

qq1254582201 · 发表于 2017-6-1 09:23:30

fangmin723 发表于 2017-5-31 13:36

哦，这个样子，请问楼主你那个DCL——LISP后，在哪里获取输入对话框的数据和执行lisp命令呢？

fangmin723 · 发表于 2017-6-1 10:26:43

qq1254582201 发表于 2017-6-1 09:23

这个就需要你自己在转化后的lisp文件中去写入了，至于命令第一行的c:tt就是，只要在CAD命令行输入，tt就可以了，也可以把tt改成你需要的快捷命令

sanpoul · 发表于 2017-6-1 21:02:19

我来测试一下，行不行

qq1254582201 · 发表于 2017-6-2 16:36:31

fangmin723 发表于 2017-6-1 10:26

(foreach key keys;全部控件的初始化
(if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容
(action_tile key "(Action_XPFBH_Keys $key $value)");点击动作 $reason
)

这个函数是什么作用呢？

fangmin723 · 发表于 2017-6-2 17:17:31

qq1254582201 发表于 2017-6-2 16:36

这段代码是配合下面的一个函数用的，储存当前图纸内所有控件的值，并在下一次执行程序的时候回复！

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

[工具] （2017.9.15更新）dcl-to-lsp对话框*.dcl转*.lsp工具 V1.8.1.2NM

[工具] （2017.9.15更新）dcl-to-lsp对话框.dcl转.lsp工具 V1.8.1.2NM