zhangcan0515 发表于 2020-10-4 12:19:17

求助：如何修改多个属性值宽度因子？

本帖最后由 zhangcan0515 于 2020-10-4 21:30 编辑

目前只能修改一个属性值的，如何在添加一个“名称”的可以达到修改2个以上属性值宽度因子？请老师们指教
(defun c:tt()
      (setq ss (ssget '((0 . "INSERT") (66 . 1))));选择对象
(setq i 0);初始化
(repeat (sslength ss);开始循环
      (setq ent      (bb-get-att-ent (ssname ss i) "代号" ));获取选择集当中的图元名
      (setq ent (subst (cons 41 0.7) (assoc 41 ent) ent))
      (setq i (1+ i))
(entmod ent)
(princ)
)
      )      



start4444 发表于 2020-10-4 15:02:06

直接后面加就是了，要多少个加多少
(defun c:tt(/ ent ent1 i ss)
      (setq ss (ssget '((0 . "INSERT") (66 . 1))));选择对象
(setq i 0);初始化
(repeat (sslength ss);开始循环
      (setq ent      (bb-get-att-ent (ssname ss i) "代号" ));获取选择集当中的图元名
      (setq ent (subst (cons 41 0.7) (assoc 41 ent) ent))
              (setq ent1      (bb-get-att-ent (ssname ss i) "名称" ));获取选择集当中的图元名
      (setq ent1 (subst (cons 41 0.7) (assoc 41 ent1) ent1))
      (setq i (1+ i))
(entmod ent)
        (entmod ent1)
(princ)
)
      )

zhangcan0515 发表于 2020-10-4 16:50:44

本帖最后由 zhangcan0515 于 2020-10-4 21:28 编辑

start4444 发表于 2020-10-4 15:02
直接后面加就是了，要多少个加多少
(defun c:tt(/ ent ent1 i ss)
      (setq ss (ssget '((0 . "INSE ...
谢谢老师给予指导

zhangcan0515 发表于 2020-10-4 16:54:56

本帖最后由 zhangcan0515 于 2020-10-4 21:29 编辑

zhangcan0515 发表于 2020-10-4 16:50
老师经常你修改之后，我的属性块上面的值1个都不会变了，我把DWG上传一下
谢谢老师给予指导

xvjiex 发表于 2020-10-9 11:14:06

要把bb-get-att-ent函数发上来才能调试。
页: [1]
查看完整版本: 求助：如何修改多个属性值宽度因子？