查看单个帖子
旧 2009-04-19, 06:11 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】利用vba从excel调用autocad,如何创建图层,谢谢

利用vba从excel调用autocad,如何创建图层,谢谢
www.dimcax.com
利用vba从excel调用autocad,如何创建图层,谢谢
利用vba从excel调用autocad,如何创建图层,谢谢
sub test()
' 连接acad
dim acadapp as object
set acadapp = getobject(, "autocad.application")
if err then
err.clear
set acadapp = createobject("autocad.application")
if err then exit sub
end if
' 创建层
acadapp.activedocument.layers.add ("new_layer")
end sub
是vba中,最后一句就可以了吧
多动脑筋
是从excel调用autocad
明经通道
我的博客 /blog/user1/1
我已经搞定了,谢谢
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)