建筑标高转结构标高

Lisphk · 发表于 2017-1-20 17:03:22

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

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

×

;;;建筑标高改成结构标高
(defun C:TT (/ E ELIST I KW NEW NUM SS V1)
  (command "._UNDO" "_BEGIN")
  (setvar "DIMZIN" 0) ;_消零开关变量
  (setq NUM 0.030) ;_结构降30MM
  (if (setq SS (ssget '((0 . "TEXT,TCH_ELEVATION"))))
    (repeat (setq I (sslength SS))
      (setq E (ssname SS (setq I (1- I))))
      (setq ELIST (entget E))
      (setq V1 (cdr (assoc 1 ELIST))) ;_标高文字(须为数字)
      (setq NEW (- (read V1) NUM)) ;_标高文字减0.030
      (setq NEW (rtos NEW 2 3)) ;_格式化数字为小数点后3位
      (entmod (subst (cons 1 NEW)
       (assoc 1 ELIST)
       ELIST
       )
      ) ;_更新替代文字
      (entupd E) ;_更新图元
    )
  )
  (command "._UNDO" "_END")
  (princ)
)

xvjiex · 发表于 2021-12-5 08:16:27

感谢分享建筑标高转结构标高

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

[每日一码] 建筑标高转结构标高

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