乐筑天下

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

[求助]请帮我看以下这段代码

[复制链接]
gjliang

11

主题

39

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2003-11-21 12:52:00 | 显示全部楼层 |阅读模式
Sub wm()
Dim ent As AcadEntity
Dim tet As String
    For Each ent In ThisDrawing.ModelSpace
        If ent.linetype = "acad_iso05w100" Then
       ' On Error Resume Next
            Dim layc As AcadLayer
            Set layc = ThisDrawing.layers.add("虚线")
            layc.Color = acWhite
            layc.Lineweight = acLnWt050
            ent.layer = "虚线"
            ent.Color = acByLayer
            ent.Lineweight = acLnWtByLayer
            ent.linetype = "acad_iso05w100"
        End If
Next
ThisDrawing.PurgeAll
End Sub
请问为什么不能用ent.linetype = "acad_iso05w100" 做判断条件？
回复

使用道具 举报

gzy

25

主题

1118

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1221
发表于 2003-11-21 13:02:00 | 显示全部楼层
应该是ent.linetype ="ACAD_ISO05W100"
  然后你再用这个线型画一条线就可以运行到里面了。
回复

使用道具 举报

gjliang

11

主题

39

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2003-11-21 13:14:00 | 显示全部楼层
我是想实现一个没有分层但里面有ACAD_ISO05W100线型，把它取出来单独建一个虚线层。并把所有ACAD_ISO05W100线型的实体转到该层上。
回复

使用道具 举报

gzy

25

主题

1118

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1221
发表于 2003-11-21 13:25:00 | 显示全部楼层
上面的ent.layer="虚线"已经将符合条件的对象转到了“虚线”层了啊。
  另外ent.linetype = "acad_iso05w100"这句好象没有必要。
回复

使用道具 举报

gjliang

11

主题

39

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2003-11-21 13:28:00 | 显示全部楼层
但是我运行后没有任何效果的，运行得到的结果是：ent.linetype ="bylaye"
回复

使用道具 举报

gzy

25

主题

1118

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1221
发表于 2003-11-21 13:31:00 | 显示全部楼层
这是因为你的图形空间没有符合条件（线型）的对象
  你用该线型画一条线你就清楚了
回复

使用道具 举报

mccad

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-11-21 13:33:00 | 显示全部楼层
对于一些对象没有特别指定线型时，对象的线型为随层(BYLAYER)，这样你通过使用
If ent.linetype ="ACAD_ISO05W100" Then
是过滤不出该对象的。
回复

使用道具 举报

gjliang

11

主题

39

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2003-11-21 13:36:00 | 显示全部楼层
如果是以线宽、颜色等来做判断条件的话，就可以把符合条件的转移到相应图层里，你可以把这段程序放到你的机子上运行一下。如果改成线宽或者颜色做判断条件的话是可以的。用我的这个文件试一下。2003112113355828206.dwg
回复

使用道具 举报

gzy

25

主题

1118

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1221
发表于 2003-11-21 13:45:00 | 显示全部楼层
用你的程序一样也可以。
我是用ent.linetype ="ACAD_ISO05W100"运行结果如下。没有问题啊。


                               
登录/注册后可看大图

回复

使用道具 举报

gjliang

11

主题

39

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2003-11-21 13:46:00 | 显示全部楼层
明总的意思是不是如果每一个实体都给指定了不随层的线型就可以了呢，那这个程序的作用也就没有了，因为在一个图上总会有随层的线型的。
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-6-29 12:32 , Processed in 2.006146 second(s), 72 queries .

© 2020-2025 乐筑天下

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