CAD Fórum : Inventor - v�b�r entity

Inventor - v�b�r entity : Děkuji vyzkouším

Wed, 28 Jun 2023 12:48:24 +0000

Autor: pavelstyl
P�edm�t: 34443
Zasl�no: 28.�er.2023 v 12:48

D�kuji vyzkou��m

Inventor - v�b�r entity : Jednoduchá cesta asi nebude, ale...

Wed, 28 Jun 2023 12:29:39 +0000

Autor: Vladim�r Michl
P�edm�t: 34443
Zasl�no: 28.�er.2023 v 12:29

Jednoduch� cesta asi nebude, ale m�lo by zafungovat z�sk�n� sou�adnice kliknut� p�es "my�ovou" ud�lost:

	Dim oIntEv As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
	Dim oMouseEv As MouseEvents = oIntEv.MouseEvents
	AddHandler oMouseEv.OnMouseClick  ,AddressOf oMouseEv_OnMouseClick 
	oIntEv.Start

Sub oMouseEv_OnMouseClick(oMBtn As MouseButtonEnum, oShiftState As ShiftStateEnum, oMPos As Inventor.Point, oViewPos As Point2d, oView As Inventor.View)
   MsgBox("Model Position = " & oMPos.X & " cm x " & oMPos.Y & " cm (from model origin)" & vbCrLf & _
  "View Position = " & oViewPos.X & " x " & oViewPos.Y & " (from top left corner of view)", , "MOUSE POSITION")
End Sub

A pot� v�b�r pomoc� sou�adnice bodu:

oSheet.FindUsingPoint(PointPos)

Inventor - v�b�r entity : Dobrý den,ve výkrese ve skice...

Wed, 28 Jun 2023 08:45:00 +0000

Autor: pavelstyl
P�edm�t: 34443
Zasl�no: 28.�er.2023 v 08:45

Dobr� den,

ve v�krese ve skice pot�ebuji po u�ivateli, aby vybrat entitu (��ru).

To um�m ud�lat pomoc�

Dim Curve As DrawingCurveSegment  = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingCurveSegmentFilter, "Select first line to align")

D� se tak� zjistit poloha bodu, kam u�ivatel uk�zal?

Pot�ebuji vybrat jak entitu, tak i zn�t sou�adnice bodu v�b�ru.

AutoCAD na to m� lispovskou funkci (entsel), kter� vr�t� bod v�b�ru i entitu.

Je n�co takov�ho i v API Inventoru?

D�kuji

Pavel �tyl