Einfügen von Bildern auf DFT

[Papao]

Bye to all,
Können Sie mir sagen, ob Sie in dft Umgebung einfügen können, alle Bilder in einem Ordner automatisch?
Danke.

 

[Be_on_edge]

um dies automatisch zu tun, müssen Sie ein kleines Programm schreiben.

 

[Papao]

Ich schätze, du brauchst ein wenig Vb...
Bilddateien, die im dft eingefügt werden sollen, sind in einem Ordner enthalten, der mit dem gleichen Dateinamen (ohne Erweiterung) aufgerufen wird.

Kannst du mir helfen?

 

[Be_on_edge]

so etwas (nicht bewährter Code)

dim objapp als solidedgeframework.application = nichts
dim objdft als solidedgedraft.draftdocument = nichts
dim objsheet als solidedgedraft.sheet = nichts

objapp = marshal.getactiveobject("solidedge.application")
objdft = objapp.activedocument
objsheet = objdft.activesheet

dim objimages as solidedgedraft.images2d = objsheet.images2d
dim objimage as solidedgedraft.image2d = objimages.addimage(false,"nomeimmagine")

objimage.setorigin(x, y)
objimage.height = h è l'altezza dell'immagine
objimage.width = w è la larghezza dell'immagine

 

[Papao]

der Code gibt den Syntaxfehler auf allen variablen Aussagen zurück;
Ich dachte, sie hätten die Hinweise auf die Buchhandlungen verpasst, aber auch sie aktiviert, ich habe sie nicht gelöst.
Vielleicht fand ich den richtigen nicht?

 

[Papao]

Ich benutze den alten Vb6.

 

[dsw]

vb6?
Wenn Sie den Code setzen, den Sie geschrieben haben... Es ist einfacher, Antworten zu finden...

 

[Be_on_edge]

Ich habe vb6 seit mindestens 10 Jahren nicht benutzt und war schon alt.

Sie müssen auf jeden Fall Referenzen hinzufügen, in den Aussagen entfernen Sie die Zuordnung von Wert, aber tun Sie es in einer separaten Zeile, um die Werte zuzuweisen, die Sie wahrscheinlich hinzufügen müssen "set" vor dem Befehl.

Ich würde visuelle Studio-Community oder visuellen Studiocode herunterladen, mit dem Sie eine Welt der Möglichkeiten öffnen.

dim objapp als solidedgeframework.application
dim objdft als solidedgedraft.draftdocument
dim objsheet als solidedgedraft.sheet

set objapp = getactiveobject("solidedge.application")
set objdft = objapp.activedocument
set objsheet = objdft.activesheet

dim objimages as solidedgedraft.images2d
dim objimage als solidedgedraft.image2d

objimages = objsheet.images2d
set objimage = objimages.addimage(false,"nomeimmagine")

rufen Sie objimage. setorigin(x, y)
setzen objimage. Höhe = h 'h è l'altezza dell'immagine
setzen objimage. Breite = w 'w è la larghezza dell'immagine

 

[dsw]

@be_on_edge wenn ich mich nicht an schlechte Höhe und Breite sind Zahlenwerte oder falsch?

 

[Be_on_edge]

von sdk ein Objekt eine doppelartige Eigenschaft, die die Maßnahme in Metern darstellen sollte
Bild2D Objekt

 

[dsw]

@be_on_edge Dank für den Anschluss an die Führung der sdk von if, aber in der Führung sind die beiden Werte "Breite" & "Höhe" "Eigenschaften" und der "Doppel" ist ein "Datentyp".

Wenn Sie über Objekt reden, beziehen Sie sich auf "image2d"?

 

[Be_on_edge]

@be_on_edgeDank für den Anschluss an die Führung der sdk von if, aber in der Führung sind die beiden Werte "Breite" & "Höhe" "Eigenschaften" und der "Doppel" ist ein "Datentyp".

Wenn Sie über Objekt reden, beziehen Sie sich auf "image2d"?

Tut mir leid, ich meinte, es ist eine doppelte Eigenschaft, die die Größe des Bildes in Metern darstellt. wenn Sie 100 mm breites Bild möchten, müssen Sie verwenden

setzen objimage. Breite = 0,1

 

[dsw]

Okay, ich verstehe, aber es scheint seltsam, dass Sie den Wert mit der "set" Richtlinie zuordnen müssen... nur dass ich vb6 nicht mehr für ein Jahrhundert benutze... Ich werde meine Erinnerung aktualisieren.... Das tut im Sommer nicht weh.

 

[Be_on_edge]

Okay, ich verstehe, aber es scheint seltsam, dass Sie den Wert mit der "set" Richtlinie zuordnen müssen... nur dass ich vb6 nicht mehr für ein Jahrhundert benutze... Ich werde meine Erinnerung aktualisieren.... Das tut im Sommer nicht weh.

vielleicht nicht benötigt, vb6 war ein seltsamer Hybrid als Syntax in einigen Fällen Sie das Set in anderen nicht verwendet, ich erinnere mich nicht, warum motivo

 

[dsw]

vielleicht nicht benötigt, vb6 war ein seltsamer Hybrid als Syntax in einigen Fällen Sie das Set in anderen nicht verwendet, ich erinnere mich nicht, warum motivo

Ja, ich bin neugierig. .

Ich war neugierig, den Code zu sehen, den er schrieb beten um zu verstehen, was er über verschiedene "Dinge" schrieb... aber meine ist nur eine Neugier

Vielleicht schrieb ich zu oft neugierig... Wer ist heiß?

 

[Papao]

Es tut mir leid, Sie zu enttäuschen, aber ich habe noch nichts in vb6 geschrieben, außer zu versuchen, was Francis vorgeschlagen hat: Leider kann ich ein paar Minuten am Tag widmen und nicht immer..

Ich fragte den vb6, weil er der einzige ist, den ich kenne, und ich konnte den Code nicht verstehen, den Francesco ursprünglich geschrieben hatte.

Jedoch testen Sie den Code, die folgende Zeile schief geht und die Bibliotheken, die ich glaube, ich habe sie alle aktiviert

set objapp = getactiveobject("solidedge.application")

 

[dsw]

beten Du hast mich nicht enttäuscht. Keine Sorge.

Was ich fragte, ist nur die Zeilen von Code, die Sie geschrieben haben und die Ihnen Fehler geben, Ich denke, das Lesen des geschriebenen Codes (eine Zeile oder viele, die sind) ist sofort, als darüber zu sprechen, um zu verstehen, ob es Fehler gibt.

Wie auch immer, das ist der Code, den du geschrieben hast. @be_on_edge "revisitiert" und getestet.

' codice vba
Sub createimage2d()
fehler goto createtoolpalette_error
dim oapp als solidedgeframework.application
set oapp = getobject(, "solidedge.application")

oapp.screenupdating = falsch

dim oimage als solidedgeframeworksupport.image2d

set oimage = oapp.activedocument.activesheet.images2d.addimage(false, "percorso completo dell'immagine")

oimage.setorigin 0,1, 0,1

oapp.screenupdating = true

oimage = nichts
oapp = nichts

auf fehler goto 0
Ausgang Sub

Erstellen Sie Palettetool_error:

msgbox "errore " & err.number & " (" & err.description & ") nella procedura createimage2d, linea " & erl & ".

Endteil

Dies ist der gleiche Code in vbs

dim app : set app = getobject(,"solidedge.application")

app.screenupdating = falsch

dim image : set image = app.activedocument.activesheet.images2d.addimage(false, "percorso completo del file")
' call image.setorigin(0.1, 0.1)
oppure
image.setorigin 0.1, 0.1

app.screenupdating = true

dieser gleiche Code in perl

# activex interface
Verwendung win32::ole;
verwenden Sie win32::ole::variant;
Verwenden Sie bestehende Instanz, wenn Solidedge bereits läuft
eval {$solidedge = win32::ole->getactiveobject('solidedge.application')};
die "Festung nicht installiert" wenn $@;
außer (definierte $solidedge) {
$solidedge = win32::ole->new('solidedge.application')
oder sterben "Schlaufen, können nicht erstarren";
}

$doc = $solidedge->activedocument();
$img = $doc->activesheet->images2d->addimage(false, "percorso completo del file");
$img-setorigin(0.1, 0.1);

dieser gleiche Code in python

Import win32com.client, Zeit, win32con

app = win32com.client.dispatch("solidedge.application")

wenn App keine ist:
img = app.activedocument.activesheet.images2d.addimage(false, "percorso completo del file")
img.setorigin(0.1, 0.1)
andere:
Print("errore! solidedge non trovato!")

 

[Be_on_edge]

Es tut mir leid, Sie zu enttäuschen, aber ich habe noch nichts in vb6 geschrieben, außer zu versuchen, was Francis vorgeschlagen hat: Leider kann ich ein paar Minuten am Tag widmen und nicht immer..

Ich fragte den vb6, weil er der einzige ist, den ich kenne, und ich konnte den Code nicht verstehen, den Francesco ursprünglich geschrieben hatte.

Jedoch testen Sie den Code, die folgende Zeile schief geht und die Bibliotheken, die ich glaube, ich habe sie alle aktiviert

set objapp = getactiveobject("solidedge.application")

der richtige Code ist:

set objapp = getobject(,"solidedge.application")

 

[Papao]

Danke, Leute, sehr freundlich wie immer... rötlich zu viel ich würde sagen nein

Aber ich glaube, ich bin falsch, weil der Code in vba den folgenden Fehler zurückgibt:Dies ist die für den Pfad eingegebene Codezeile I und innerhalb enthält eine oder mehrere jpg-Typ-Dateien

oimage = oapp.activedocument.activesheet.images2d.addimage(false, "c:\users\paolo\desktop\solid edge\parte1\")

 

[Be_on_edge]

Danke, Leute, sehr freundlich wie immer... rötlich zu viel ich würde sagen nein

Aber ich glaube, ich bin falsch, weil der Code in vba den folgenden Fehler zurückgibt:Anhang anzeigen 71893Dies ist die für den Pfad eingegebene Codezeile I und innerhalb enthält eine oder mehrere jpg-Typ-Dateien

oimage = oapp.activedocument.activesheet.images2d.addimage(false, "c:\users\paolo\desktop\solid edge\parte1\")

Sie haben den Dateinamen nicht hinzugefügt; Sie müssen die Addimagemethode für jedes im Ordner enthaltene Bild verwenden. so etwas:

(nicht geprüfter Code, Bilder werden nebeneinander alle 100 mm eingefügt)

Strfiles = dir("c:\users\paolo\desktop\solid edge\parte1\")

x = 0,1

während Strfiles <> ""
oimage = oapp.activedocument.activesheet.images2d.addimage(false, strfiles)
Oimage. Setorigin x, 0,1
x = x + 0,1
Strfiles = Dir
wir