meine dll (Plauderecke/Tsetfurom)

das kann sie

; funktion zur auswahl von dateien
; (vlax-invoke obj "ShowOpen" "Überschrift" "Filtertext | *.xxx" mehrfach)
; filter kann auch mehrfach sein z.b.: "bitmap-dateien|*.bmp|JPEG-Dateien|*.jpg"
; mehrfach = 1 , mehrere dateien können selektiert werden = 0 nur eine datei
(setq x (vlax-get-or-create-object "AcTools.Filedialog"))
(setq files (vlax-invoke x "Showopen" "Bitte Lisp Dateien auswählen" "Lisp-Dateien(*.lsp)|*.lsp" 1))
(vlax-release-object x)

; eingabe tool
; (vlax-invoke obj "Eingabe" "AbfrageText" "Überschrift" "vorgabewert")
; (vlax-invoke obj "JaNein" "AbfrageText" "Überschrift")
(setq x (vlax-get-or-create-object "AcTools.InputBox"))
(setq ret (vlax-invoke x "Eingabe" "Bitte geben sie einen Wert von 1 bis 100 ein" "AutoCad Abfrage" 1))
(setq ret (vlax-invoke x "JaNein" "Wollen sie wirklich löschen" "AutoCad Frage"))
(vlax-release-object x)

; starten von andren programmen, lisp wartet im gegensatz von (startapp)
; auf die beeddigung des programmes
; (vlax-invoke obj "Applikation")
(setq x (vlax-get-or-create-object "AcTools.Shell"))
(vlax-invoke x "StartApplication" "Notepad")
(vlax-release-object x)

; lesen und schreiben von beliebigen INI-Dateien
;
(setq x (vlax-get-or-create-object "AcTools.IniFiles"))
(vlax-invoke x "WriteIni" "General" "Eintrag" "JA" "c:/test.ini")
(setq wert (vlax-invoke x "ReadIni" "General" "Eintrag" "vorgabe" "c:/test.ini"))
(vlax-release-object x)

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP