明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 16492|回复: 78

[OpenDCL] 类似CASS的抽屉式菜单OpenDCL版

    [复制链接]
发表于 2012-6-22 00:11 | 显示全部楼层 |阅读模式
本帖最后由 xgr 于 2012-6-25 23:54 编辑

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


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



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 1金钱 +10 收起 理由
涛水依旧 + 10 赞一个!

查看全部评分

发表于 2012-6-22 01:32 | 显示全部楼层
亲爱的燕儿
发表于 2012-6-22 07:26 | 显示全部楼层
不错,下载学习了,谢谢分享
发表于 2012-6-22 08:08 | 显示全部楼层
不错,下载学习了,谢谢分享
 楼主| 发表于 2012-6-22 10:57 | 显示全部楼层
更新一下,修正面板在尺寸改变后的事件,下载了的请复制下列代码到LISP,并在窗口的Size事件里选中,保存即可。

[code="lisp] ;;窗口高度改变后
(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))
)
[/code]


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 1明经币 +1 金钱 +5 收起 理由
xyp1964 + 1 + 5 很给力!

查看全部评分

发表于 2012-6-22 17:52 | 显示全部楼层
有图有真相,学习一下,
发表于 2012-6-22 20:00 | 显示全部楼层

solve

本帖最后由 sachindkini 于 2012-6-22 20:19 编辑

Command: ABCDF ; error: ARXLOAD failed (autocad 2012)
sorry problem solve
发表于 2012-6-22 20:19 | 显示全部楼层
dear sir please provided english version
发表于 2012-6-22 20:48 | 显示全部楼层
高手~~!!!!!
 楼主| 发表于 2012-6-22 21:32 | 显示全部楼层
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 .
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-7-23 13:58 , Processed in 0.288342 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表