fjutcivil 发表于 2012-12-5 15:49:42

求助高手

本帖最后由 fjutcivil 于 2014-4-20 11:17 编辑

.....................

fjutcivil 发表于 2012-12-5 15:53:24

输出的结果是写在图纸上面的 字高250 高宽比0.7   

ZZXXQQ 发表于 2012-12-5 18:07:45

本帖最后由 ZZXXQQ 于 2012-12-5 22:04 编辑


(defun c:cf ()
(setq a 2750 b 3)
(setvar "DIMZIN" 8);设零有小数
(if (and (setq n (getint "\n输入参数 :"))
          (setq pt (getpoint "\n文字点 :"))
          (>= n 100)) (progn
(setq d (/ (- n (* (/ n 10) 10)) 10.0)
      c (rtos (* (- a (* (/ n 10) 10)) b (if (equal d 0.0 0.001) 1 d)) 2 2)
      c (strcat c "(" (itoa n) ")"))
(entmake
   (list
    '(0 . "TEXT")
    (cons 10 pt)
    '(40 . 300)
    (cons 1 c)
    '(50 . 0)
    '(41 . 0.7)
    '(72 . 0)
    '(73 . 0)
   )
)
))
(princ)
)

fjutcivil 发表于 2012-12-5 20:01:40

ZZXXQQ 发表于 2012-12-5 18:07 static/image/common/back.gif


牛人啊 谢啦 ！

fjutcivil 发表于 2012-12-5 20:44:08

ZZXXQQ 发表于 2012-12-5 18:07 static/image/common/back.gif


大哥 能帮我完善下嘛 就是假设我输入的508 按你帮我算出来的结果假设是5400我想让它最后输出的结果变成是5400（508）万分感激你的帮忙哦！！！

fjutcivil 发表于 2012-12-5 21:58:25

ZZXXQQ 发表于 2012-12-5 18:07 static/image/common/back.gif


有点问题啊 我要保留两位小数 咋整？我一般b会取一个0.003这样的数值 所以我想要得出来的数值是5.40（508）

fjutcivil 发表于 2012-12-5 22:01:15

ZZXXQQ 发表于 2012-12-5 18:07 static/image/common/back.gif


尴尬 看错了 没问题了 谢啦 大神
页: [1]
查看完整版本: 求助高手