[求助]如何用ActiveX实现重载线型的功能？

cqszgs · 发表于 2003-12-1 16:39:00

在CAD中加载线型时，如果此线型已经存在，CAD会提示重载线型，我想用ActiveX重新载入一个线型，请问该如何实现？

莫名 · 发表于 2003-12-4 20:27:00

ThisDrawing.SetVariable "filedia", 0
ThisDrawing.SendCommand "-linetype l DASHDOT" & vbCr & "acad" & vbCr & vbCr & vbCr
DASHDOT 是重新加载的线型名。

cqszgs · 发表于 2003-12-11 14:06:00

非常感谢！

yansike · 发表于 2005-9-2 15:21:00

可是这样式会弹出一个选择文件的对话框出来啊，怎么办呢！！

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