cjjh8301 发表于 2011-6-3 11:08:22

可以了，能不能 逢0.5 的小数保留呀，例如 12.5*4=50    0.5这个小数保留其他的 4 舍 5 入

Andyhon 发表于 2011-6-3 11:48:35

   (setVar 'DimZin 8)
   (setVar 'Luprec 1)         ; 此处设定小数精度

4# 同步订正

cjjh8301 发表于 2011-6-3 15:57:53

感谢！ 帮了大忙了。

ZZXXQQ 发表于 2011-6-3 23:00:50

;给个按国家制图标准，可多选的程序

;;自动将标注等分 明经 ZZXXQQ 2011.6.3
(defun c:tt ()
(if (setq ss (ssget '((0 . "DIMENSION")(-4 . "<OR")(70 . 32)(70 . 33)(70 . 34)(70 . 37)(-4 . "OR>")))) (progn
(setvar "DIMZIN" 8)
(setvar "LUPREC" 1)         ; 此处设定小数精度
(setq i 0)
(setq div (getint "\n输入要等分的量: "))
(repeat (sslength ss)
   (setq ent (entget(ssname ss i))
         txt (cdr(assoc 42 ent))
         dtxt (if(>(cdr(assoc 70 ent))33)(rtos(/(* txt 180) pi div) 2 0)(rtos(/ txt div)))
         ent (subst (cons 1 (strcat (itoa div) "x" dtxt "(=<>)")) (assoc 1 ent) ent))
   (entmod ent)
   (setq i (1+ i))
)
))
(princ)
)

yoyoho 发表于 2011-6-5 08:15:37

感谢分享学习了!

raimo 发表于 2011-6-5 23:57:24

本帖最后由 raimo 于 2011-6-5 23:58 编辑



这个我们一般都是这样标注的直接整尺寸除份数...可以不用去计算,所以没有楼主这样的烦恼

gbhsu 发表于 2011-7-25 13:46:47

GOOD GOOD STUDY
DAY DAY UP

duanshui83 发表于 2012-12-3 13:06:16

ZZXXQQ 发表于 2011-6-3 23:00 static/image/common/back.gif
;给个按国家制图标准，可多选的程序


还是这个比较好
页: 1 [2]
查看完整版本: 明币不多，意思下，2币求一小程序，前辈请进