[求助]：在CAD里怎样可以快速地把1到1000之间的数字画出

cai18gang · 发表于 2006-2-15 15:22:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在CAD里怎样可以快速地把1到1000之间的数字画出*-*a
付图

smarta · 发表于 2006-2-15 22:00:37

下载 smartools ，在这个论坛

yulun99 · 发表于 2006-2-16 18:15:57

先画出一个数字，比如数字1，然后用array(阵列)命令，阵列出1000个1，然后用express tools工具(可以在论坛上搜索下载)中的tcount命令将1000个1变成1，2，3～1000！

wxh-1963 · 发表于 2006-2-16 21:27:18

看了半天，也不知这样做有什么意义！我想楼主发贴前应先说明以下。但我在此不是讽刺楼主。

cai18gang · 发表于 2006-2-17 09:18:27

最初由 yulun99 发布
[B]先画出一个数字，比如数字1，然后用array(阵列)命令，阵列出1000个1，然后用express tools工具(可以在论坛上搜索下载)中的tcount命令将1000个1变成1，2，3～1000！ [/B]

谢谢你啦！！*-*4

364822400 · 发表于 2006-2-17 09:40:27

作这么多的数字。在那里能用的到了

zwhisper · 发表于 2006-2-17 11:12:07

用excel制作完，，，复制，，在CAD中选择性粘贴，，选CAD图元，，，OK《~！〈~

学技术 · 发表于 2006-2-18 09:05:02

8楼，汗！我也是用这个办法。
至于楼主说的也行，也容易多了~虽然不是常用到，不过也谢谢楼上的几位。

WYQ4517 · 发表于 2006-2-18 10:00:22

在填表格时，用到连续序数字。我的竖写连续序数字Lisp如下：
(defun c:vtnum()
   (setq pt (getpoint "\n给出第一个数字的中心点:"))

   (prompt  "\n字高<") (princ hie) (princ ">:")
   (setq d (getreal))
   (if (= d nil) (setq d hie))

   (prompt  "\n字间距离<") (princ dist) (princ ">:")
   (setq s (getreal))

   (prompt "\n写入的数字数量<") (princ num) (princ ">")
   (setq c (getint))
   (if (= c nil) (setq c num))
   (setq n (getint "\n开始数字:"))

   (if (= s nil) (setq s dist)) (setq num c hie d dist s)
   (setq c (+ (1- c) n))
      (setq h 0)
      (while (<= n c)
   (command "text" "m" (setq pt1 (polar pt (dtr 270) h))
         d 0 (itoa n))
      (setq h (+ h s))
         (setq n (1+ n))
         )
)
见笑了。如没用，就别理睬。

账号		自动登录	找回密码
密码			立即注册

[求助]：在CAD里怎样可以快速地把1到1000之间的数字画出

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子