VBALISPER 发表于 2011-12-16 13:02:04

恐龙工具箱,有图,有源码,欢迎下载,欢迎指正

本帖最后由 VBALISPER 于 2011-12-23 14:33 编辑

恐龙工具箱主要针对地质行业开发，部分通用功能其它行业也可以使用，菜单及工具条界面如下：

安装步骤如下:先运行这两个脚本文件,不分顺序.添加启动组的脚本暂时只支持04版CAD,其它版本的CAD用户请自行添加到启动组.通用版本的脚本,以后再补充.



上面两个脚本运行完后，打开CAD加载菜单文件，如下图所示：
本程序提供源码,欢迎大家下载研究,帮我找出问题并指正.有好的功能的代码、图标或想法请告诉我,以便在以后的版本中添加,更大地提高大家使用AutoCAD的效率。在此对帮助、支持过我的朋友表示感谢！

程序已做更新,修正了错误,增添了部分功能.2011.12.23

ggwlove 发表于 2020-5-17 23:27:13

LIULISHENG 发表于 2018-4-21 14:43
真的不错这个

源码在哪里呢，没看见哦

趣意人生 发表于 2021-1-11 21:04:06

谢谢楼主了！收藏起来以后学习！

LIULISHENG 发表于 2018-4-21 14:43:00

真的不错这个

【KAIXIN】 发表于 2011-12-16 13:10:05

支持这样，希望不要被贱人等利用！楼主：顶你一个！

【KAIXIN】 发表于 2011-12-16 13:12:56

本帖最后由 【KAIXIN】 于 2011-12-16 13:15 编辑

看了下：图层要用院长等方法建，具体搜搜明经

自贡黄明儒 发表于 2011-12-16 13:14:16

楼主：顶你一个

VBALISPER 发表于 2011-12-16 13:16:07

谢谢指点!是感觉有些不妥,已有图层,如果设置不同,会被后来的改掉

【KAIXIN】 发表于 2011-12-16 13:18:01

VBALISPER 发表于 2011-12-16 13:16 static/image/common/back.gif
谢谢指点!是感觉有些不妥,已有图层,如果设置不同,会被后来的改掉

这个是我以前工具箱用的例子：

(setq layer "标注   dim")(if (not (tblsearch "layer" layer ))
;设图层 判断是否有图层，如果没有建图层
(progn (command "layer" "new" "标注   dim" "s" "标注   dim" "C" 82 "" "L" "Continuous" "" "LW" 0.09 "" "")
))
   (setvar"CLAYER" layer)设标注层为当然层

【KAIXIN】 发表于 2011-12-16 13:19:15

为什么要用脚本？直接用VLX不是很好？
目前VLX通用，可以用安装打包程序打包！

cable2004 发表于 2011-12-16 13:38:44

工具栏怎么做，能告诉我吗！

仲文玉 发表于 2011-12-16 13:40:20

bmp图像文件打包为dll文件，否则太乱。

仲文玉 发表于 2011-12-16 13:41:20

cable2004 发表于 2011-12-16 13:38 static/image/common/back.gif
工具栏怎么做，能告诉我吗！

工具栏可以参考恐龙的konglong.mnu文件
页: [1] 2 3 4 5 6 7
查看完整版本: 恐龙工具箱,有图,有源码,欢迎下载,欢迎指正