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

• #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

• #3195 Fire/SOUL/CD félisten Mzmatus #3194

  Új Válasz 2025-10-13 09:15:48 #3195

  Ú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 #3194 üzenetére

  Nem tudom, hogy az AutoCAd VBA mennyire tér el úgy általában a "sima" VBA-tól, de ezzel tehetsz egy próbát (itt egy commandbutton kattintásra lefutó VBA kódot adok, de nem az a lényeg, hanem ami a SUB-n belül van)

  Private Sub CommandButton1_Click()

Dim MyFileDialog As Object

'Itt 4 paraméter lehet (msoFileDialogFilePicker, msoFileDialogFolderPicker, msoFileDialogOpen, msoFileDialogSaveAs)
Set MyFileDialog = Application.FileDialog(msoFileDialogOpen)
MyFileDialog.Show

End Sub

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