alanjt 发表于 2022-7-6 11:21:13

仍然需要重置dimzin变量，但不会破坏建筑单元。
(defun foo (num prec / dim)
(and (setq dim (getvar 'dimzin)) (setvar 'dimzin 0))
(setq num (cond ((numberp num)
                  (rtos num
                        (getvar 'lunits)
                        (cond ((numberp prec) prec)
                              ((getvar 'luprec))
                        )
                  )
               )
         )
)
(and dim (setvar 'dimzin dim))
num
)
页: 1 [2]
查看完整版本: 丢失的000