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

自编图块批量遮罩小程序

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


自编图块批量遮罩小程序
**** Hidden Message *****

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

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

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


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



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

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

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

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

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

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