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