[编程交流] 我怎样才能写出一个Lisp程序的单词呢

(defun c:opend ( / dwg1 dwg2 dwg3)
(setq dwg1 (C:\Jobs\dwg1.dwg))
(setq dwg2 (C:\Jobs\dwg2.dwg))
(setq dwg3 (C:\Jobs\dwg3.dwg))
(prompt "\nwhat drawing would you like to open?")
(command "open" dwg2)

[s](setq dwg1 (C:\Jobs\dwg1.dwg))[/s]
(setq dwg1 [color=red]"[/color]C:\[color=red]\[/color]Jobs\[color=red]\[/color]dwg1.dwg[color=red]"[/color])

(defun c:opend ( / dwg1 )
(setq dwg1 "C:\\Jobs\\dwg1.dwg"))
((setq dwg (getkword "\nwhat drawing would you like to open? <>"))
(command "_VBASTMT" (strcat "AcadApplication.Documents.Open dwg))
)

(vl-load-com)
(setq dwg1 ""C:\\Jobs\\dwg1.dwg"")
(vla-open (vla-get-documents (vla-get-application (vlax-get-acad-object))) "C:\\d1.dwg")

(defun c:opend ( / dwgName dwgPath )
  (setq dwgPath "C:\\Jobs\")
  
  (initget 1 "DWG1 DWG2 DWG3")
  (setq dwgName (getkword "\nWhat drawing would you like to open? (Dwg1/Dwg2/Dwg3):"))
  (setq dwgName (strcat dwgPath """ dwgName ".dwg" """))
  (command "_VBASTMT" (strcat "AcadApplication.Documents.Open " dwgName))
 )

(defun _OpenDwg  (dwg readOnly / f oDwg)
 [color=green];; RenderMan, CADTutor.net
 ;; Example: (_OpenDwg "[/color][color=red]FilePath[/color][color=green]\\[/color][color=blue]FileName[/color][color=green].dwg" T)[/color]
 (vl-load-com)  
 (if (and (setq f (findfile dwg)) (/= 1 (getvar 'sdi)))
   (vla-activate
     (vla-open (vla-get-documents (vlax-get-acad-object))
               f
               (cond ((= T readOnly) :vlax-true)
                     ((:vlax-false)))))
   (cond (f (prompt "\n** Command not available in SDI mode ** "))
         ((prompt (strcat "\n** ""
                          (strcase (vl-filename-base dwg))
                          "" cannot be found ** ")))))
 (princ))