定位第一个属性值批量改其他属性值

13174545660 · 发表于 2021-2-22 10:34:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请高手做一个桩基竣工图插件，下面是原基于XCAD.VLX的插件，现在只能根据第一个属性值改下面的三个属性值，我想要它能根据第一个属性值改七个属性值。
(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 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)
)

13174545660 · 发表于 2021-2-22 10:41:37

下面是所用到插件

13174545660 · 发表于 2021-2-22 11:01:02

上传不了压缩包，也不能上传不了百度网盘链接

13174545660 · 发表于 2021-2-28 08:05:15

都没人，自己顶一下

SHUNDocker · 发表于 2021-2-28 09:44:05

本帖最后由 SHUNDocker 于 2021-2-28 09:46 编辑

你是从表格修改属性块里的所有属性文字到CAD吧

松树石头哥 · 发表于 2021-2-28 11:48:11

感谢楼主分享！

13174545660 · 发表于 2021-3-2 14:33:04

SHUNDocker 发表于 2021-2-28 09:44
你是从表格修改属性块里的所有属性文字到CAD吧

是的，现在这个插件只能根据桩号，批量修改圈内的三个属性值，圈外的四个不能批量改

13174545660 · 发表于 2021-3-2 14:41:20

有哪位高手可以帮忙改进下？

13174545660 · 发表于 2021-3-5 11:02:15

有哪位高手可以帮忙改进下？改成可以导入表格批量替换剩余的七个属性值，现在的插件只能更改3个

13174545660 · 发表于 2021-3-9 09:47:34

有没有人帮忙解答下呢？

13174545660 · 发表于 2021-10-28 11:11:21

SHUNDocker 发表于 2021-2-28 09:44
你是从表格修改属性块里的所有属性文字到CAD吧

是的，你有啥快捷的办法吗

猪八戒悟能 · 发表于 2021-11-1 10:32:59

感谢楼主分享！

账号		自动登录	找回密码
密码			立即注册

[属性] 定位第一个属性值批量改其他属性值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评