面板源码

fangmin723 · 发表于 2017-8-25 17:24:36

本帖最后由 fangmin723 于 2017-8-25 17:33 编辑

独沐秋枫发表于 2017-8-25 11:59
请问如何往里添加工具？

(defun c:drawline(/ p0) (command "LINE" (setq p0 (getpoint "\n指定第一个点:")) (getpoint p0 "\n指定第二个点:") ""))

把这句先加载到CAD里面去，然后再改(action_tile "1lab" "(alert \" 按了1lab\")")这句为(action_tile "1lab" "(done_dialog 2)")，改

(cond
((= 0 dd) (setq Loop nil))
((= 2 dd) (setq Loop nil) (c:drawline))
)

然后加载tabs1.lsp文件，输ta1运行程序，选择工具一，点击名为1lab按钮试试！

hao3ren · 发表于 2017-8-25 18:41:34

独沐秋枫发表于 2017-8-25 11:59
请问如何往里添加工具？

按照楼上fangmin723的方法整就可以了

hao3ren · 发表于 2017-8-25 18:42:37

pxt2001 发表于 2017-8-25 13:04
如果是无模式对话框，那就完美了

lsp怕是无能为力了，你看看不死猫大神的帖子吧

lllllja · 发表于 2017-8-25 20:02:15

学习一下，大神

LIULISHENG · 发表于 2017-8-26 09:37:33

随便整哈哈

davide888 · 发表于 2017-8-26 09:47:54

顶起先

524917100 · 发表于 2017-8-26 10:54:59

你们不觉得这样加快捷方式太麻烦吗，真接把菜单什么的整到一个文件里，然后读取这个文件，写到面板里去

kedenggao · 发表于 2017-8-26 15:49:56

多谢多谢，留下记号

涛涛_1048 · 发表于 2017-8-27 10:37:21

一直在找面板的，终于找到了。谢谢楼主提供资料。

bai2000 · 发表于 2017-8-27 20:50:42

老大们，做个工具箱的事例把

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

[源码] 面板源码