CAD vba 如何调用现在的图层
如题:在cad文件中已经现有"图层1","图层2","图层3"....在VBA自怎么调用?PrivateSubCommandButton1_Click()ThisDraw...
如题: 在cad 文件中已经现有"图层1","图层2","图层3"....
在VBA自怎么调用?
Private Sub CommandButton1_Click()
ThisDrawing.ActiveLayer ="图层1"
.....
end sub
直接用ThisDrawing.ActiveLayer ="图层1" 是不行的.
是不是要加载什么图层文件才行? 展开
在VBA自怎么调用?
Private Sub CommandButton1_Click()
ThisDrawing.ActiveLayer ="图层1"
.....
end sub
直接用ThisDrawing.ActiveLayer ="图层1" 是不行的.
是不是要加载什么图层文件才行? 展开
展开全部
dim t as Variant
if ThisDrawing.ActiveSelectionSet.Count then '判断是否选择了对象
for each t in ThisDrawing.ActiveSelectionSet ‘循环每一个选中的对象
……处理每一个选中的图元对象 t……
next
end if
if ThisDrawing.ActiveSelectionSet.Count then '判断是否选择了对象
for each t in ThisDrawing.ActiveSelectionSet ‘循环每一个选中的对象
……处理每一个选中的图元对象 t……
next
end if
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
