VBA中关于在不同图层画图的问题

wxchenlin · 发表于 2005-12-28 23:23:00

请问我们在写VBA程序的时候，怎样切换图层，在另一图层上继续画图？

如：我本在粗直线图层上画了一直线，现想在虚线层上画一虚线，请问用什么方法可以实现？谢谢！

hangc · 发表于 2005-12-29 11:56:00

将虚线层设置为当前层就可以了！

Dim newLayer As AcadLayer
Set newLayer = AcadDoc.Layers.Add("虚线层")
AcadDoc.ActiveLayer = newLayer

daziduan · 发表于 2005-12-29 14:06:00

hehe ,我也是刚解决了这个问题，对了，1楼，建议多用cad的自身帮助文件。呵呵。我是自己搜索解决的。

wxchenlin · 发表于 2005-12-29 15:54:00

多谢指点！

账号		自动登录	找回密码
密码			注册