查看: 7595|回复: 18
收起左侧

[Auto CAD] 几个小工具

  [复制链接]
发表于 2012-7-25 19:02 | 显示全部楼层 |阅读模式 来自: 中国湖北宜昌
自己写的几个小工具,准备做个安装包,但没做出来。
使用方法:
将附件压缩包里的文件夹解压到D盘根目录下(一定要是D盘根目录,文件夹不能改名)
用menuload命令加载ycs_ct_tool.cui文件
加载ycs_ct_lsp.lsp文件,并将它放到启动组里面

CT工具箱.rar

111.39 KB, 下载次数: 144

回复

使用道具 举报

龙船学院
 楼主| 发表于 2012-7-26 12:32 | 显示全部楼层 来自: 中国湖北宜昌
修改了一下cui文件,好像工具不能出来
小工具包括:隐藏对象,显示隐藏对象,自动标注肋位,初始化(新建文字样式和标注样式),标注化(自动将图纸中的文字样式,高度,标注样式,标注样式全局比例按图纸缩放比例修改),计算三维实体表面积总和(计算油漆用的),快速选择面板,计算多条直线总长,自动添加文字等。
有什么问题联系我,QQ:14828556

CT工具箱.rar

142.22 KB, 下载次数: 211

回复 支持 反对

使用道具 举报

发表于 2012-7-26 14:33 | 显示全部楼层 来自: 中国北京
这个东西很好,教教大家!
回复 支持 反对

使用道具 举报

发表于 2012-7-26 16:32 来自手机 | 显示全部楼层 来自: 中国江苏苏州
好东,顶起来
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-7-26 19:44 | 显示全部楼层 来自: 中国湖北宜昌
这个是用autolisp和vb.net写的,有空的话我会专门开贴和大家交流。
回复 支持 反对

使用道具 举报

发表于 2012-7-26 21:27 | 显示全部楼层 来自: 中国湖北黄冈
支持
回复 支持 反对

使用道具 举报

发表于 2012-8-21 01:52 | 显示全部楼层 来自: 中国山东青岛
不能用啊,为什么?
回复 支持 反对

使用道具 举报

发表于 2012-8-22 09:21 | 显示全部楼层 来自: 中国江苏泰州
支持下先
回复 支持 反对

使用道具 举报

发表于 2012-10-15 19:57 | 显示全部楼层 来自: 中国江苏盐城
具体怎么用啊?
回复 支持 反对

使用道具 举报

发表于 2012-10-15 20:21 | 显示全部楼层 来自: 中国广东清远
ycs_tool.dll反编的源代码

[CommandMethod(S"ycs_hide")]
public: void __gc* ycs_hide()
{
    Document __gc* document = Application::get_DocumentManager()->get_MdiActiveDocument();
    Database __gc* database = document->get_Database();
    Editor __gc* editor = document->get_Editor();
    using (Transaction __gc* transaction = database->get_TransactionManager()->StartOpenCloseTransaction())
    {
        PromptSelectionOptions __gc* options = __gc new PromptSelectionOptions();
        options->set_MessageForAdding(S"\u8bf7\u9009\u62e9\u8981\u9690\u85cf\u7684\u5bf9\u8c61\uff1a");
        PromptSelectionResult __gc* selection = editor->GetSelection(options);
        if (selection->get_Status() == 0x13ec)
        {
            IEnumerator __gc* enumerator;
            SelectionSet __gc* set = selection->get_Value();
            try
            {
                enumerator = set->GetEnumerator();
                while (enumerator->MoveNext())
                {
                    SelectedObject __gc* current = *static_cast<__box SelectedObject*>(enumerator->Current);
                    if (!Information::IsDBNull(current))
                    {
                        Entity __gc* expression = transaction->GetObject(current->get_ObjectId(), 1);
                        if (!Information::IsDBNull(expression))
                        {
                            expression->set_Visible(false);
                        }
                    }
                }
            }
            finally
            {
                if ((enumerator is IDisposable))
                {
                    (enumerator as IDisposable)->Dispose();
                }
            }
        }
        transaction->Commit();
    }
}
回复 支持 反对

使用道具 举报

发表于 2012-10-16 08:58 | 显示全部楼层 来自: 中国山东威海
林黛玉 发表于 2012-10-15 20:21
ycs_tool.dll反编的源代码

[CommandMethod(S"ycs_hide")]

这个怎么用??
回复 支持 反对

使用道具 举报

发表于 2012-11-4 11:02 | 显示全部楼层 来自: 中国江苏南京
骗子
回复 支持 反对

使用道具 举报

发表于 2012-11-25 08:02 | 显示全部楼层 来自: 中国广东广州
学习看看先
回复 支持 反对

使用道具 举报

发表于 2013-1-16 16:52 | 显示全部楼层 来自: 马来西亚
不错,好东西,支持楼主
回复 支持 反对

使用道具 举报

发表于 2013-1-30 13:49 | 显示全部楼层 来自: 中国上海
技术贴!!!支持!!
回复 支持 反对

使用道具 举报

发表于 2014-10-19 22:31 | 显示全部楼层 来自: 中国北京
具体是干啥用的,介绍介绍!!
回复 支持 反对

使用道具 举报

发表于 2017-6-30 14:44 | 显示全部楼层 来自: 中国湖北武汉
先顶一个,值得关注!
回复 支持 反对

使用道具 举报

发表于 2017-7-6 08:14 | 显示全部楼层 来自: 中国湖北武汉
先点个赞,关注!
回复 支持 反对

使用道具 举报

发表于 2022-3-21 14:58 | 显示全部楼层 来自: 中国江苏

感谢群里无偿提供资料的大侠们!感激万分
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|标签|免责声明|龙船社区

GMT+8, 2024-11-15 00:29

Powered by Imarine

Copyright © 2006, 龙船社区

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