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

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

'内边框
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
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
activelayer要求是一个acadlayer对象，不是字符串，这些都是语法问题，基础的问题，要打好基础呀！！所以你 ...

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

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

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

嗯嗯，对了，改成先前的对象名称就对了。另外还想问下您线宽设置的命令是怎么样的呢

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