类似CASS的抽屉式菜单OpenDCL版
本帖最后由 xgr 于 2012-6-25 23:54 编辑以前在C#版发了个类似的工具面板，还好挺受欢迎的，因为懂C#的不多，现在又做一个Lisp+Opendcl版本的。看图
呵呵，有点辛苦，收点小费，望大家见谅。
opendcl版本为7.0.05，cad为2006，里面涉及路径的地方请自行修改。
xgr 发表于 2012-6-26 09:47
opendcl默认安装后
arx在C:\Program Files\Common Files\OpenDCL里
Runtime.Res.dll在C:\Program Files\C ...
:lol 高版本直接命令 opendcl 即可 版主，请问一下，在2019中加载后，最后一栏里面的内容不显示是什么原因引起的，以前在2014还用的好好的 亲爱的燕儿 不错，下载学习了，谢谢分享 不错，下载学习了，谢谢分享
更新一下，修正面板在尺寸改变后的事件，下载了的请复制下列代码到LISP,并在窗口的Size事件里选中，保存即可。
;;窗口高度改变后
(defun c:XGGJToolsPanel_Form1_OnSize (NewWidth NewHeight /)
(Setq Bott1_Pos (Dcl_Control_Getpos Xggjtoolspanel_Form1_Textbutton1))
(Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton2 10 35 95 30)
(Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton3 10 65 95 30)
(Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton3 10 65 95 30)
(Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton4 10 95 95 30)
(Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton5 10 125 95 30)
(Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview1 Nil)
(Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview2 Nil)
(Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview3 Nil)
(Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview4 Nil)
(Setq Form_Pos(Dcl_Control_Getpos Xggjtoolspanel_Form1))
(Setq BOTT_Pos5 (Dcl_Control_Getpos Xggjtoolspanel_Form1_Textbutton5))
(dcl_Control_SetPos XGGJToolsPanel_Form1_ListView5 (NTH 0 BOTT_Pos5) (+ (NTH 1 BOTT_Pos5) 30) 95 (- (NTH 3 Form_Pos) 5))
)
有图有真相，学习一下，
solve
本帖最后由 sachindkini 于 2012-6-22 20:19 编辑Command: ABCDF ; error: ARXLOAD failed (autocad 2012)
sorry problem solve dear sir please provided english version 高手~~!!!!! sachindkini 发表于 2012-6-22 20:19 static/image/common/back.gif
dear sir please provided english version
I don't have time now please wait!
It's very easy.I think you can solve by yourself.If you can't I will heip you .