如果知道一个面角点的X,Y,Z坐标, 那么怎样自动才能选择这个角点?

如果知道一个面角点的X,Y,Z坐标, 那么怎样自动才能选择这个角点?
SOLIDWORKS有没有类似的命令?

[ 本帖最后由 slayerran 于 2008-7-10 21:46 编辑 ]

自动的不会

是否指二次开发内的指令？

是不是需要做一个基准点啊，通过坐标来做出来。

感谢大家回复。

并不是创造一个点，而是这个点是一个已经存在的点，我想选取它………………

闷大，我指的就是二次开发的

现在编程遇到一点麻烦的事情。主要是一个面和一个实体相交，现在我想选择面边线为相交线的边线（-_-||| 貌似比较拗口………………）。我可以画出一个3D sketch来表示边线，但是这仅仅是一个3Dsketch，我想要选择那条真正的边线………………

10月份答辩，时间有点紧，现在卡在这个地方编不下去了，烦死了………………

帖子沉了顶一下

在二次开发中选取任何几何要素的最好方法是在生成这个几何体（点、线、面、特征、实体）的时候把它赋予一个变量，以后用的时候，直接调用这个变量。

如果你错过了在它出生的时候记住它，会很麻烦。

二次开发的时候，最好的老师，是二次开发帮助文件，里面有很多例子可以借鉴。

“但是这仅仅是一个3Dsketch，我想要选择那条真正的边线”

在帮助里有一个例子，找到这个Sketch后，SW自动给所有的边、点都命了名，可以抓出来的。你好好读读help。还有一个方法，写程序的时候，当你输入点之后，程序自动给出所有的关于此对象的方法。根据这些提示，你进一步去找help。

Get Sketch Segment and Curve Data Example (VB)
This example shows how to get data about a sketch segment and curve.



'---------------------------------------------

'

' Preconditions:

'             (1) Model document is open.

'             (2) Sketch segment is selected.

'

' Postconditions: None

'

'---------------------------------------------

Option Explicit

Public Enum swSkSegments_e

    swSketchLINE = 0

    swSketchARC = 1

    swSketchELLIPSE = 2

    swSketchSPLINE = 3

    swSketchTEXT = 4

    swSketchPARABOLA = 5

End Enum

' Define two types

Type DoubleRec

    dValue As Double

End Type

Type Long2Rec

    iLower As Long

    iUpper As Long

End Type

' Extract two integer values from of a single double value

' by assigning a DoubleRec to the double value and

' copying the value to a Long2Rec and

' extracting the integer values

Function ExtractFields _

( _

    ByVal dValue As Double, _

    iLower As Long, _

    iUpper As Long _

)

    Dim dr                      As DoubleRec

    Dim i2r                     As Long2Rec

    ' Set the double value

    dr.dValue = dValue

    ' Copy the values

    LSet i2r = dr

    ' Extract the values

    iLower = i2r.iLower

    iUpper = i2r.iUpper

End Function

Sub ProcessCurve _

( _

    swApp As SldWorks.SldWorks, _

    swModel As SldWorks.ModelDoc2, _

    swCurve As SldWorks.curve _

)

    Dim nStartParam             As Double

    Dim nEndParam               As Double

    Dim bIsClosed               As Boolean

    Dim bIsPeriodic             As Boolean

    Dim vStartEval              As Variant

    Dim vEndEval                As Variant

    Dim nSuccessStart           As Long

    Dim nEndStart               As Long

    Dim nDummy                  As Long

    Dim bRet                    As Boolean

   

    bRet = swCurve.GetEndParams(nStartParam, nEndParam, bIsClosed, bIsPeriodic): Debug.Assert bRet

    vStartEval = swCurve.Evaluate(nStartParam)

    vEndEval = swCurve.Evaluate(nEndParam)

   

    ExtractFields vStartEval(6), nSuccessStart, nDummy

    ExtractFields vEndEval(6), nEndStart, nDummy

   

    Debug.Print "    IsClosed       = " & bIsClosed

    Debug.Print "    IsPeriodic     = " & bIsPeriodic

    Debug.Print "    IsTrimmed      = " & swCurve.IsTrimmedCurve

    Debug.Print "    Start"

    Debug.Print "      Point        = (" & vStartEval(0) * 1000# & ", " & vStartEval(1) * 1000# & ", " & vStartEval(2) * 1000# & ") mm"

    Debug.Print "      Tangent      = (" & vStartEval(3) & ", " & vStartEval(4) & ", " & vStartEval(5) & ")"

    Debug.Print "      Success      = " & nSuccessStart

    Debug.Print "    Finish"

    Debug.Print "      Point        = (" & vEndEval(0) * 1000# & ", " & vEndEval(1) * 1000# & ", " & vEndEval(2) * 1000# & ") mm"

    Debug.Print "      Tangent      = (" & vEndEval(3) & ", " & vEndEval(4) & ", " & vEndEval(5) & ")"

    Debug.Print "      Success      = " & nEndStart

End Sub

Sub main()

    Dim sSkSegmentsName(5)      As String

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swSelMgr                As SldWorks.SelectionMgr

    Dim swSkSeg                 As SldWorks.SketchSegment

    Dim swCurve                 As SldWorks.curve

    Dim swSkFeat                As SldWorks.feature

    Dim swSketch                As SldWorks.sketch

    Dim vID                     As Variant

    Dim bRet                    As Boolean

   

    sSkSegmentsName(swSketchLINE) = "swSketchLINE"

    sSkSegmentsName(swSketchARC) = "swSketchARC"

    sSkSegmentsName(swSketchELLIPSE) = "swSketchELLIPSE"

    sSkSegmentsName(swSketchSPLINE) = "swSketchSPLINE"

    sSkSegmentsName(swSketchTEXT) = "swSketchTEXT"

    sSkSegmentsName(swSketchPARABOLA) = "swSketchPARABOLA"

   

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swSkSeg = swSelMgr.GetSelectedObject5(1)

    Set swCurve = swSkSeg.GetCurve

    Set swSkFeat = swSkSeg.GetSketch

    Set swSketch = swSkFeat.GetSpecificFeature

   

    vID = swSkSeg.GetId

   

    Debug.Print "Feature = " & swSkFeat.Name & " [" & swSketch.Is3D & "]"

    Debug.Print "  Sketch segment data"

    Debug.Print "    ID = [" & vID(0) & "," & vID(1) & "]"

    Debug.Print "      Type                 = " & sSkSegmentsName(swSkSeg.GetType)

    Debug.Print "      ConstGeom            = " & swSkSeg.ConstructionGeometry

   

    Debug.Print "  Curve data"

    ProcessCurve swApp, swModel, swCurve

End Sub

'---------------------------------------------