设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 467|回复: 9

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

[复制链接]
发表于 2021-2-22 10:34:27 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
请高手做一个桩基竣工图插件,下面是原基于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)
)
更多图片 小图 大图
组图打开中,请稍候......
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
 楼主| 发表于 2021-2-22 10:41:37 | 显示全部楼层
下面是所用到插件
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-2-22 11:01:02 | 显示全部楼层
上传不了压缩包,也不能上传不了百度网盘链接
6.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-2-28 08:05:15 | 显示全部楼层
都没人,自己顶一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 375个

财富等级: 日进斗金

发表于 2021-2-28 09:44:05 | 显示全部楼层
本帖最后由 SHUNDocker 于 2021-2-28 09:46 编辑

你是从表格修改属性块里的所有属性文字到CAD吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2021-2-28 11:48:11 | 显示全部楼层
感谢楼主分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-3-2 14:33:04 | 显示全部楼层
SHUNDocker 发表于 2021-2-28 09:44
你是从表格修改属性块里的所有属性文字到CAD吧

是的,现在这个插件只能根据桩号,批量修改圈内的三个属性值,圈外的四个不能批量改
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-3-2 14:41:20 | 显示全部楼层
有哪位高手可以帮忙改进下?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-3-5 11:02:15 | 显示全部楼层
有哪位高手可以帮忙改进下?改成可以导入表格批量替换剩余的七个属性值,现在的插件只能更改3个
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-3-9 09:47:34 | 显示全部楼层
有没有人帮忙解答下呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2021-9-21 16:36 , Processed in 0.915114 second(s), 49 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表