小莞熊 发表于 2005-9-7 13:50:00

不知道那位有select,selectatpoint,selectbypolygon,getsubentity的详细说明

不知道那位有select,selectatpoint,selectbypolygon,getsubentity的详细说明，帮助中很简单。

mccad 发表于 2005-9-7 18:49:00

帮助中的说明已经够用了。自己仔细找吧。<BR>说说哪方面没有说明清楚。

小莞熊 发表于 2005-9-15 15:46:00

<P>我的英文很水的，那有中文的帮助</P>

MJTD_7777 发表于 2005-9-16 15:59:00

我有很多版本的帮助文件，不过都是E文。

MJTD_7777 发表于 2005-9-16 16:17:00

<P><A href="http://www.mjtd.com/object/acad2004/" target="_blank" >http://www.mjtd.com/object/acad2004/</A></P>
<P>这个是中文的。</P>

Lucid 发表于 2013-4-13 11:32:36

本帖最后由 Lucid 于 2013-4-13 11:50 编辑

mccad 发表于 2005-9-7 18:49 static/image/common/back.gif
帮助中的说明已经够用了。自己仔细找吧。说说哪方面没有说明清楚。

有同感，selectatpoint语句总搞不定。有一连续切割的等高实体，想按叠放顺序输出各部分的体积，才学VBA，功底不够，代码被改的惨不忍睹了，另外图很大，看到有说会影响选取。
Sub selsetTest()
    Dim i, H As Integer
    Dim p(0 To 2) As Double
    Dim sset As AcadSelectionSet
    Dim element As AcadEntity
    Set sset = ThisDrawing.SelectionSets.Add("ss1")
    H =300
    For i = 1 To H * 10
      p(0) = -0.05: p(1) = i * 0.1 - 0.05: p(2) = 0
      sset.SelectAtPoint (p)
      element = sset.Item(0)
      MsgBox i & "：" & element.Volume
      sset.RemoveItems (0)
    Next i
    setobj.Delete
End Sub
页: [1]
查看完整版本: 不知道那位有select,selectatpoint,selectbypolygon,getsubentity的详细说明