求AutoCAD"自动分层".lsp-CAD家园

求AutoCAD"自动分层".lsp

作者：cad 提交日期：2009-7-6| 分类: | 访问量：

求AutoCAD"自动分层".lsp

我是一家塑胶厂的模具设计，主要用的软件是Pro/E2.0和ZWCAD(和AutoCAD用法一样，但速度却实在不敢恭维的国产软件，用它估计是老板觉着它便宜吧）。
因为要转图，主要是将Pro/E拆的各种零件，模仁图转成.DWG文件然后在CAD里面标散件数及和种公差。
因为我是用图层来控制线型和线粗的，所以转过图的时候免不了要进行“快速选择……”然后通过颜色来筛选图素然后指定图层，一套模具散件图转出来几十个图。有时候点“快速选择……”点得特郁闷。所以向和位同行求助。

Pro/E转出图时控制颜色图层我试过，颜色没问题，图层没问题，让我郁闷的是，每个图层的名字前面都会被自动加上一个在Pro/E里的零件名称，（如零件名称为200,然后在转过来的标图层名就为200DIM,当然，dim是我指定的图层名）谁能告诉我怎么样才能不让这该死的名字出现在图层名字之前的话，我的问题也解决了

希望各位懂行的朋友帮忙写个
这个Lsp的主要功能是：
从现有的选择图系中以颜色进行筛选，然后将白色（色号：7）的图素指定到"Solid"图层,黄色(AutoCAD的色号我忘了)的图素指定到"Sec"图层,
其它还有灰色,和灰白色等等，（颜色号分别为8和9）
麻烦懂行的帮我写个，小弟感激不尽。

[ 此贴被hawnn在2008-01-08 21:18重新编辑 ] *

(if (not (tblsearch "layer" "Solid"))
(command "layer" "n" "Solid" "")
)
(if (not (tblsearch "layer" "Sec"))
(command "layer" "n" "Sec" "c" "2" "sec" "")
)
上面是你图中无这个层它自动建层.
你的图转后的层前加了一个零件名如200dim dim是你指定的层,我问200dim和dim是否同时存在,你告知.我可给你编这个程序. *

先谢谢你了
你在编这个程序的时候新建下面四个图层就好了，其它的图层我用"PURGE"来处理掉
当然我也想过加"PURGE"命令在这个.lSP文件里，但怕其它图层多的图也要用这个程序，所以就不用了，多动一下手吧。

我需要的程序主要是想通过一个.lsp文件就把它们筛选取出来，然后各自分到相应的图层
PROE转到CAD以后，主要通过以下四种颜色
（白色，也就是粗实线ＣＡＤ色号为７）希望将它们转进一个名为"Solid"的图层
（灰白色，细实线，ＣＡＤ色号９）　　希望将它们转进一个名为"XX"的图层
（灰色，虚线，ＣＡＤ色号为８）　　　希望将它们转进一个名为"Hed"的图层
（黄色，剖线，ＣＡＤ色号我忘了）　　希望将它们转进一个名为"Sec"的图层
虽然ＣＡＤ里面的文字也是黄色，不过量很少，忽略它们了。如果你能筛选出文字来，就加一步吧，把它们筛选进一个层名为"TexT"的图层里面

新建图层命令我好像会
"(Command "layer" "new" "Solid" "Color" "7" "Solid" "")
应该是这样没错。其它就不清楚了，当然不会你上面的这个程序判断语句。
不过看多几次应该可以把这层的线粗，颜色，线型都设置好，这些我来就好了，你只要在这个.Lsp文件中做一个新建图层的操作就好了，其它细节我自己处理，不好太麻烦你，而且太细节的话，你也不好处理。

1.粗实线层，转到CAD以后颜色为白色（CAD色号为7），在.lsp文件中可以添加命令新建一个名为"Solid"的图层，然后提选所有的图素，把白色，就是色号为7）的图素全部换到该图层下面
2，细实线层，新建一个名为"XX"的图层，然后将所有颜色号为9的图素转入该图层下。
3，虚线层，新建一个名为"Hid"的图层，然后将所有颜色号为8的图素转入该图层下。
4，剖线层，新建一个名为"Sec"的图层，然后将所有颜色为黄色的图素转入该图层下。（色号我忘了，我在网吧，不方便查，你帮我看下好了）

因为每次转过图层来都要自己不停的用“快速选择”来筛选，很麻烦，所以希望通过一个.Lsp文件一次性搞定。
谢谢你答应帮我编这个程序.
古人有云“授之予鱼不如授之予渔”，希望版主帮人帮到底，有时间把AutoLisp的一些命令语句解释发一些给我，感激不尽。
我之前在学校的时候也学过一些简单的编程，主要是用数据库（Foxpro，和Basic编过一些简单的程序，还是Dos操作系统下面。）

PROE和CAD是很普及的软件，这个程序写出来以后对大家帮助都很大，版主写出来以后可以发扬一下，毕竟同时用PROE和CAD的人太多了，我跳过三个公司，都用这两个软件，但转换过来以后，他们都说设置图层都很繁琐。包括那个做了十多年设计的老工程师都得这样一步一步来。

（我的邮箱是hawnn@163.com 　　　ＭＳＮ:hawnnn@Hotmail.com 　　ＱＱ:109795700）
你平常习惯哪个联系我吧，不过近段时间ＭＳＮ少用了。不然你把你的联系方式发给我，我联系你吧。
我不太会说话，谢谢你了！

刚发了帖才看到“老顾”，和我之前的模具师傅的名字一样……
我现在还在经常向他讨教，看来我和“老顾”有缘。

[ 此贴被hawnn在2008-01-11 14:08重新编辑 ] *

对了，还有
我在网上找那个自动绘制中心线的LSP程序，但有三个，要占用三个快捷键位置。不知道你能不能帮判断语句整合
因为通常需要画中心线的有以下三种图素
第一种是纯圆和圆弧，第二种是矩形（圆柱），第三种就是有角度的梯型状的图素。
我不知道Lsp程式中能不能调用其它的Lsp程式，就像批处理文件中的"Call"用法一样。
如果可以，你能不能通过这个程式判断上面三种图素，然后判断以后决定调用哪个.Lsp文件（如果把三个程式整合成一个，那就再好不过了，因为办公室的电脑有权限控制，我不能写CAD的安装目录，每次都要自己加载进来，这样就可以只加载一个文件，而不是四个文件了）

谢谢你的热心帮忙，如果答到的答案是肯定的，我向你提供这三个.Lsp文件，谢谢！ *

本文摘自：http://www.jxcad.com.cn/read.php?tid=505051&fpage=2

相关文章：

阅读全文 | 回复(0) | 引用通告 | 编辑