過濾 xscalefactor相同的圖塊

yuangw1234

本人想只选一些图块名相同，且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

efan2000

XScaleFactor的组码是41，YScaleFactor的组码是42，而ZScaleFacto的组码是43。

yuangw1234

谢谢天涯版主，请问哪里有些组码，autocad帮助上只有几个，版主可以发你知道的一些上来吗？在此先谢谢了