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

liumangwen

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

另，最好考虑下可以选择EXCEL文件。

谢谢！！！

liumangwen

function XML() {
    [native code]
}

liumangwen

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

xyp1964

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

liumangwen

谢谢xyp1964同学，但我cad里显示

错误: 无效函数
(CMDLA0)
(C:TT)

请赐教！！

ZZXXQQ

要下载xyp1964版主的函数库。

zwf100

受益了,3s

短歌行

谢谢 学习学习哈

zzc83

太牛了，非常强大

树点

什么意思啊？