liumangwen 发表于 2009-10-21 18:52:00

[求助]请高手编写根据EXCEL内容自动修改属性块的属性的程序。

<p>如附件所示，EXCEL文件有四列，内容分别为“桩号”“施工日期”“终压力”“入土深度”。CAD文件中的属性块也有这四个属性。现在编写一个程序，可以根据CAD文件中属性块的“桩号”属性值，查找EXCEL文件里相对应的“桩号”，并读取同一行的“施工日期”“终压力”“入土深度”有内容修改属性块的另三个属性。</p><p>另，最好考虑下可以选择EXCEL文件。</p><p>谢谢！！！</p>

liumangwen 发表于 2009-10-28 17:21:00

function XML() {
   
}

liumangwen 发表于 2009-11-5 23:30:00

高手们，别躲啊，帮帮忙。谢谢了！！！

xyp1964 发表于 2009-11-6 09:14:00

<p>;; 批量属性块修改 xls→dwg<br/>(defun c:tt ()<br/>&nbsp; (CMDLA0)<br/>&nbsp; (setq&nbsp;lst (xyp-Xls2List)<br/>&nbsp;ss&nbsp; (ssget '((0 . "INSERT") (8 . "控制点")))<br/>&nbsp;i&nbsp;&nbsp; -1<br/>&nbsp; )<br/>&nbsp; (while (setq s1 (ssname ss (setq i (1+ i))))<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(xyp-get-Attibutes s1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;(setq lst1 (xyp-get-LispValue (vla-GetAttributes (XYP-E2O s1))))<br/>&nbsp;(setq a (vla-get-TextString (car lst1)))<br/>&nbsp;(foreach b lst<br/>&nbsp;&nbsp; (if (member a b)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq c b)<br/>&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;(if c<br/>&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq t1 (nth 1 c)<br/>&nbsp;&nbsp;&nbsp; t2 (nth 2 c)<br/>&nbsp;&nbsp;&nbsp; t3 (nth 3 c)<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (vla-put-TextString (cadr lst1) t1)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (vla-put-TextString (caddr lst1) t2)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (vla-put-TextString (cadddr lst1) t3)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq c nil)<br/>&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (CMDLA1)<br/>)</p>

liumangwen 发表于 2009-11-8 18:50:00

<p>谢谢xyp1964同学，但我cad里显示</p><p>错误: 无效函数<br/>(CMDLA0)<br/>(C:TT)</p><p>请赐教！！</p>

ZZXXQQ 发表于 2009-11-8 20:47:00

要下载xyp1964版主的函数库。

zwf100 发表于 2010-4-24 14:06:00

受益了,3s

短歌行 发表于 2010-8-12 21:09:00

谢谢 学习学习哈

zzc83 发表于 2010-9-11 23:04:00

太牛了，非常强大

树点 发表于 2010-10-1 00:05:00

<p>什么意思啊？</p>
<p>&nbsp;</p>
页: [1] 2
查看完整版本: [求助]请高手编写根据EXCEL内容自动修改属性块的属性的程序。