自编图块批量遮罩小程序

topirol · 发表于 2004-2-12 10:24:00

本帖最后由作者于 2004-2-12 11:35:19 编辑

自编图块批量遮罩小程序，问题不少，希望大家来完善

subtlation · 发表于 2004-2-12 10:47:00

试用了，外框画出来了，可为什么线并没有被掩盖？是不是有什么系统变量问题？

topirol · 发表于 2004-2-12 10:58:00

本帖最后由作者于 2004-2-12 11:35:54 编辑

只是对程序运行当时图块下面的东西遮罩，遮罩后再在上面画线当然还是看的到啊

subtlation · 发表于 2004-2-12 11:19:00

我的线是先画的，不是运行宏后再画的。程序中画边框是对的，但是wipeout命令好像不太对，我把我运行时命令行文本复制过来了，应该是有错误。－－我用的是autocad2004简体中文版，是不是版本不对？命令: _vbarun
选择对象: 找到 1 个选择对象: 命令:
命令: wipeout 指定第一点或 [边框(F)/多段线(P)] <多段线>: n 需要点或选项关键字。
指定第一点或 [边框(F)/多段线(P)] <多段线>: (handent "D475A")
<图元名: 7ef68050> 需要点或选项关键字。
指定第一点或 [边框(F)/多段线(P)] <多段线>: y 需要点或选项关键字。
指定第一点或 [边框(F)/多段线(P)] <多段线>: *取消* 命令: *取消* *取消*处理结束! 命令: *取消*

topirol · 发表于 2004-2-12 11:22:00

哦，我是2000版本的，不清楚2004哦，你把那个命令对应改一下试试

subtlation · 发表于 2004-2-12 11:22:00

是版本问题，只要把n改成p就行了

topirol · 发表于 2004-2-12 11:27:00

你把ThisDrawing.SendCommand "wipeout n" & vbCr & axEnt2lspEnt(tpolyline) & vbCr & "y" & vbCr

改成：

ThisDrawing.SendCommand "wipeout p" & vbCr & axEnt2lspEnt(tpolyline) & vbCr & "y" & vbCr

,,,,,,我不知道2004的wipeout命令是怎么样提示的：（

topirol · 发表于 2004-2-12 11:34:00

改正版本问题:

下载新的吧

cxzr8 · 发表于 2004-2-25 00:09:00

对此程序很感兴趣

但试用后发现选中的符号也不见了

而且遮盖的不整齐

建议设法将框向外放大一些，如2 mm

再说也不是批量的

拙见而已请勿见笑

topirol · 发表于 2004-2-25 08:43:00

1、本程序只对选中的图块进行处理，如果你的符号是图块，而且选中理所当然要进行遮盖处理（如果你只希望对名为xxx的图块进行处理的话，可以帮你解决）

2、遮盖不整齐是什么意思？

3、外框放大很容易实现

4、对单个文件多个图块处理不算批量吗？（如果你需要对多个文件处理的话也可以帮你实现）

欢迎指出缺点，但如果你需要改进的话就回复（说明你需要的详细的功能），不回复的话我就不做改进了，我要留着时间练CS

，因为最近老被别人爆头……

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

自编图块批量遮罩小程序

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源