RGB avec VBA-AUTOCAD
raftanelle
Messages postés
16
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
16 avril 2007
-
27 nov. 2005 à 14:35
raftanelle Messages postés 16 Date d'inscription dimanche 27 novembre 2005 Statut Membre Dernière intervention 16 avril 2007 - 27 nov. 2005 à 19:38
raftanelle Messages postés 16 Date d'inscription dimanche 27 novembre 2005 Statut Membre Dernière intervention 16 avril 2007 - 27 nov. 2005 à 19:38
2 réponses
Julien237
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
7
27 nov. 2005 à 16:14
27 nov. 2005 à 16:14
Pour refaire la fonction rgb, c'est facile
function RGB2(r as byte, g as byte, b as byte) as long
RGB2=r+g*256+b*65536
end function
Je connais pas VBA-AUTOCAD, mais si tu donnais quelques renseignements
sur la nature de lineObj et de ThisDrawing, ça pourrait aider...
Julien
function RGB2(r as byte, g as byte, b as byte) as long
RGB2=r+g*256+b*65536
end function
Je connais pas VBA-AUTOCAD, mais si tu donnais quelques renseignements
sur la nature de lineObj et de ThisDrawing, ça pourrait aider...
Julien
raftanelle
Messages postés
16
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
16 avril 2007
27 nov. 2005 à 19:38
27 nov. 2005 à 19:38
E programmation jesuis très loing de tout comprendre.
Voici mes déclarations :
Public Sub ImportPoints()
Dim ExcelAppObj As Excel.Application
Dim FileName As String
Dim ExcelSheet As Excel.Worksheet
'
Dim Row As Integer
'
Dim lineObj As AcadLine
Dim PointDépart(0 To 2) As Double
Dim PointFin(0 To 2) As Double
Dim CouleurObjet As Long
Voici mes déclarations :
Public Sub ImportPoints()
Dim ExcelAppObj As Excel.Application
Dim FileName As String
Dim ExcelSheet As Excel.Worksheet
'
Dim Row As Integer
'
Dim lineObj As AcadLine
Dim PointDépart(0 To 2) As Double
Dim PointFin(0 To 2) As Double
Dim CouleurObjet As Long
