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

• sztanozs veterán

  #3202

  #3194 Mzmatus

  2025-10-29 10:28:31

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3194 Mzmatus

  #3194 Mzmatus

  Autocad vba

  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

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