Új hozzászólás Aktív témák

• #3204 Mzmatus csendes tag sztanozs #3202

  Új Válasz 2025-10-30 17:36:57 #3204

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mzmatus

  csendes tag

  válasz sztanozs #3202 üzenetére

  Kedves sztanozs!
  Nagyon köszönöm a segítséged. Nemrég értem haza egy hosszú kirándulásból, de meg fogom nézni, és visszajelzek.

• #3203 Mzmatus csendes tag Fire/SOUL/CD #3201

  Új Válasz 2025-10-30 17:35:07 #3203

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mzmatus

  csendes tag

  válasz Fire/SOUL/CD #3201 üzenetére

  Kedves "Fire/SOUL/CD" !
  
  Nagyon köszönöm, hogy ennyit fáradoztál.
  A hosszú hétvége nekem ennyire megnyúlt, nemrég értem haza.
  Most sorban ártnézem, amit küldtél, és majd fogok jelezni, sikerült-e.
  Még egyszer, nagyon köszönöm.

• #3202 sztanozs veterán Mzmatus #3194

  Új Válasz 2025-10-29 10:28:31 #3202

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz Mzmatus #3194 üzenetére

  Claude szerint:
  Method 1: Using AutoCAD's GetOpenFilename

  Sub OpenFileDialog()
  Dim fileName As Variant
  Dim filterString As String

  ' Define file filter (format: "Description|*.ext")
  filterString = "DWG Files (*.dwg)|*.dwg|All Files (*.*)|*.*"

  ' Show open file dialog
  fileName = ThisDrawing.Application.GetOpenFilename( _
  "Select a file", _
  filterString, _
  "dwg", _
  0)

  ' Check if user cancelled
  If VarType(fileName) <> vbBoolean Then
  MsgBox "Selected file: " & fileName
  ' Do something with the file path
  Else
  MsgBox "No file selected"
  End If
  End Sub

  Ugy tunik ez se letezik. Ezzel lehet esetleg beprobalkozni?
  Sub OpenFileUsingCommand()
Dim fileName As String
ThisDrawing.SendCommand "(setq myfile (getfiled " & Chr(34) & "Select File" & Chr(34) & " " & Chr(34) & Chr(34) & " " & Chr(34) & "dwg" & Chr(34) & " 0))" & vbCr
' Then retrieve the variable value
End Sub

  Method 2 - ugyanaz mint a WinApi, amit korabban Fire/SOUL/CD irt...

  Method 3 - .NET-ben van OpenFile Dialog, csak ahoz a kodot at kell irni .NET-re
  https://help.autodesk.com/view/OARX/2025/ENU/?guid=OARX-ManagedRefGuide-Autodesk_AutoCAD_Windows_OpenFileDialog

• #3201 Fire/SOUL/CD félisten Mzmatus #3198

  Új Válasz 2025-10-22 20:51:51 #3201

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Mzmatus #3198 üzenetére

  Annyira el voltam havazva melóval, hogy teljesen kiment a fejemből, hogy hosszúhétvége lesz...
  Szóval felpattintottam az AutoCAd 2026-t és megnéztem, mit és hogy lehet VB .NET-l mókolni vele, mert az itt elérhető infók a VB .NET-hez vannak "kitalálva" (lehetne C# nyelven is dolgozni amúgy, csak azt egyrészt nem ismerem annyira ill. a VB .NET nagyon hasonlít a VBA-hoz nyelvezetében, felépítésében stb, nyilván nem véletlen)

  A VB .NET kód megírásához Visual Studio 2022 Community Edition-t használtam (ingyenes)

  1. VB .NET Library Class-t (DLL lesz belőle) így kell létrehozni Visual Studio-val

  2. Hogy a megfelelő függvények/osztályok stb rendelkezésre álljanak, ahhoz az AutoCAD-ből 3 referenciát kell hozzáadni, a rendszerből meg egyet. A VB .NET project-t befordítva (build) kapjuk meg majd a DLL-t, ami kell az AutoCAD-nek

  3. AutoCAD megnyit, betöltünk egy létező vagy létrehozunk egy üres project-t kiadjuk a NETLOAD parancsot, majd a megjelenő fájlablakban betöltjük a korábban létrehozott DLL-t

  4. Most futtatjuk a DLL-ben található függvényünket (ez esetben a FireOpenFileDialog nevet viseli)

  5. ha minden rendben, akkor meg kell nyitnia a fájlablakot és amennyiben kiválasztasz egy fájlt (példaprogiban csak DWG/DVB állítottam a szűrőt), akkor egy ablakban kiírja a fájl nevét, teljes útvonalával

  Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime

Public Class FireAutoCADOpenFileDialogExample
<CommandMethod("FireOpenFileDialog")>
Public Sub FireOpenFileDialog()
Dim MyOpenFileDialog As New Autodesk.AutoCAD.Windows.OpenFileDialog("FIRE/SOUL/CD - VB.NET FileOpenDialog Class",
"",
"DWG;DVB",
"AutoCAD Drawing/Project Files",
0 'Autodesk.AutoCAD.Windows.OpenFileDialog.OpenFileDialogFlags
)

If MyOpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
System.Windows.Forms.MessageBox.Show(MyOpenFileDialog.Filename)
Else
System.Windows.Forms.MessageBox.Show("Nem választottál ki fájlt.")
End If
End Sub

End Class

  Ennyit tudtam tenni az ügy érdekében, rajtad áll, hogy a korábbi WINAPI-s (az VBA kód ugye) avagy emellett döntesz.

  UI: Lehet, hogy érdemes lenne az AutoCAD topikban is érdeklődni, hátha van egyéb (és ami fontos, egyszerűbb) megoldás is.

  UUI: a #3200-ben lévő megoldás nem működik, felejtős, viszont a #3199 kifogástalanul megy AutoCAD-ben is (mondjuk, mint írtam meg lettem volna lepve, ha nem)...

Új hozzászólás Aktív témák