求款可以利用读取EXCEL表格，批量替换CAD图中文字的lisp，请大神赐教，十分感谢！

279491611

感谢分享值得学习

lsthz

很方便，受教了
来自: 微社区

Right

我在运行时出现个问题 当我原文字里存在“#1、#14、#15"时 所要替换的部分不会被完全识别，比如#1替换为A时，那么#14和#15就会被替换为A4、A5这样的问题怎么解决呢？

fjut_ac

非常非常实用的工具，感谢大神回答。

sxjhg999

学习了！！！！！！！！！！！！！！！！

13174545660

(defun c:etc ()
  (CMDLA0)
  (princ "\n选择数据文件: ")
  (setq lst (xyp-Xls2List))
  (princ "\n选择图块控制点: ")
  (setq        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)))
              a           (vla-get-TextString (car lst1))
        )
        (foreach b lst
          (if (member a b)
            (setq h b)
          )
        )
        (if h
          (progn
            (setq t1 (nth 1 h)
                  t2 (nth 2 h)
                  t3 (nth 3 h)
                  t4 (nth 4 h)
                  t5 (nth 5 h)
                  t6 (nth 6 h)
                  t7 (nth 7 h)
            )
            (vla-put-TextString (cadr lst1) t1)
            (vla-put-TextString (caddr lst1) t2)
            (vla-put-TextString (cadddr lst1) t3)
            (setq h nil)
          )
        )
      )
    )
  )
  (CMDLA1)
)

13174545660

13174545660 发表于 2021-1-26 11:20
(defun c:etc ()
  (CMDLA0)
  (princ "\n选择数据文件: ")

C:\Users\Administrator\Desktop请问这一个插件要怎么改成能替换多个的？现在他只能根据桩号修改三个属性文字，我现在想要外围的四个偏差也能一次性改掉

13174545660

pxr201419 发表于 2019-9-8 08:44
东拉西扯来的，凑合用吧
(defun c:plth ()
    (vl-load-com)

(defun c:etc ()
  (CMDLA0)
  (princ "\n选择数据文件: ")
  (setq lst (xyp-Xls2List))
  (princ "\n选择图块控制点: ")
  (setq        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)))
              a           (vla-get-TextString (car lst1))
        )
        (foreach b lst
          (if (member a b)
            (setq h b)
          )
        )
        (if h
          (progn
            (setq t1 (nth 1 h)
                  t2 (nth 2 h)
                  t3 (nth 3 h)
                  t4 (nth 4 h)
                  t5 (nth 5 h)
                  t6 (nth 6 h)
                  t7 (nth 7 h)
            )
            (vla-put-TextString (cadr lst1) t1)
            (vla-put-TextString (caddr lst1) t2)
            (vla-put-TextString (cadddr lst1) t3)
            (setq h nil)
          )
        )
      )
    )
  )
  (CMDLA1)
)

13174545660

13174545660 发表于 2021-1-26 16:02
(defun c:etc ()
  (CMDLA0)
  (princ "\n选择数据文件: ")

这个插件只能对应块里面的第一个属性文字修改同一个块下面的另外三个属性文字，想要多修改同一块里面的其他四个块属性文字要怎么办？

13174545660

13174545660 发表于 2021-1-26 16:05
这个插件只能对应块里面的第一个属性文字修改同一个块下面的另外三个属性文字，想要多修改同一块里面的其 ...

对应第一列文字修改后面的文字

13174545660

13174545660 发表于 2021-1-26 16:08
对应第一列文字修改后面的文字

这是利用插件读取表格修改的，只自动改了三个数值，另外四个“偏差值”属性文字却没变化，怎么办？

zrednzdfn

#在这里快速回复#感谢大佬分享

sjj

很实用，类似于批量替换，有完善的程序就好了

sjj

命令: PLTH
; 错误: Automation 错误。未提供说明。

60ck

pxr201419 发表于 2019-9-8 12:55
命令行输入PLTH，在弹窗选择EXCEL文件并打开

老师 您好
我有下载您这个插件
但是使用後出现错误的消息，请问是否哪里操作错误呢？
Application Error: 2 :- 自动化错误。未提供描述。