insertion d\'un bloc en VB6

[jtoto]

Bonjour à tous,

Je suis nouveau dans le monde Autodesk et j'aimerais pouvoir faire un petit programme en Microsoft vb6 pour inserer un bloc dans un fichier autocad 2005 en gardant visualusé le bloc au bout de ma souris.

actuellement mon bloc apparait seulement quand celui-ci est placé:

Dim iApp As AcadApplication

If iApp Is Nothing Then

On Error Resume Next

Set iApp = GetObject(, "Autocad.Application")

If Err Then

Err.Clear

On Error GoTo 0

Set iApp = CreateObject("Autocad.Application")

End If

On Error GoTo 0

iApp.Visible = True

End If

Dim insertionPnt As Variant

On Error Resume Next

insertionPnt = iApp.ActiveDocument.Utility.GetPoint(, "donner le point : ")

 

 

Set blockRefObj = iApp.ActiveDocument.ModelSpace.InsertBlock(insertionPnt, Text1.Text, 1#, 1#, 1#, 0)

 

 

Merci à celui qui peut m'aider

Jtoto

 

 

[Edité le 3/2/2005 par jtoto]

[Pako]

Bienvenue sur CADxp !

 

en gardant visualusé le bloc au bout de ma souris

Moi aussi j'ai le même problème en VBA ! :casstet:

 

 

Mais je crois que s'est possible en Lisp ! Est-ce la seul façon ? :exclam:

[marquee]SO.S. Les grands manitous de ce forum ![/marquee]

[BIM G CO]

et en décalant le problème insérant le bloc d'avance

le point d'insertion? la variable autoCAD "VIEWCTR" milieu de l'écran je croit

 

et ensuite de déplacer ce bloc (peut-être là on le voit non?

[Patrick_35]

En lisp c'est possible par ce biais

(command "_.insert" "1" pause pause "" pause) 

 

Et peut-être avec un sendcommand ?

 

ps : il n'est pas demandé le facteur échelle y, regardez pourquoi

 

@+

[Pako]

et en décalant le problème insérant le bloc d'avance

le point d'insertion? la variable autoCAD "VIEWCTR" milieu de l'écran je croit

et ensuite de déplacer ce bloc (peut-être là on le voit non?

 

J'ai utilisé la coordonnée 0,0,0 au lieu de la varaible "VIEWCTR" pour simplifier mon exemple !

 

Je ne vois pas autrement (insérer et ensuite bouger )........ :casstet:

 

Public Sub INSERT_VIEW_BLOCK()

 

....Dim objBlockRef As AcadBlockReference

....Dim basePnt(0 To 2) As Double

....Dim dbRot As Double

....Dim varPoint As Variant

 

....basePnt(0) = 0#: basePnt(1) = 0#: basePnt(2) = 0#

....varPoint = ThisDrawing.Utility.GetPoint(, "ENTRER UN POINT")

....dbRot = ThisDrawing.Utility.GetAngle(varPoint, "ENTRER DEUXIEME POINT POUR DONNER L'ANGLE DU BLOC :")

 

.... Set objBlockRef = ThisDrawing.ModelSpace. [surligneur]InsertBlock[/surligneur] (basePnt, "NOMduBLOC", 1#, 1#, 1#, dbRot)

....objBlockRef.Update

 

....ThisDrawing.SendCommand [surligneur]"_move"[/surligneur] & vbCr & "c" & vbCr & "0,0,0" & vbCr & "0,0,0" & vbCr & vbCr & "0,0,0" & vbCr

 

End Sub

 

à suivre ........