[VBA程序]：给不分层的图形按照线宽、线型、文字、标注、填充等进行自动分层

gjliang · 发表于 2003-11-24 18:50:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

最近常常拿到一些没有分层的图形文件，在进行编辑操作时感觉很麻烦，所以就写了个能自动按照线宽、线型、文字、标注、填充等进行分层的程序，基本上能解决我目前碰到的问题，程序的实现都是vba程序的基本用法，希望对初学者有所帮助，另本人也是现学现卖，对程序的编写原理也不大懂，但每每写出对自己工作有所帮助的程序时也是倍感自豪。现把程序传上来供大家参考、批评指正！里面有三个文件，解压自cad安装目录suport目录下，启动cad后打开其中的演示文件键入ql命令即可看出效果！（我用的是cad2002）

希望我们的论坛越来越旺！

bridgewind · 发表于 2003-11-24 21:35:39

贴上代码呀！

gjliang · 发表于 2003-11-25 09:23:48

代码源文件在附件里，下载后解压到cad2002/suport目录里，启动cad后，用ql命令就可以加载程序查看代码了。

ZHPCUAN · 发表于 2003-11-25 09:38:14

怎么我在14里面没有效果

gjliang · 发表于 2003-11-25 11:21:38

我们这里装的r14都没有vba，所以没有考虑r14下的情况，不知道你的有没有vba呢？

subtlation · 发表于 2003-11-25 21:32:13

今天我就在用别人的图呢，图中几乎没有分层，绘图效率比用自己的图差多了。
可惜分值不够，谁方便，发一个给我吧。subtlation@163.com

gjliang · 发表于 2003-11-26 11:03:00

subtlation 朋友文件已发过去，这个程序只是处理我们绘图过程中一些常用的线型和线宽的，所以在处理线宽和线型时会有一些局限性，但它还是能很快的把诸如标注、文字、填充分离出来到相应的层上的。

subtlation · 发表于 2003-11-26 14:43:49

谢谢gjliang ，下载试用了，可以用。
标注、文字、填充都蛮方便的。我们绘图用的是颜色分层，没有这个功能，不过不要紧。我自己增加一个颜色的就行了。谢谢。

gjliang · 发表于 2003-11-26 16:11:12

是的，如果是以颜色分层也挺好的，这样的话就可以再扩展了。其实象我们这些在设计院工作的写程序也就是一些提高自己操作效率的小程序。

subtlation · 发表于 2003-11-26 16:57:09

是啊，一个成型的程序很难编。有些小程序还是非常提高工作效率的。
刚才编了一个针对颜色的。同时也有标注文字等。主要是根据我自己的绘图习惯编的。
放上来给大家参考参考。

版主点评：能够将程序细化，每个函数的功能明确，独立性好，有利于后期的维护和扩充。值得初学者借鉴。
[/COLOR]

gjliang · 发表于 2003-11-26 21:35:51

subtlation写的很值得我学习啊，原来不知道各个功能写成函数的，看了你的觉得收获挺大的。

subtlation · 发表于 2003-11-27 08:37:53

里面一些函数都是从明经通道里下载下来后按自己的要求改的。我刚开始时也基本上不写函数。后来在网上看了一些别人的程序，觉得一个独立的功能写成函数会方便些。

账号		自动登录	找回密码
密码			立即注册

[VBA程序]：给不分层的图形按照线宽、线型、文字、标注、填充等进行自动分层

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子