CAD VB实现Wipeout的创建删除后置（CAD VB to achieve the creation, deletion, post Wipeout）.docVIP

CAD VB实现Wipeout的创建删除后置（CAD VB to achieve the creation, deletion, post Wipeout） 私有子aerobutton1_click() 错误打下良好的基础 昏暗的obj为文档 昏暗的DOC程序 昏暗的资产作为acadselectionset 暗淡的我，像双倍的 FT（0）为整数 变差FD（0） 设置obj = GetObject（，“AutoCAD应用。16”） 集doc = obj.activedocument FT（0）＝0 FD（0）=“消灭” 定资产= createsset（“资产”，DOC） 明确的资产。 资产选择acselectionsetall，，FT，FD 如果资产。数 0 pro.max数=资产。 我= 0 - 1计数的资产。 值= i 资产项目。（我）。删除 下一个 最后如果 MsgBox（“删除完毕！”） 退出子 打下良好的基础： MsgBox（“程序出错，不能处理的异常！”） 端子 私有子aerobutton2_click() 错误打下良好的基础 昏暗的obj为文档 昏暗的DOC程序 昏暗的资产作为acadselectionset 昏暗的PNT（0～7）倍 变差为变量 作为变量的最大值 昏暗的ZnT变异 txt为acadtext暗淡 昏暗的arg1为双 昏暗的2倍 昏暗的ARG3双 昏暗AR