Einfügen von Bildern auf DFT

[dsw]

(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

I an die Variable "x" würde ich den Wert der Breite oder Höhe des Bildes (oimage.widht oder oimage.height) untertauchen, je nachdem, ob horizontal oder vertikal gebändert.@be_on_edge Was denkst du, eine gute Idee?

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

....Nacht hatte ich 5 Minuten und ich wusste nicht, was ich tun soll

... Ich dachte, ich würde einige Beispiele hinzufügen (wie das klassische Beispiel "Hello world!") in anderen Programmiersprachen (Typ php, luart, powerhell, c#, javascript, go, ruby) aber dann sagte ich... aber heute Nacht nicht schlafen? :unsichert:

 

[Papao]

I an die Variable "x" würde ich den Wert der Breite oder Höhe des Bildes (oimage.widht oder oimage.height) untertauchen, je nachdem, ob horizontal oder vertikal gebändert.

@be_on_edge was denkst du, eine gute Idee?

sicherlich muss ich das Bild skalieren, es an den freien Raum anpassen, den ich im Blatt zur Verfügung habe; dann dachte ich, ich würde sie neben zwei bis zwei (von unten nach oben) färben.


Aber Leute, warum bekomme ich immer den Fehler auf dieser Linie? (die Strfiles-Variable ist korrekt dem Dateinamen zugeordnet. .

oimage = oapp.activedocument.activesheet.images2d.addimage(false, strfiles)

den vollen Code eingeben:

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

oapp.screenupdating = falsch

dim oimage als solidedgeframeworksupport.image2d

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


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

 

[Be_on_edge]

weil strfiles der einzige Dateiname im Effekt ist; Sie müssen auch den Pfad hinzufügen

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

 

[Papao]

Hör zu, aber warum finde ich nicht Erklärungen über die Funktion "setorigin x, 0.1" im Netz?:

Wenn Sie den Wert nach x erhöhen, verfahre ich das Einfügen des Bildes horizontal, aber wenn Sie den Einführpunkt auch der Achse y verschieben möchten, wie sollte ich tun?

Kurz gesagt, nach Eingabe des zweiten Bildes (Affianco des ersten), möchte ich das dritte über das erste Bild und so bei der Bildung von zwei Spalten setzen... .

Wie kann ich das machen?

 

[dsw]

Post #10 dieser Diskussion, @be_on_edge den Link zu der Methode, auf die Sie sich beziehen.

 

[Papao]

Ich lese, wie viel Post von @be_on_edge aber der Leitfaden scheint mir sehr synthetisiert und frei von Beispielen, wie ich fortfahren kann. .

 

[Papao]

Wow.
Ich habe mich gezwungen zu glauben, dass die x-Variable an die horizontale Position gebunden war (x an den Punkt)
Stattdessen ist es nur ein Punkt im Raum: Fügen Sie einfach eine zweite Variable "y" in die vertikale Position und verwalten Sie sie innerhalb des Zyklus.
Ich habe Recht,

 

[dsw]

Ich habe Recht,

Plötzlich... Ich fühle mich weniger nur . ...

 

[Papao]

Dann werde ich,
Ich konnte folgende Operationen hinzufügen:
das Bild vergrößern

oimage.width = 0.1

die Bilder auf zwei Spalten verteilen: Ich habe die Mod-Methode verwendet, die mit einem "if" verbunden ist, um zu überprüfen, ob ich das gleiche / ungleiche Bild (Boden, aber Arbeitsmethode) addiere. '

wenn n mod 2 = 0 ist,
y = y + 0,1
x = x - 0,1
sonst 'dispari
x = x + 0,1
Ende

dann echo den Pfad und den Namen der Datei: dies, weil die Bilder, die ich einfügen möchte, in einem Ordner enthalten sind, der mit dem gleichen Namen der Datei aufgerufen wird: Ich habe diese Funktion benutzt

set objdft = objapp.activedocument

 

[Papao]

Jetzt brauche ich eine letzte Hilfe...(bitte waren fantastisch)

Ich möchte, dass der Einführpunkt des ersten Bildes mit einem Mausklick im Dft-Bereich auftritt.
oder in einem gewissen Abstand von einem Block oberhalb des Ziehknorpels.

Gibt es eine gute Seele, die mir helfen will?

 

[Papao]

das ist die letzte Liste

Sub importa_qrc()
fehler goto createtoolpalette_error
dim oapp als solidedgeframework.application
set oapp = getobject(, "solidedge.application")

oapp.screenupdating = falsch

dim oimage als solidedgeframeworksupport.image2d


nomefile curpath, nomedft
pathqrc = "c:\users\paolo\desktop\solid edge\" & nomedft & "\"
Strfiles = Dir(pathqrc)

x = 0,1
y = 0,1
= 1
während Strfiles <> ""
oimage = oapp.activedocument.activesheet.images2d.addimage(false, pathqrc & strfiles)

oimage.width = 0,1 'scala la dimensions dell'immagine
Oimage. setorigin x, y 'posiziona l'immagine nel punto specificato

wenn n mod 2 = 0 ist,
y = y + 0,1
x = x - 0,1
sonst 'dispari
x = x + 0,1
Ende

= n + 1

Strfiles = Dir
wir

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

 

[dsw]

Haben Sie den Code getestet, den Sie geschrieben haben?

 

[Papao]

Ja, außer Kopien/Pasta-Fehler... .
wo du sagst, es geht nicht... Vielleicht meinst du das hier?

nomefile curpath, nomedft

 

[Papao]

Redhead, ich habe den Code getestet, den ich oben geschrieben habe, das ist das Ergebnis:
alle meine schönen Bilder über dem Cartiglio in zwei bis zwei gestapelt: dgl.Show!!! a... Vielen Dank

 

[dsw]

Ja, außer Kopien/Pasta-Fehler... .
wo du sagst, es geht nicht... Vielleicht meinst du das hier?

nomefile curpath, nomedft

Ja... sogar dieser Teil des Codes

Haben Sie die Informationen gefunden, um die Bilder an einem ausgewählten Ort mit der Maus einzufügen?

 

[Papao]

Kannst du mir helfen?

 

[dsw]

Ja, die Informationen zur Verwaltung von Mausereignissen finden Sie in diesem Leitfaden (in meiner Meinung klar geschrieben) zu diesem Gliederung während für "Filter"-Enumeratoren (selocatefilterconstants) finden Sie sie quidas Beispiel wurde in vb.net geschrieben, aber aus dem Code sollten Sie cmq verstehen, wie man alles aus dem Code, natürlich, wenn @be_on_edge hat einen einfacheren Weg zu gehen, kommen Sie.

versuchen, den Code unabhängig zu schreiben, wenn Sie Zweifel haben.... fragen Sie auch

 

[Papao]

danke, dass Sie von Ihrer unendlichen Verfügbarkeit und Geduld, Ich sage wirklich!

Ich habe die Links gesehen, die Sie gepostet haben und ich glaube, sie sind wirklich interessant, aber leider bin ich nicht geradezu für mich; Ich bin nicht einmal sicher, dass ich gehe....

unter Platzieren Sie den ersten Teil des Codes mit den Erklärungen von Variablen, aber für den Rest...
Jetzt die erste wilde Karte spielen: Hilfe!

Sub clickpoint()
dim seapp als solidedgeframework.application
dim secommand als solidedgeframework.command
dim semouse als solidedgeframework.mouse

 

[dsw]

beten Es scheint mehr als eine "Dubbio". ...
versuchen, das vollständige Projekt oder den vollständigen Text des von Ihnen geschriebenen Codes zu veröffentlichen,

in jedem Fall sollten Sie den Vorschlag ernst nehmen @be_on_edge (in merito a vscode & vs community edition).... Sie haben mehr Informationen und Codebeispiele zum Thema.

 

[Papao]

aber mehr als viele Zweifel Ich habe eine Gewissheit: Ich kenne die Konstanten und Variablen von festem Rand nicht und ich weiß nicht, wie man den Sdk führt!
Sicher zu viele Argumente, um alles zusammen zu verstehen, aber diese Grenze kenne ich schon.
Allerdings Ich habe nicht behauptet, dass ich versucht habe, etwas mehr zu lernen.

Ich hänge den vollen und funktionierenden Code an, der mir Zufriedenheit gab, es erreicht zu haben, danke.