[原创]：全功能文字/属性四则运算程序，v1.5（040717）。

841594

最初由 ydf7332462 发布
[B]"挨个点一遍都觉得费事？"不是觉得费事,有时会漏点，图上好多－好多－好多的井呵... [/B]

看来不满足你的要求不行了。。。
重新下载吧：）

maoding

;;-----------文字乘法----------
(defun c:wc ()
  (setq cm (getvar "cmdecho"))
  (setq os (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq qw (getint "\n 输出数值位数<2>："))
  (if (= qw nil) (setq qw 2))
  (setq zg (getreal "\n 输入字高<2>："))
  (if (= zg nil) (setq zg 2))
  (setq xs (getreal "\n 输入乘积系数<1>："))
  (if (= xs nil) (setq xs 1))
  (princ "\n 请选择乘数:")
  (setq en (ssget))
  (while en
    (setq he 1)
    (setq dd 0)
    (setq n 0)
    (repeat (sslength en)
      (setq enn (ssname en n))
      (setq endata (entget enn))
      (setq entyp (cdr (assoc 0 endata)))
      (setq dd (atof(cdr (assoc 1 endata))))
      (setq he (* he dd))
      (setq n (1+ n))
      )
    (setq he1 (* he xs))
    (setq pt (getpoint "\n 文字位置点："))
    (command "text" pt zg 0 (strcat (rtos he1 2 qw)) "")
    (setq en (ssget))
    )
  (setvar "cmdecho" cm)
  (setvar "osmode" os)
  (prin1)
  )
;;-----------文字加法----------
(defun c:wj ()
  (setq cm (getvar "cmdecho"))
  (setq os (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq qw (getint "\n 输出数值位数<2>："))
  (if (= qw nil) (setq qw 2))
  (setq zg (getreal "\n 输入字高<2>："))
  (if (= zg nil) (setq zg 2))
  (princ "\n 请选择加数:")
  (setq en (ssget))
  (while en
    (setq he 0)
    (setq dd 0)
    (setq n 0)
    (repeat (sslength en)
      (setq enn (ssname en n))
      (setq endata (entget enn))
      (setq entyp (cdr (assoc 0 endata)))
      (setq dd (atof(cdr (assoc 1 endata))))
      (setq he (+ he dd))
      (setq n (1+ n))
      )
    (setq pt (getpoint "\n 文字位置点："))
    (command "text" pt zg 0 (strcat (rtos he 2 qw)) "")
    (setq en (ssget))
    )
  (setvar "cmdecho" cm)
  (setvar "osmode" os)
  (prin1)
  )

我也来一段我觉得简单好用

ydf7332462

楼上是文字,这里需要的可是宿性呵

coolzhb

最初由 841594 发布
[B]
for14版本下载：textcal.arx [/B]

麻烦提供最新的For 14的版本，谢谢！

841594

最初由 coolzhb 发布
[B]

麻烦提供最新的For 14的版本，谢谢！ [/B]

抱歉，这个程序在r14上未能编译通过，我也不想再花时间去debug了。
r14已经落后了，还是升级吧。。。

coolzhb

最初由 841594 发布
[B]
抱歉，这个程序在r14上未能编译通过，我也不想再花时间去debug了。
r14已经落后了，还是升级吧。。。 [/B]

不是我不想升级，但是有一些二次开发的专业软件还得在R14下用，如果通不过，我就用1。4版本了。

ydf7332462

楼主的好用，谢了

hsb-hy

楼主好,我需要一个非常简单的程序,能否帮忙?只要输入一个命令,就能实现自动递增!并将递增的数字利用捕捉来放到指定点上!楼主如能帮忙,请将程序发到我的邮箱里,hsb-hy03@163.com

841594

最初由 hsb-hy 发布
[B]楼主好,我需要一个非常简单的程序,能否帮忙?只要输入一个命令,就能实现自动递增!并将递增的数字利用捕捉来放到指定点上!楼主如能帮忙,请将程序发到我的邮箱里,hsb-hy03@163.com [/B]

看看这个是否你需要的：
http://www.xdcad.net/forum/showthread.php?threadid=206503

JSSJ

居然能有这样的程序，真不错！

它山之石

其实编程的目的就是加快制图速度，如果用对话框则慢多了。
我写的程序一般不用对话框。

齐小社88

东西不错，支持小数递增，好用。

XM970100

谢谢了，顶啊，真的好用啊

bossda

真是受益不浅呀，非常谢谢你！

ydf7332462

+ - *  / 下的 _看起来不方便
特定缩性修改 能否增加 输入Tag时，修改缩性值