|
Pro ENGINEER : Zeichnung Bemaßung von eigenen Elementen steuern
San Benedetto am 14.12.2013 um 20:17 Uhr (1)
oder mit folgendem Mapkeymapkey sp ~ Command `ProCmdNaModelProperties` ;mapkey(continued) ~ Open `nma_model_massprop` `save_state_rg`;mapkey(continued) ~ Close `nma_model_massprop` `save_state_rg`;mapkey(continued) ~ Select `nma_model_massprop` `save_state_rg`1 `feature`;mapkey(continued) ~ Select `nma_model_massprop` `mp_analysis_tool_tab`1 `feature`;mapkey(continued) ~ Activate `nma_model_massprop` `compute_btn`;mapkey(continued) ~ Trigger `nma_model_massprop` `coordinate_system` `0`;mapkey(continued) ~ ...
|
| In das Form Pro ENGINEER wechseln |
|
Pro ENGINEER : VB.NET Zeichnung Öffnen + neu erstellen
San Benedetto am 08.05.2014 um 11:19 Uhr (1)
hmmmweil du Mdlname = session.CurrentModel.FullName.ToLower und nicht Mdlname = generic.FullName.ToLower verwendestund das muss nach generic = model.parent If generic Is Nothing Then generic = model End Ifstehen !!-- Antwort vor der nächsten Frage ----dein DRW erstellen wird nie ausgeführt weil du mit der ersten Abfrage If drawings.Count = 0 Then Throw New Exception(" Keine Zeichnung vorhanden: ") End Ifdas Progamm beendest.[Diese Nachricht wurde von San Benedetto ...
|
| In das Form Pro ENGINEER wechseln |
|
Pro ENGINEER : VB.NET Zeichnung Öffnen + neu erstellen
San Benedetto am 07.05.2014 um 15:49 Uhr (1)
Servus Vladi182modelDesc = (New CCpfcModelDescriptor).CreateFromFileName(Drwname)session.OpenFile(modelDesc).Activate()- Öffnet drw wenn vorhanden (fileName)Zeichnung erstellen : "If drawings.Count = 0 Then" Dim drawingOptions As New CpfcDrawingCreateOptions Dim drawing As IpfcDrawing Dim DrawingName As String Dim Template As String = "NamedesTemplates" DrawingName = session.CurrentModel.FullName.ToLower drawing = session.CreateDrawingFromTemplate(DrawingName, Temp ...
|
| In das Form Pro ENGINEER wechseln |
|
Pro ENGINEER : VB.NET Zeichnung Öffnen + neu erstellen
San Benedetto am 08.05.2014 um 09:13 Uhr (1)
SERVUS VLADIwer lesen kann ist klar im Vorteil - Scherz beiseiteschau dir meinen code oben an und vergleiche ihn mit deinem und du wirst unterschiede feststellen ?? copy and paste und die Fehlermeldungen sind weg.PS. ich bin kein Programmierer (alles try and error)
|
| In das Form Pro ENGINEER wechseln |
|
Pro ENGINEER : Drucken über VBA
San Benedetto am 28.05.2013 um 13:30 Uhr (0)
HalloDrucken über Pro/e hab ich so gelöstProblem ist die Erkennung des BlattformatesSub wird über einen code aufgerufen das alles im Speicher befindliche ausdrucktDrucker PostScript und Tiff sind die Namen der Drucker die in Pro/e Drucker definiert sind.codePublic Sub Plotte_(ByVal Zeichnung As String, ByVal Drucker As String) Dim Drawing As IpfcModel Dim Plotten As IpfcPlotInstructions Dim Format As IpfcDrawingFormat Dim Formatname As String Dim Ausgabeformat As String Dim Dext As String ...
|
| In das Form Pro ENGINEER wechseln |
