Group Blog
 
All blogs
 
AutoLISP-֧䢢 Excel ҡ AutoCAD

繤觴֧ Excel AutoCAD

.
.Ǩ¹Ѻ....


Ŵ
ѹ繢ͧ觤Ѻ
ѧѴŧµ͡ҹ



Ŵ ԸաҹǹѺ

;-------------------------------------------------------------------------------
; Overview of Main functions
;-------------------------------------------------------------------------------
; GetExcel - Stores the values from an Excel spreadsheet into *ExcelData@ list
; Syntax: (GetExcel ExcelFile$ SheetName$ MaxRange$)
; Example: (GetExcel "C:FolderFilename.xls" "Sheet1" "L30")
; GetCell - Returns the cell value from the *ExcelData@ list
; Syntax: (GetCell Cell$)
; Example: (GetCell "H15")
; Function example of usage:
; (defun c:Get-Example ()
; (GetExcel "C:FolderFilename.xls" "Sheet1" "L30");<-- Edit Filename.xls
; (GetCell "H21");Or you can just use the global *ExcelData@ list
; );defun
;-------------------------------------------------------------------------------
; OpenExcel - Opens an Excel spreadsheet
; Syntax: (OpenExcel ExcelFile$ SheetName$ Visible)
; Example: (OpenExcel "C:FolderFilename.xls" "Sheet1" nil)
; PutCell - Put values into Excel cells
; Syntax: (PutCell StartCell$ Data$) or (PutCell StartCell$ DataList@)
; Example: (PutCell "A1" (list "GP093" 58.5 17 "Base" "3'-6 1/4""))
; CloseExcel - Closes Excel session
; Syntax: (CloseExcel ExcelFile$)
; Example: (CloseExcel "C:FolderFilename.xls")
; Function example of usage:
; (defun c:Put-Example ()
; (OpenExcel "C:FolderFilename.xls" "Sheet1" nil);<-- Edit Filename.xls
; (PutCell "A1" (list "GP093" 58.5 17 "Base" "3'-6 1/4""));Repeat as required
; (CloseExcel "C:FolderFilename.xls");<-- Edit Filename.xls
; (princ)
; );defun

----------------------------------------------------------------------------
觴֧

(defun c:Get-Example ()
(GetExcel "C:FolderFilename.xls" "Sheet1" "L30");<-- Edit Filename.xls
(GetCell "H21");Or you can just use the global *ExcelData@ list
);defun
-------------------ͧ
----"C:FolderFilename.xls"---
----"Sheet1" ----Sheet
----"L30"----٧ش

---"H21" ---- ͧ ͧô֧
------------------------------------------------------------------------
-

; (defun c:Put-Example ()
; (OpenExcel "C:FolderFilename.xls" "Sheet1" nil);<-- Edit Filename.xls
; (PutCell "A1" (list "GP093" 58.5 17 "Base" "3'-6 1/4""));Repeat as required
; (CloseExcel "C:FolderFilename.xls");<-- Edit Filename.xls
; (princ)
; );defun

-------------------ͧ
----"C:FolderFilename.xls"---
----"Sheet1" ----Sheet
----"A1"---- ͧ䢢
---- (list "GP093" 58.5 17 "Base" "3'-6 1/4"") ---lisp - ͧ



Create Date : 28 Ҿѹ 2554
Last Update : 28 Ҿѹ 2554 11:56:26 . 2 comments
Counter : 1900 Pageviews.

 
ԡ ٻѡ觵º...
¹ҹ ǵͧѺ硡տҾҾѧ ҡзӺҹҾտẺҧѧ

.ͺسѺ¤¾÷ѹФ
ѹҨسSiAni_3D
ФͺǴ¹Ф


: ͹ ѹ: 25 áҤ 2554 :14:09:06 .  

 
㨨ѧ¡ٻ
ԡٻ ٻ

[ͧⴹԡ]


: ͹ ѹ: 26 áҤ 2554 :14:28:23 .  

:
Comment :
  * code html 觢ͤ੾Ҫԡ
 
觢ͤ
س׹ѹ觢ͤ

SiAni_3D
Location :
ا෾ Thailand

[Profile ]

ԻҢͧ Blog [?]
ҡͤѧ
Rss Feed
Smember
Դ͡ : 13 [?]





ҡԹ







free counters
hit counter

Email: siani_3d@windowslive.com

AutoLISP

õԴ駤AUTOLISP
https://www.bloggang.com/data/siani3d/picture/1292983826.png
AutoLISP-ѵѵ
https://www.bloggang.com/data/s/siani3d/picture/1303271642.gif
AutoLISP-¹ѹ
http://1.bp.blogspot.com/_rkn52Kckzys/TQNLsCsbRPI/AAAAAAAAAJQ/_FRJ-f_rZSY/s400/3.gif

ѡͤԡʵԡ

ҧ
https://www.bloggang.com/data/siani3d/picture/1297067488.gif

͡ẺͧѡмԵѳ

кѴ¡
http://3.bp.blogspot.com/-BFhMOh4N58w/Td25JRkqL-I/AAAAAAAAAZQ/KzKTKe0NKAg/s1600/Assem-2.gif

AutoCAD Tips

ѭ image ٻ
https://www.bloggang.com/data/s/siani3d/picture/1306393322.gif
ѭ DialogBox 鹻
https://www.bloggang.com/data/s/siani3d/picture/1306463191.gif

ѹ֡֡Ѻ

ҹǡȢҴѡ캹ǧѹ
http://www.galacticchannelings.com/afbeeldingen/moon-spaceship.jpg

蹷ͧҧ
hhttps://www.bloggang.com/data/s/siani3d/picture/1305779427.jpg

ѧ觨Թҡ

ѧԵ
http://2.bp.blogspot.com/_rkn52Kckzys/TU-J3VzDbSI/AAAAAAAAAJ4/VBzFljd3gxI/s400/Aura%2BMoving.jpg
Friends' blogs
[Add SiAni_3D's blog to your web]
Links
 

 Pantip.com | PantipMarket.com | Pantown.com | © 2004 BlogGang.com allrights reserved.