TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => XDRX-API => Topic started by: xdcad on March 29, 2024, 01:48:57 PM

Title: [XDrX-PlugIn(113)] The slide is generated as DWG
Post by: xdcad on March 29, 2024, 01:48:57 PM

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)
)