[建议]：修改理正窗高度的程序

brainstorm · 发表于 2007-7-17 20:06:00

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

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

×

;配合理正造门窗表可读取z轴方向比例，利用此程序可直接在平面修改门窗z向比例，这样造门窗表是不需要在手工调整
(defun zgx-chg-dxf (en code newdata / endata)
(setq endata (entget en))
(setq
endata (subst (cons code newdata)
      (assoc code endata)
      endata
         )
)
(entmod endata)
)
(defun c:gcg (/ ss winht win n)
(setq winht (getreal "\n请输入新的门窗高度:"))
(prompt "\n请选择要修改高度的门窗:")
(setq ss (ssget '((0 . "INSERT") (8 . "WINDOW"))))
(setq n 0)
(repeat (sslength ss)
(setq win (ssname ss n))
(zgx-chg-dxf win 43 winht)
(setq n (+ n 1))
)

)

andyhua5240 · 发表于 2007-7-17 20:27:01

如果好使的话，能否考虑合并到理正里面？

Qun · 发表于 2007-7-18 09:34:14

【门窗名称】命令如果选多个门窗，只修改窗高也可以实现！

brainstorm · 发表于 2007-7-18 12:57:58

哦果然自己学艺不精

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

[建议]：修改理正窗高度的程序

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

相关帖子