长风(尚品) 发表于 2013-1-28 20:01:32

工具箱面板源码求助

这是承建工具箱的面板源码,请问如何将lsp vlx arx等文件命令加进去使用呢?求详细说明

zhangrunze 发表于 2024-4-2 16:22:01

kongel 发表于 2018-7-6 12:58
感谢楼主的源码,参考做了一个自己的

学习了~
面板工具是蛮多呢~

zhangrunze 发表于 2024-4-2 16:44:45

想学习下怎么分类~
先收藏了,慢慢研究~

kongel 发表于 2018-7-6 12:58:45

感谢楼主的源码,参考做了一个自己的

长风(尚品) 发表于 2013-1-29 10:21:15

有没有人帮我解惑呀

liuxu042 发表于 2013-1-29 16:21:45

这不叫面板,只是个窗体而已

有123 发表于 2013-2-2 12:31:40

这上面的功能我用的不多

ScmTools 发表于 2013-2-2 18:31:21

个人觉得将所有的命令写在窗体中,还不如直接用菜单适用

fl202 发表于 2013-7-5 16:39:10

你先分清lsp和dcl吧。

转:

(if (> nn 0)
    (progn (setq tt (cadr (nth (1- nn) order_lst))) ;取点击按钮的值(这个很关键)
   (if (= (eval (read (strcat "(type c:" tt ")"))) 'SUBR)
       (progn (princ "\n")
      (eval (read (strcat "(c:" tt ")")))
       ) ;_ 结束progn
       (progn
         (princ "\n")
         (vla-SendCommand (vla-get-ActiveDocument(vlax-get-acad-object)) (strcat tt "\n"))
       ) ;_ 结束progn
   ) ;_ 结束if
    ) ;_ 结束progn
) ;_ 结束if
) ;_ 结束defun

tt就是你的命令,明白否?

jyzas 发表于 2013-7-19 18:39:37

权限太高了下载不了

MENGZE 发表于 2013-10-19 22:36:22

这个窗体容易呀

love1030312 发表于 2014-5-18 10:42:45

求助 还设那么高限权

非你可1 发表于 2014-5-29 18:40:33

全县太高
页: [1] 2 3 4
查看完整版本: 工具箱面板源码求助