求批量参数化

为什么任兵

由于自己学艺不精，至今读取EXCEL还没学会
想请教高手帮我完善一下
目的，读取EXCEL单元格数据，来完成CAD画图
lisp部分，自己编了一个，
请求写连接EXCEL部分
请看图片
cad部分


excel格式


希望高手帮帮忙，谢谢了！！！！

陨落

假设你的文件目录为d:/test.xls ，excel安装在d盘，以下代码为打开excel文件并为A01行的w, h1, h2赋值

2. (defun c:tt()
   
3. (vl-load-com)
   
4. (if (null lem-acos)
   
5.   (vlax-import-type-library
   
6.     :tlb-filename "D:/office/OFFICE11/excel.exe"
   
7.     :methods-prefix "lem-"
   
8.     :properties-prefix "lep-"
   
9.     :constants-prefix "lec-"
   
10.     ))
    
11.   (setq fname "d:/test.xls")
    
12. (setq xlobj (vlax-create-object "excel.application"))
    
13.   (vlax-invoke-method (vlax-get-property xlobj 'workbooks) 'open fname)
    
14.   (vla-put-visible xlobj 1)
    
15.   (setq sheetobj (lep-get-aCtivesheet xlobj))
    
16.   (setq rangeob (lep-get-cells sheetobj))
    
17.   (setq rangeob1(lep-get-range sheetobj "B2"))
    
18.   (setq rangeob2(lep-get-range sheetobj "C2"))
    
19.   (setq rangeob3(lep-get-range sheetobj "D2"))
    
20.   (setq W(vlax-variant-value (lep-get-value rangeob1)))
    
21.   (setq H1(vlax-variant-value (lep-get-value rangeob2)))
    
22.   (setq H2(vlax-variant-value (lep-get-value rangeob3)))
    
23.   )

(defun c:tt()<br /> (vl-load-com)<br /> (if (null lem-acos)<br />   (vlax-import-type-library<br />     :tlb-filename "D:/office/OFFICE11/excel.exe"<br />     :methods-prefix "lem-"<br />     :properties-prefix "lep-"<br />     :constants-prefix "lec-"<br />     ))<br />   (setq fname "d:/test.xls")<br /> (setq xlobj (vlax-create-object "excel.application"))<br />   (vlax-invoke-method (vlax-get-property xlobj 'workbooks) 'open fname)<br />   (vla-put-visible xlobj 1)<br />   (setq sheetobj (lep-get-aCtivesheet xlobj))<br />   (setq rangeob (lep-get-cells sheetobj))<br />   (setq rangeob1(lep-get-range sheetobj "B2"))<br />   (setq rangeob2(lep-get-range sheetobj "C2"))<br />   (setq rangeob3(lep-get-range sheetobj "D2"))<br />   (setq W(vlax-variant-value (lep-get-value rangeob1)))<br />   (setq H1(vlax-variant-value (lep-get-value rangeob2)))<br />   (setq H2(vlax-variant-value (lep-get-value rangeob3)))<br />   )

为什么任兵

1. (defun c:tt ()
   
2.   (setvar "cmdecho" 0)
   
3.   (setq osmode_bak (getvar "osmode"))
   
4.   (setvar "osmode" 0)
   
5. 
   
6.   (setq pt (getpoint "\n 点取图起点"))
   
7.   (while pt
   
8.     (setq w (getreal "\n 输入W值="))
   
9.     (if  (= w nil)(vl-exit-with-error ""))
   
10.     (setq h1 (getreal "\n 输入H1值="))
    
11.     (setq h2 (getreal "\n 输入H2值="))
    
12.     (setq bh (getstring "\n 输入编号="))
    
13.     (setq pt2 (polar pt 0 w))
    
14.     (setq pt3 (polar pt2 (* pi 1.5) h2))
    
15.     (setq pt4 (polar pt (* pi 1.5) h1))
    
16.     (command "pline" pt pt2 pt3 pt4 "c")
    
17.     (command "text" (inters pt pt3 pt2 pt4) "50" "0" bh)
    
18.     (setq pt (polar pt 0 (+ w 1000)))
    
19.   )
    
20.   (setvar "cmdecho" 1)
    
21.   (setvar "osmode" osmode_bak)
    
22. )

(defun c:tt ()<br />   (setvar "cmdecho" 0)<br />   (setq osmode_bak (getvar "osmode"))<br />   (setvar "osmode" 0)<br /> <br />   (setq pt (getpoint "\n 点取图起点"))<br />   (while pt<br />     (setq w (getreal "\n 输入W值="))<br />     (if  (= w nil)(vl-exit-with-error ""))<br />     (setq h1 (getreal "\n 输入H1值="))<br />     (setq h2 (getreal "\n 输入H2值="))<br />     (setq bh (getstring "\n 输入编号="))<br />     (setq pt2 (polar pt 0 w))<br />     (setq pt3 (polar pt2 (* pi 1.5) h2))<br />     (setq pt4 (polar pt (* pi 1.5) h1))<br />     (command "pline" pt pt2 pt3 pt4 "c")<br />     (command "text" (inters pt pt3 pt2 pt4) "50" "0" bh)<br />     (setq pt (polar pt 0 (+ w 1000)))<br />   )<br />   (setvar "cmdecho" 1)<br />   (setvar "osmode" osmode_bak)<br /> )

为什么任兵

陨落 发表于 2013-3-31 16:21
假设你的文件目录为d:/test.xls ，excel安装在d盘，以下代码为打开excel文件并为A01行的w, h1, h2赋值

非常感谢，达到我的需求，后续，自己做了循环。(strcat "A" (itoa (+ nn 1)))
也感谢院长，他最先给我写了，是我要的效果，
只是其中镶套太多函数，奥妙无穷，
而且自己想要源码，作为参考，
陨落大师，多谢了！！

陨落

为什么任兵 发表于 2013-3-31 21:00
非常感谢，达到我的需求，后续，自己做了循环。(strcat "A" (itoa (+ nn 1)))
也感谢院长，他最先给我写 ...

大家互相交流。我不是大师

Kye

陨落 发表于 2013-3-30 22:22
假设你的文件目录为d:/test.xls ，excel安装在d盘，以下代码为打开excel文件并为A01行的w, h1, h2赋值

谢谢大师，学习了

qyming

cad与excel交互应用，学习了

qyming

cad与excel交互应用，学习了

chenweibin86

楚留香

这个真的不错！参数化绘图！努力！