(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 于 2023-10-8 11:50 编辑
谢谢分享源码，已改为自己想要的显示结果，每家公司的现场表现不同，有的显示一排，有的显示两排，希望不要介意。
如果显示结果可以修改显示格式就好了。比如：（下面是我们对应的公司现场各有各的规范要求）
页:
1
[2]