乐筑天下

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

后期绑定中用ActiveLayer对象出错

[复制链接]
hustlei

2

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
14
发表于 2008-12-10 21:57:00 | 显示全部楼层 |阅读模式
请教
Dim AcadApp, AcadDoc, gridLayer As Object
        On Error Resume Next
        AcadApp = GetObject(, ".Application")
        If Err.Number  0 Then
            Err.Clear()
            AcadApp = CreateObject("AutoCAD.Application")
            If Err.Number  0 Then End
        End If
        AcadApp.Visible = True
        AcadDoc = AcadApp.ActiveDocument
        gridLayer = AcadDoc.Layers.Add("网格")           ’在CAD里这个层已经建出来了
        AcadDoc.ActiveLayer = gridLayer                   ‘这儿出错了
错在那儿了呢
AcadDoc.ActiveLayer.color = 5            也是对的就不是能给activelayer对象赋值
回复

使用道具 举报

mccad

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2008-12-10 22:22:00 | 显示全部楼层
注意当前有没有文档，如果没有打开的文档，就会出错我。
回复

使用道具 举报

hustlei

2

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
14
发表于 2008-12-10 22:27:00 | 显示全部楼层

主要是
gridLayer = AcadDoc.Layers.Add("网格")           这个没问题 声明过了的Private Shared gridLayer As Object
AcadDoc.ActiveLayer = gridLayer                       这一行总是出错 说什么找不到成员
我改了一下问题
回复

使用道具 举报

gyl

15

主题

127

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
187
发表于 2008-12-10 23:21:00 | 显示全部楼层
在出错行前加上 SET 试一下。
回复

使用道具 举报

hustlei

2

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
14
发表于 2008-12-11 08:27:00 | 显示全部楼层
谢谢
vb.net好像不以用set
加上后 vs2008会自动把set删掉
回复

使用道具 举报

mccad

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2008-12-11 16:41:00 | 显示全部楼层
gridLayer = AcadDoc.Layers.Add("网格")           
之前有没有确认过该名称的图层是否存在，如果存在，则会出错，出错后，gridLayer就不能赋值，也就会导致后续调用该变量的程序出错。
回复

使用道具 举报

hustlei

2

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
14
发表于 2008-12-13 21:30:00 | 显示全部楼层

这一句应该是没有问题的，
我每一次调试的时候都是新开的文档
回复

使用道具 举报

wang_qiang

10

主题

32

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
72
发表于 2008-12-20 16:14:00 | 显示全部楼层
我试了试，在.net中是有这个问题，可以用别的方法来实现当层的设置，如用sendcommand
回复

使用道具 举报

lwd899

6

主题

18

帖子

2

银币

初来乍到

Rank: 1

铜币
42
发表于 2011-7-17 13:52:00 | 显示全部楼层
不知道这个问题解决了没有，我也遇到了！
回复

使用道具 举报

s305040093

4

主题

30

帖子

6

银币

初来乍到

Rank: 1

铜币
46
发表于 2011-12-5 21:55:00 | 显示全部楼层
我刚刚遇到这个问题 可惜还没有答案，我是把vb6.0下的程序转为.net遇到的问题 ，还有一个是getboundingbox，那个好歹还可以变通，这个不知道怎么办
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-6-30 15:39 , Processed in 0.506505 second(s), 73 queries .

© 2020-2025 乐筑天下

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