嗯，我不能在这里用Windows XP和AutoCAD 2010这样做。无论如何我看不到。
银色斗篷
好的，我会的。文字覆盖正是我拍摄的目的。我只是没想到这个小小的练习会变得这么复杂。
银色斗篷 在李之后，我所做的就是：
(defun 3digspace ( str len / k kk kkk 3dig stdig newstr )
(setq newstr "")
(setq k (fix (/ (float len) 3.0)))
(setq kk (rem (float len) 3.0))
(if (eq kk 0.0) (setq k (- k 1)))
(setq kkk 0)
(repeat k
(setq kkk (1+ kkk))
(setq 3dig (substr str (+ (- len (* kkk 3)) 1) 3))
(if (eq k kkk) (setq stdig (substr str 1 (- len (* kkk 3)))))
(setq newstr (strcat " " 3dig newstr))
)
(setq newstr (strcat stdig newstr))
newstr
)
(defun c:dimch ( / dimss n dim dimval d dimvalstr dimvalstrl dimvalstrnew )
(setq dimss (ssget '((0 . "DIMENSION")) ))
(repeat (setq n (sslength dimss))
(setq dim (ssname dimss (setq n (1- n))))
(setq dimval (cdr (assoc 42 (setq d (entget dim)))))
(setq dimvalstr (itoa (fix dimval)))
(setq dimvalstrl (strlen dimvalstr))
(setq dimvalstrnew (3digspace dimvalstr dimvalstrl))
(entmod (subst (cons 1 dimvalstrnew) (assoc 1 d) d))
)
(princ)
)
M.R。 空格符号可能在设置数字分组符号的弹出列表中不可用。试着打字。只需单击编辑框并按空格键，然后应用。
我无法在AutoCAD 2010中测试。对于单位格式，您有Windows桌面选项吗？
啊，是的，显然我喜欢。 DIMLUNIT 6引用帮助“Microsoft Windows Desktop（使用控制面板设置十进制分隔符和数字分组符号的十进制格式）”normal 2
页:
1
[2]