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

使用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:18

acadDoc.ActiveLayer =边框
边框不需要引号

解决了请回复

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

Exlw 发表于 2012-12-12 15:28 static/image/common/back.gif
acadDoc.ActiveLayer =边框
边框不需要引号



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

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

本帖最后由 liuxu042 于 2012-12-12 15:52 编辑

activelayer要求是一个acadlayer对象，不是字符串，这些都是语法问题，基础的问题，要打好基础呀！！所以你要定义一个layer对象赋值

我很长时间没哟用vba，你试一下

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

liuxu042 发表于 2012-12-12 15:52 static/image/common/back.gif
activelayer要求是一个acadlayer对象，不是字符串，这些都是语法问题，基础的问题，要打好基础呀！！所以你 ...

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

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

25℃ 发表于 2012-12-12 16:05 static/image/common/back.gif
╮(╯▽╰)╭直接就喊用，痛啊。谢谢您的指导。我去试试去

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