Export and Import to Excel and AutoCAD

[avinash00002002]

How can we Export and Import data to AutoCAD and Excel. I know it is possible in VBA but I want to know in Lisp. pls. send me an example for me.

[kpblc2000]

http://dwg.ru/search_result.php?res=...87&sid=&sfor=1
To translate it you can use http://babelfish.altavista.com/ (from Russian to English)

[Avatart]

http://dwg.ru/search_result.php?res=...87&sid=&sfor=1
To translate it you can use http://babelfish.altavista.com/ (from Russian to English)

The BabelFish translation does not make much sense unfortunately.

What sort of information are you hoping to transfer between the two programs?

[rkmcswain]

How can we Export and Import data to AutoCAD and Excel. I know it is possible in VBA but I want to know in Lisp. pls. send me an example for me.

Here is an example.

(defun doExcelApp (/ EXCELAPP INT OWKSHT)
  (if
    (not msxl-acos)
     (vlax-import-type-library
       :tlb-filename
       "C:/Program Files/Microsoft Office/Office10/Excel.exe"
       :methods-prefix
       "msxl-"
       :properties-prefix
       "msxl-"
       :constants-prefix
       "msxl-"
      )
  )
  (setq ExcelApp (vlax-get-or-create-object "Excel.Application"))
  (setq	owksht
	 (vlax-get (vlax-invoke (vlax-get Excelapp "Workbooks") "Add")
		   "ActiveSheet"
	 )
  )
  (vlax-put Excelapp "visible" 1)
  (MSXL-PUT-NUMBERFORMAT
    (MSXL-GET-RANGE OWKSHT "B2:C500")
    "0.00000000"
  )
  (MSXL-PUT-COLUMNWIDTH (MSXL-GET-RANGE OWKSHT "A1") 35.0)
  (MSXL-PUT-COLUMNWIDTH (MSXL-GET-RANGE OWKSHT "B1:C1") 20.0)
  (MSXL-PUT-COLUMNWIDTH (MSXL-GET-RANGE OWKSHT "D1") 5.0)
  (MSXL-PUT-COLUMNWIDTH (MSXL-GET-RANGE OWKSHT "E1") 20.0)
	; GET HEADING RANGE
  (setq int (MSXL-GET-INTERIOR (MSXL-GET-RANGE OWKSHT "A1:C1")))
	; SET BACKGROUND COLOR OF HEADING RANGE TO YELLOW
  (MSXL-PUT-COLORINDEX INT 6)
	; SET FILL PATTERN OF HEADING RANGE TO SOLID
  (MSXL-PUT-PATTERN INT MSXL-XLSOLID)
	; Push data into cells
  (msxl-put-value2 (msxl-get-range owksht "A1") "Column 1")
  (msxl-put-value2 (msxl-get-range owksht "B1") "Column 2")
  (msxl-put-value2 (msxl-get-range owksht "C1") "Column 3")

)