类似CASS的抽屉式菜单OpenDCL版

xgr

以前在C#版发了个类似的工具面板，还好挺受欢迎的，因为懂C#的不多，现在又做一个Lisp+Opendcl版本的。看图


呵呵，有点辛苦，收点小费，望大家见谅。
opendcl版本为7.0.05，cad为2006，里面涉及路径的地方请自行修改。

838510233

xgr 发表于 2012-6-26 09:47
opendcl默认安装后
arx在C:\Program Files\Common Files\OpenDCL里
Runtime.Res.dll在C:\Program Files\C ...

高版本直接命令 opendcl 即可

alwtyp

版主，请问一下，在2019中加载后，最后一栏里面的内容不显示是什么原因引起的，以前在2014还用的好好的

ty812g62g

亲爱的燕儿

fdb2007

不错，下载学习了，谢谢分享

cable2004

不错，下载学习了，谢谢分享

xgr

更新一下，修正面板在尺寸改变后的事件，下载了的请复制下列代码到LISP,并在窗口的Size事件里选中，保存即可。

2. ;;窗口高度改变后
   
3. (defun c:XGGJToolsPanel_Form1_OnSize (NewWidth NewHeight /)
   
4.   (Setq Bott1_Pos (Dcl_Control_Getpos Xggjtoolspanel_Form1_Textbutton1))
   
5.   (Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton2 10 35 95 30)
   
6.   (Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton3 10 65 95 30)
   
7.   (Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton3 10 65 95 30)
   
8.   (Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton4 10 95 95 30)
   
9.   (Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton5 10 125 95 30)
   
10.   (Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview1 Nil)
    
11.   (Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview2 Nil)
    
12.   (Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview3 Nil)
    
13.   (Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview4 Nil)
    
14.   (Setq Form_Pos(Dcl_Control_Getpos Xggjtoolspanel_Form1))
    
15.   (Setq BOTT_Pos5 (Dcl_Control_Getpos Xggjtoolspanel_Form1_Textbutton5))
    
16.   (dcl_Control_SetPos XGGJToolsPanel_Form1_ListView5 (NTH 0 BOTT_Pos5) (+ (NTH 1 BOTT_Pos5) 30) 95 (- (NTH 3 Form_Pos) 5))
    
17. )
    

;;窗口高度改变后<br /> (defun c:XGGJToolsPanel_Form1_OnSize (NewWidth NewHeight /)<br />   (Setq Bott1_Pos (Dcl_Control_Getpos Xggjtoolspanel_Form1_Textbutton1))<br />   (Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton2 10 35 95 30)<br />   (Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton3 10 65 95 30)<br />   (Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton3 10 65 95 30)<br />   (Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton4 10 95 95 30)<br />   (Dcl_Control_Setpos Xggjtoolspanel_Form1_Textbutton5 10 125 95 30)<br />   (Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview1 Nil)<br />   (Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview2 Nil)<br />   (Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview3 Nil)<br />   (Dcl_Control_Setvisible Xggjtoolspanel_Form1_Listview4 Nil)<br />   (Setq Form_Pos(Dcl_Control_Getpos Xggjtoolspanel_Form1))<br />   (Setq BOTT_Pos5 (Dcl_Control_Getpos Xggjtoolspanel_Form1_Textbutton5))<br />   (dcl_Control_SetPos XGGJToolsPanel_Form1_ListView5 (NTH 0 BOTT_Pos5) (+ (NTH 1 BOTT_Pos5) 30) 95 (- (NTH 3 Form_Pos) 5))<br /> )<br />

soly2006

有图有真相，学习一下，

sachindkini

Command: ABCDF ; error: ARXLOAD failed (autocad 2012)
sorry problem solve

sachindkini

dear sir please provided english version

logoin

高手~~!!!!!

xgr

sachindkini 发表于 2012-6-22 20:19
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 .