乐筑天下

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

過濾 xscalefactor相同的圖塊

[复制链接]

68

主题

177

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
449
发表于 2006-7-16 18:52:00 | 显示全部楼层 |阅读模式
本人想只选一些图块名相同,且xscalefactor相同的块,写了以下程式,可是不行
请问一下图块比例的DXF码是什么
Public Sub dk()
Dim Ssetobj As AcadSelectionSet, Nam As String, circ As AcadEntity, pk As Variant, Xs As Double
On Error Resume Next
ThisDrawing.SelectionSets("dk").Delete
Err.Clear
ThisDrawing.Utility.GetEntity circ, pk
circ.Highlight True
Nam = circ.Name
Xs = circ.XScaleFactor
Set Ssetobj = ThisDrawing.SelectionSets.Add("dk")
Dim Ftype(1) As Integer, Fdata(1) As Variant
Ftype(0) = 2: Fdata(0) = Nam
Ftype(1) = 40: Fdata(1) = Xs
Ssetobj.SelectOnScreen Ftype, Fdata
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2006-7-16 23:32:00 | 显示全部楼层
XScaleFactor的组码是41,YScaleFactor的组码是42,而ZScaleFacto的组码是43。
回复

使用道具 举报

68

主题

177

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
449
发表于 2006-7-17 08:07:00 | 显示全部楼层
谢谢天涯版主,请问哪里有些组码,autocad帮助上只有几个,版主可以发你知道的一些上来吗?在此先谢谢了
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-6 00:21 , Processed in 0.957275 second(s), 58 queries .

© 2020-2025 乐筑天下

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