yuangw1234 发表于 2006-7-16 18:52:00

過濾 xscalefactor相同的圖塊

<P>本人想只选一些图块名相同，且xscalefactor相同的块，写了以下程式，可是不行</P>
<P>请问一下图块比例的DXF码是什么</P>
<P>Public Sub dk()<BR>Dim Ssetobj As AcadSelectionSet, Nam As String, circ As AcadEntity, pk As Variant, Xs As Double<BR>On Error Resume Next<BR>ThisDrawing.SelectionSets("dk").Delete<BR>Err.Clear<BR>ThisDrawing.Utility.GetEntity circ, pk<BR>circ.Highlight True<BR>Nam = circ.Name<BR>Xs = circ.XScaleFactor<BR>Set Ssetobj = ThisDrawing.SelectionSets.Add("dk")<BR>Dim Ftype(1) As Integer, Fdata(1) As Variant<BR>Ftype(0) = 2: Fdata(0) = Nam<BR>Ftype(1) = 40: Fdata(1) = Xs<BR>Ssetobj.SelectOnScreen Ftype, Fdata<BR></P>

efan2000 发表于 2006-7-16 23:32:00

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

yuangw1234 发表于 2006-7-17 08:07:00

谢谢天涯版主，请问哪里有些组码，autocad帮助上只有几个，版主可以发你知道的一些上来吗？在此先谢谢了
页: [1]
查看完整版本: 過濾 xscalefactor相同的圖塊