自编图块批量遮罩小程序

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

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

自编图块批量遮罩小程序

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

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

zhypta35l4z.jpg

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

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

1wegnunkrbf.jpg

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:g3klohpaedz.dvb
下载次数:0 文件大小:64 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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

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

改正版本问题:
下载新的吧

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:kqmce5tdt2r.dvb
下载次数:0 文件大小:37 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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

对此程序很感兴趣但试用后发现选中的符号也不见了
而且遮盖的不整齐
建议设法将框向外放大一些，如2 mm
再说也不是批量的
拙见而已请勿见笑

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

1、本程序只对选中的图块进行处理，如果你的符号是图块，而且选中理所当然要进行遮盖处理（如果你只希望对名为xxx的图块进行处理的话，可以帮你解决）2、遮盖不整齐是什么意思？
3、外框放大很容易实现
4、对单个文件多个图块处理不算批量吗？（如果你需要对多个文件处理的话也可以帮你实现）
欢迎指出缺点，但如果你需要改进的话就回复（说明你需要的详细的功能），不回复的话我就不做改进了，我要留着时间练CS，因为最近老被别人爆头……

自编图块批量遮罩小程序

发表回复

精选推荐

浏览过的版块