刚学，求教了

qyming1996

(defun c:mytk (/)
  (setq cmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "_opendcl")
  (setvar "cmdecho" cmdecho)
  (setq dcl "d:\\odc\\mytk.odcl")
  (dcl_project_load dcl t)
  (dcl_form_show mytk_form)
  (princ)
)

(defun c:mytk_form_OnInitialize (/)
  (if (dcl_Form_Show dclid "Form1")
    (progn
      (setq mytk_path "d:\\std")
      (setq mytk_subpath (finddir tk_path))
      (dcl-ComboBox-addlist mytk_Form_ComboBox mytk_subpath)
      (setq sel (dcl_ComboBox_getlbtext mytk/form/combobox 1))
      (setq tk_file (strcat tk_path "\\" sel))
      ;;(dcl-listbox-addlist mytk/form/listbox newitems [as list of strings])
      (dcl_listbox_addlist mytk_form_listbox mytk_file)
      (dcl-Control-SetText mytk/Form/TextBox "3")
    )
  )

  (princ)
)
;;-------------------------------------------------------
;;
;;-------------------------------------------------------
;;
;;
(defun BrowseForFolder (msg / WinShell hwnd shFolder path catchit)
  (vl-load-com)
  (setq winshell (vlax-create-object "Shell.Application"))
  (setq hwnd (vlax-get-property (vlax-get-acad-object) 'Hwnd))
  (setq shFolder
  (vlax-invoke-method WinShell 'BrowseForFolder hwnd msg 1)
  )
  (setq
    catchit (vl-catch-all-apply
       '(lambda ()
   (setq shFolder (vlax-get-property shFolder 'self))
   (setq path (vlax-get-property shFolder 'path))
        )
     )
  )
  (if (vl-catch-all-error-p catchit)
    nil
    path
  )
)
(defun qf_getFolder (msg / WinShell shFolder path catchit)
  (vl-load-com)
  (setq winshell (vlax-create-object "Shell.Application"))
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
  (setq catchit
  (vl-catch-all-apply
    '(lambda ()
       (setq shFolder (vlax-get-property shFolder 'self))
       (setq path (vlax-get-property shFolder 'path))
     )
  )
  )
  (if (vl-catch-all-error-p catchit)
    nil
    path
  )
)
(defun finddir (dir / dirname)
  (setq dirname (vl-directory-files dir nil -1))
  (if (= (car dirname) ".")
    (setq dirname (cdr dirname))
  )
  (if (= (car dirname) "..")
    (setq dirname (cdr dirname))
  )
  dirname
)
(defun finddwg (dir / fname pl str nalen npl x)
  (if (setq fname (vl-directory-files dir "*.dwg" 1))
    (progn
      (setq pl '())
      (foreach x fname
(setq nalen (strlen x))
(setq str (substr x 1 (- nalen 4)))
(setq npl (cons str npl))
      )
      (reverse npl)
    )
  )
)

iLisp

有啥问题？