乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 91|回复： 5

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

[复制链接]
25℃

4

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
27
发表于 2012-12-12 15:14:00 | 显示全部楼层 |阅读模式
'内边框
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

1

主题

6

帖子

3

银币

初来乍到

Rank: 1

铜币
10
发表于 2012-12-12 15:28:00 | 显示全部楼层
acadDoc.ActiveLayer =边框
边框不需要引号
解决了请回复
回复

使用道具 举报

25℃

4

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
27
发表于 2012-12-12 15:33:00 | 显示全部楼层

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

使用道具 举报

liuxu042

4

主题

86

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
102
发表于 2012-12-12 15:52:00 | 显示全部楼层

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

使用道具 举报

25℃

4

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
27
发表于 2012-12-12 16:05:00 | 显示全部楼层

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

使用道具 举报

25℃

4

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
27
发表于 2012-12-12 16:07:00 | 显示全部楼层

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

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-6-29 22:53 , Processed in 1.382176 second(s), 65 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表