楼梯梯段尺寸标注等式

w090212y

(defun c:cc ( / tbk ss n i cljl xssz fds cljl0)
    (setvar "cmdecho" 0)
  (princ "\n 选择需要等式标注的标注：")
  (princ)
  (setq ss (ssget '((0 . "DIMENSION")))
        n (sslength ss)
        i 0        )
  (initget "S")
  (if (= (setq fds (getstring "\n 输入等分的数量[恢复标注(S)]")) "S")
    (cond (
           (while (< i n)
             (setq cljl0 (rtos(vla-get-Measurement (Vlax-Ename->Vla-Object (ssname ss i))) 2 1))
             (vla-put-TextOverride (Vlax-Ename->Vla-Object (ssname ss i)) cljl0)
             (setq i (+ i 1))
             )
           )
          )
     (while (< i n)
       (setq cljl (vla-get-Measurement (Vlax-Ename->Vla-Object (ssname ss i)))
             )
      
       (setq tbk (rtos (/ cljl (atof fds)) 2 1)
             xssz (strcat tbk "x" fds "=" (rtos cljl 2 1)))
       (vla-put-TextOverride (Vlax-Ename->Vla-Object (ssname ss i)) xssz)
       (setq i (+ i 1))
       )
    )
  (setvar "cmdecho" 1)
  )

(princ "\n 加载成功! 启动命令:W_DSBZ-----BY WW \n")

zhoupeng220

谢谢分享源码，已改为自己想要的显示结果，每家公司的现场表现不同，有的显示一排，有的显示两排，希望不要介意。


如果显示结果可以修改显示格式就好了。比如：（下面是我们对应的公司现场各有各的规范要求）