工具箱面板源码求助
这是承建工具箱的面板源码,请问如何将lsp vlx arx等文件命令加进去使用呢?求详细说明 kongel 发表于 2018-7-6 12:58感谢楼主的源码,参考做了一个自己的
学习了~
面板工具是蛮多呢~ 想学习下怎么分类~
先收藏了,慢慢研究~ 感谢楼主的源码,参考做了一个自己的 有没有人帮我解惑呀 这不叫面板,只是个窗体而已 这上面的功能我用的不多 个人觉得将所有的命令写在窗体中,还不如直接用菜单适用 你先分清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就是你的命令,明白否? 权限太高了下载不了 这个窗体容易呀 求助 还设那么高限权 全县太高