(schritt) (schritt) (schritt)
r:\temp\swx7900\macro1.swb - makro aufgenommen am 03/05/10 von benutzern
(schritt) (schritt) (schritt)
dim swapp als objekt
dim teil objekt
dim boolstatus als boolean
dim x als doppel
dim y als doppel
dim z als doppel
dim n als ganze zahl
dim n_file als ganze zahl von dateien zu importieren
dim name als string ' dateiname zu kombinieren mit nummer
dimnamefile als string 'name der kombinierten datei
dim longstatus as long
dim longwarnings as long
teil haupt()
set swapp = anwendung. schalungen
set part = swapp.activedoc
dim mymodelview als objekt
mymodelview = part.activeview
mymodelview.framestate = swwindowstate_e.swwindowmaximiert
'
'
n_file = 5' anzahl der dateien zum importieren + oder -
name = "c:\points" 'initial name voller pfad der zu importierenden datei
ich mache hier 3d skizze.
für n = 1 bis n_file
filename = name & " (" & n & ").txt" ' der enddateiname erscheint als "c:\points (1).txt"
'
dateiname öffnen für eingabe als #1 ' öffnet die datei für eingabe.
'
part.sketchmanager.insert3dsketch true
dim skpoint als objekt
tun, während nicht eof(1) ' wiederholt, bis das ende der datei.
eingabe #1, x, y, z' liest daten in variablen.
skpoint = part.sketchmanager.createpoint(x, y, z)
teil.sketchaddconstraints "fest"
schleifen
teil.clearselection2 true
teil.sketchmanager.insertsketch true
boolstatus = part.extension.selectbyid2("point1@origin", "extsketchpoint", 0, 0, false, 0, nichts, 0)
schließen #1 ' schließt die datei.
♪
'
' ich erstelle jetzt kurven
für n = 1 bis n_file
dateiname = name & " (" & n & ").txt" ' diese zeile ändern, um den dateinamen zu ändern, um zu importieren
'
teil.insertcurvefilebegin
dateiname öffnen für eingabe als #1 ' öffnet die datei für eingabe.
tun, während nicht eof(1) ' wiederholt, bis das ende der datei.
eingabe #1, x, y, z' liest daten in variablen.
boolstatus = part.insertcurvefilepoint(x, y, z)
schleifen
schließen #1 ' schließt die datei.
boolstatus = part.insertcurvefileend()
♪
ende
ich habe etwas geändert für ihre bedürfnisse. (es war wirklich bequem für mich und ich verlor einige zeit).
liest nun eine anzahl von dateien abhängig von der werteingabe in die variable 'n_file '
die dateien müssen 'punkte (1).txt' genannt werden; 'punkte (2).txt'
ich rief sie so an, weil wenn sie alle ihre dateien auswählen und sie alle zusammen umbenennen fenster auf diese weise umbenennen.
das makro erstellt skizzen3d mit innerhalb der punkte und erstellt dann die kurven.
3d-kurven und skizzen sind vollständig zwischen ihnen, am ende der ausführung, wenn sie nicht sehen müssen, wo die punkte sind sie 3d skizzen werfen können.
in wahrheit könnten sie auch die kurven durch 3d skizzen machen, aber sie sind nicht so tief in den makros von solidworks und ich tue mehr, um sie zu machen.
hi.
wellen