25℃ 发表于 2012-12-12 15:14:00

使用VB调用CAD改变当前图层提示类型不匹配

'内边框
Dim Pline1Obj As AcadPolyline
Dim NewLayerObj As AcadLayer
Set NewLayerObj = acadDoc.Layers.Add("边框")
NewLayerObj.Color = acRed
acadDoc.ActiveLayer = "边框"‘问题提示出在这个“边框”上，求大神讲解
Dim point1(0 To 14) As Double

Exlw 发表于 2012-12-12 15:28:00

acadDoc.ActiveLayer =边框
边框不需要引号
解决了请回复

25℃ 发表于 2012-12-12 15:33:00


谢谢了哈，能够运行了，但是仍然没有被置为当前图层，请您再看看

liuxu042 发表于 2012-12-12 15:52:00


activelayer要求是一个acadlayer对象，不是字符串，这些都是语法问题，基础的问题，要打好基础呀！！所以你要定义一个layer对象赋值
我很长时间没哟用vba，你试一下

25℃ 发表于 2012-12-12 16:05:00


╮(╯▽╰)╭直接就喊用，痛啊。谢谢您的指导。我去试试去

25℃ 发表于 2012-12-12 16:07:00


嗯嗯，对了，改成先前的对象名称就对了。另外还想问下您线宽设置的命令是怎么样的呢
页: [1]
查看完整版本: 使用VB调用CAD改变当前图层提示类型不匹配