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

老大们，做个工具箱的事例把
页: 1 [2] 3 4 5 6 7
查看完整版本: 面板源码