Topic: [XDrX-PlugIn(113)] The slide is generated as DWG

[xdcad]

Code: [Select]

(defun c:xdtb_sld2dwg (/ sld)
  (if (setq sld (getfiled (xdrx-string-multilanguage
    "\n选择生成DWG的SLD文件"
    "\nSelect the SLD file to generate DWG"
  )
  ""
  "sld"
  4
)
      )
    (progn (xdrx-slide->dwg sld)
   (xdrx-prompt
     (xdrx-string-multilanguage
       "\n幻灯片生成DWG完毕."
       "\nThe slideshow is generated as DWG."
     )
   )
    )
  )
  (princ)
)