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

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函数发上来才能调试。

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

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

评分

本帖子中包含更多资源

评分

浏览过的版块