自编图块批量遮罩小程序
本帖最后由 作者 于 2004-2-12 11:35:19 编辑自编图块批量遮罩小程序，问题不少，希望大家来完善
试用了，外框画出来了，可为什么线并没有被掩盖？是不是有什么系统变量问题？
本帖最后由 作者 于 2004-2-12 11:35:54 编辑
只是对程序运行当时图块下面的东西遮罩，遮罩后再在上面画线当然还是看的到啊 我的线是先画的，不是运行宏后再画的。
程序中画边框是对的，但是wipeout命令好像不太对，我把我运行时命令行文本复制过来了，应该是有错误。－－我用的是autocad2004简体中文版，是不是版本不对？
命令: _vbarun<BR>选择对象: 找到 1 个
选择对象:
命令:<BR>命令: wipeout 指定第一点或 [边框(F)/多段线(P)] <多段线>: n
需要点或选项关键字。<BR>指定第一点或 [边框(F)/多段线(P)] <多段线>: (handent "D475A")<BR><图元名: 7ef68050>
需要点或选项关键字。<BR>指定第一点或 [边框(F)/多段线(P)] <多段线>: y
需要点或选项关键字。<BR>指定第一点或 [边框(F)/多段线(P)] <多段线>: *取消*
命令: *取消*
*取消*处理结束!
命令: *取消*<BR> 哦，我是2000版本的，不清楚2004哦，你把那个命令对应改一下试试 是版本问题，只要把n改成p就行了 你把ThisDrawing.SendCommand "wipeout n" & vbCr & axEnt2lspEnt(tpolyline) & vbCr & "y" & vbCr
改成：
ThisDrawing.SendCommand "wipeout p" & vbCr & axEnt2lspEnt(tpolyline) & vbCr & "y" & vbCr
,,,,,,我不知道2004的wipeout命令是怎么样提示的：（ 改正版本问题:
下载新的吧
对此程序很感兴趣
但试用后发现 选中的符号也不见了
而且遮盖的不整齐
建议设法将框向外放大一些，如2 mm
再说也不是批量的
拙见而已 请勿见笑 1、本程序只对选中的图块进行处理，如果你的符号是图块，而且选中理所当然要进行遮盖处理（如果你只希望对名为xxx的图块进行处理的话，可以帮你解决）
2、遮盖不整齐是什么意思？
3、外框放大很容易实现
4、对单个文件多个图块处理不算批量吗？（如果你需要对多个文件处理的话也可以帮你实现）
欢迎指出缺点，但如果你需要改进的话就回复（说明你需要的详细的功能），不回复的话我就不做改进了，我要留着时间练CS，因为最近老被别人爆头……
页:
[1]
2