设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD软件 › AutoCAD 使用技术 › [求助]：新手求救，請問要怎樣才能在陣列中，讓數字自動 ...
返回列表 发新帖
查看: 725|回复: 8

[求助]：新手求救，請問要怎樣才能在陣列中，讓數字自動加1

[复制链接]
nova123
发表于 2005-11-19 10:25:40 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
我想在一張圖中分割成1-100的方格，然後在「布局」上一格打印一張A4圖紙，請問要如何才能讓每一分格可以自動由 1 排列到 100 ，而不需要自已由 1 打到 100 一個一個打上去。(這 1 到 100 不打印出來，所以設在 0 層上)
一格, 才能

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

zhgq
发表于 2005-11-19 11:06:16 | 显示全部楼层
前面的我不太清楚，不过要是不打印的话应该把对象置于DEFPOINTS层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Underway

已领礼包: 7250个

财富等级: 富甲天下
发表于 2005-11-20 16:21:45 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(setq n 0)
(repeat 100
   (setq n (1+ n)
             $n (itoa n)
   )
  (command "text" the_pnt  .....)
)
欠资料 .....
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

congmin
发表于 2005-11-20 17:44:13 | 显示全部楼层
樓主好像沒有說怎麼明白啊,我都聽得糊涂了,煩請你發帖時講明白點,讓大家好明白你的意思
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

huanyunzui
发表于 2005-11-20 18:55:01 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我也看不太明白,麻烦你说的再清楚一点,最好放两张图在上边
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

taner

已领礼包: 2个

财富等级: 恭喜发财
发表于 2005-11-20 19:03:56 | 显示全部楼层

很久以前写的,不知道对你有没有帮助.

[php](defun c:ttt (/ cn rn cd rd bp0 bpij hi i j bp0x bp0y txt dir dou z)
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (princ "\n为LCD排版图设定模号，双版. ")
  (initget (+ 1 2 4))
  (setq cn (getint "\n請輸入行數(---):"))
  (initget (+ 1 2 4))
  (setq rn (getint "\n請輸入列數(|||):"))
  (initget (+ 1 2 4))
  (setq rd (getdist "\n請輸入行距<可直接量取>(---):"))
  (initget (+ 1 2 4))
  (setq cd (getdist "\n請輸入列距<可直接量取>(|||):"))
  (initget (+ 1 2 4))
  (setq hi (getdist "\n請確認字高:"))
  (initget (+ 1 2 4))
  (setq dou (getint "\n請確認模號的奇偶性(奇數=1,偶數=2):"))
  (initget (+ 1 2 4))
  (setq dir (getint "\n請確認陣列的方向(右上到左下=1,左上到右下=2,右下到左上=3,左下到右上=4):"))
  (initget (+ 1 2 4))
  (setq bp0 (getpoint "\n請拾取模號的基點:"))
  (setq bp0x (car bp0)
        bp0y (cadr bp0)
  )
  (command "style" "mol" "swiss.ttf" "" "" "" "" "")
  (if (= dou 1)
    (progn
      (setq i cn
            j (1- (* 2 rn))
      )
      (if (= dir 1)
        (progn
          (while (>= i 1)
            (while (>= j 1)
              (setq bpij (list (+ bp0x (/ (* (- (1- (* 2 rn)) j) cd) 2))
                               (+ bp0y (* (- cn i) rd))
                         )
              )
              (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
              (command "TEXT" "s" "mol" bpij hi "" txt)
              (setq j (- j 2))
            )
            (setq j (1- (* 2 rn)))
            (setq i (1- i))
          )
        )
      )
      (if (= dir 3)
        (progn
          (while (>= i 1)
            (while (>= j 1)
              (setq bpij (list (+ bp0x (/ (* (- (1- (* 2 rn)) j) cd) 2))
                               (- bp0y (* (- cn i) rd))
                         )
              )
              (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
              (command "TEXT" "s" "mol" bpij hi "" txt)
              (setq j (- j 2))
            )
            (setq j (1- (* 2 rn)))
            (setq i (1- i))
          )
        )
      )
      (if (= dir 2)
        (progn
          (while (>= i 1)
            (while (>= j 1)
              (setq bpij (list (- bp0x (/ (* (- (1- (* 2 rn)) j) cd) 2))
                               (+ bp0y (* (- cn i) rd))
                         )
              )
              (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
              (command "TEXT" "s" "mol" bpij hi "" txt)
              (setq j (- j 2))
            )
            (setq j (1- (* 2 rn)))
            (setq i (1- i))
          )
        )
      )
      (if (= dir 4)
        (progn
          (while (>= i 1)
            (while (>= j 1)
              (setq bpij (list (- bp0x (/ (* (- (1- (* 2 rn)) j) cd) 2))
                               (- bp0y (* (- cn i) rd))
                         )
              )
              (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
              (command "TEXT" "s" "mol" bpij hi "" txt)
              (setq j (- j 2))
            )
            (setq j (1- (* 2 rn)))
            (setq i (1- i))
          )
        )
      )
    )
    (if (= dou 2)
      (progn
        (setq i cn
              j (* 2 rn)
        )
        (if (= dir 1)
          (progn
            (while (>= i 1)
              (while (> j 1)
                (setq bpij (list (+ bp0x (/ (* (- (* 2 rn) j) cd) 2))
                                 (+ bp0y (* (- cn i) rd))
                           )
                )
                (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
                (command "TEXT" "s" "mol" bpij hi "" txt)
                (setq j (- j 2))
              )
              (setq j (* 2 rn))
              (setq i (1- i))
            )
          )
        )
        (if (= dir 3)
          (progn
            (while (>= i 1)
              (while (> j 1)
                (setq bpij (list (+ bp0x (/ (* (- (* 2 rn) j) cd) 2))
                                 (- bp0y (* (- cn i) rd))
                           )
                )
                (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
                (command "TEXT" "s" "mol" bpij hi "" txt)
                (setq j (- j 2))
              )
              (setq j (* 2 rn))
              (setq i (1- i))
            )
          )
        )
        (if (= dir 2)
          (progn
            (while (>= i 1)
              (while (> j 1)
                (setq bpij (list (- bp0x (/ (* (- (* 2 rn) j) cd) 2))
                                 (+ bp0y (* (- cn i) rd))
                           )
                )
                (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
                (command "TEXT" "s" "mol" bpij hi "" txt)
                (setq j (- j 2))
              )
              (setq j (* 2 rn))
              (setq i (1- i))
            )
          )
        )
        (if (= dir 4)
          (progn
            (while (>= i 1)
              (while (> j 1)
                (setq bpij (list (- bp0x (/ (* (- (* 2 rn) j) cd) 2))
                                 (- bp0y (* (- cn i) rd))
                           )
                )
                (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
                (command "TEXT" "s" "mol" bpij hi "" txt)
                (setq j (- j 2))
              )
              (setq j (* 2 rn))
              (setq i (1- i))
            )
          )
        )
      )
    )
  )
  (command "undo" "e")
  (setvar "cmdecho" z)
  (princ)
)[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-11-20 20:14:05 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
先把楼上的改了改：
  2. [FONT=courier new]
  3. (load "xyp_lib.vlx")
  4. ;|加载通用函数(可在签名栏直接下载)
  5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
  6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
  7. ★1·在acad.lsp中增加(load"xyp_lib")
  8. ■2·在每个程序内增加(load"xyp_lib")
  9. ■3·在command下，输入(load"xyp_lib")
  10. ■4·在菜单.mnl中增加(load"xyp_lib")
  11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
  12. [COLOR=red] ★通用函数下载地址：[/COLOR]
  13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
  14. |;

  16. ;;;
  17. (defun c:test (/ bp0 bpij i j bp0x bp0y txt z)
  18.   (setq z (getvar "cmdecho"))
  19.   (setvar "cmdecho" 0)
  20.   (command "undo" "be")
  21.   (princ "\n为LCD排版图设定模号，双版. ")
  22.   (setq        cn   (UINT 7 "" "\n請輸入行數(---)" cn)
  23.         rn   (UINT 7 "" "\n請輸入列數(|||)" rn)
  24.         rd   (UDIST 7 "" "\n請輸入行距<可直接量取>(---)" rd nil)
  25.         cd   (UDIST 7 "" "\n請輸入列距<可直接量取>(|||)" cd nil)
  26.         hi   (UREAL 7 "" "\n請確認字高" hi)
  27.         dou  (UINT 7 "" "\n請確認模號的奇偶性(奇數=1,偶數=2)" dou)
  28.         dir  (UKWORD
  29.                7
  30.                "1 2 3 4"
  31.                "\n請確認陣列的方向(右上到左下=1,左上到右下=2,右下到左上=3,左下到右上=4)"
  32.                dir
  33.              )
  34.         bp0  (getpoint "\n請拾取模號的基點 : ")
  35.         bp0x (car bp0)
  36.         bp0y (cadr bp0)
  37.   )
  38.   (command "style" "mol" "swiss.ttf" "" "" "" "" "")
  39.   (if (= dou 1)
  40.     (progn
  41.       (setq i cn
  42.             j (1- (* 2 rn))
  43.       )
  44.       (if (= dir "1")
  45.         (progn
  46.           (while (>= i 1)
  47.             (while (>= j 1)
  48.               (setq
  49.                 bpij (list (+ bp0x (/ (* (- (1- (* 2 rn)) j) cd) 2))
  50.                            (+ bp0y (* (- cn i) rd))
  51.                      )
  52.               )
  53.               (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
  54.               (command "TEXT" "s" "mol" bpij hi "" txt)
  55.               (setq j (- j 2))
  56.             )
  57.             (setq j (1- (* 2 rn)))
  58.             (setq i (1- i))
  59.           )
  60.         )
  61.       )
  62.       (if (= dir "3")
  63.         (progn
  64.           (while (>= i 1)
  65.             (while (>= j 1)
  66.               (setq
  67.                 bpij (list (+ bp0x (/ (* (- (1- (* 2 rn)) j) cd) 2))
  68.                            (- bp0y (* (- cn i) rd))
  69.                      )
  70.               )
  71.               (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
  72.               (command "TEXT" "s" "mol" bpij hi "" txt)
  73.               (setq j (- j 2))
  74.             )
  75.             (setq j (1- (* 2 rn)))
  76.             (setq i (1- i))
  77.           )
  78.         )
  79.       )
  80.       (if (= dir "2")
  81.         (progn
  82.           (while (>= i 1)
  83.             (while (>= j 1)
  84.               (setq
  85.                 bpij (list (- bp0x (/ (* (- (1- (* 2 rn)) j) cd) 2))
  86.                            (+ bp0y (* (- cn i) rd))
  87.                      )
  88.               )
  89.               (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
  90.               (command "TEXT" "s" "mol" bpij hi "" txt)
  91.               (setq j (- j 2))
  92.             )
  93.             (setq j (1- (* 2 rn)))
  94.             (setq i (1- i))
  95.           )
  96.         )
  97.       )
  98.       (if (= dir "4")
  99.         (progn
  100.           (while (>= i 1)
  101.             (while (>= j 1)
  102.               (setq
  103.                 bpij (list (- bp0x (/ (* (- (1- (* 2 rn)) j) cd) 2))
  104.                            (- bp0y (* (- cn i) rd))
  105.                      )
  106.               )
  107.               (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
  108.               (command "TEXT" "s" "mol" bpij hi "" txt)
  109.               (setq j (- j 2))
  110.             )
  111.             (setq j (1- (* 2 rn)))
  112.             (setq i (1- i))
  113.           )
  114.         )
  115.       )
  116.     )
  117.     (if        (= dou 2)
  118.       (progn
  119.         (setq i        cn
  120.               j        (* 2 rn)
  121.         )
  122.         (if (= dir "1")
  123.           (progn
  124.             (while (>= i 1)
  125.               (while (> j 1)
  126.                 (setq bpij (list (+ bp0x (/ (* (- (* 2 rn) j) cd) 2))
  127.                                  (+ bp0y (* (- cn i) rd))
  128.                            )
  129.                 )
  130.                 (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
  131.                 (command "TEXT" "s" "mol" bpij hi "" txt)
  132.                 (setq j (- j 2))
  133.               )
  134.               (setq j (* 2 rn))
  135.               (setq i (1- i))
  136.             )
  137.           )
  138.         )
  139.         (if (= dir "3")
  140.           (progn
  141.             (while (>= i 1)
  142.               (while (> j 1)
  143.                 (setq bpij (list (+ bp0x (/ (* (- (* 2 rn) j) cd) 2))
  144.                                  (- bp0y (* (- cn i) rd))
  145.                            )
  146.                 )
  147.                 (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
  148.                 (command "TEXT" "s" "mol" bpij hi "" txt)
  149.                 (setq j (- j 2))
  150.               )
  151.               (setq j (* 2 rn))
  152.               (setq i (1- i))
  153.             )
  154.           )
  155.         )
  156.         (if (= dir "2")
  157.           (progn
  158.             (while (>= i 1)
  159.               (while (> j 1)
  160.                 (setq bpij (list (- bp0x (/ (* (- (* 2 rn) j) cd) 2))
  161.                                  (+ bp0y (* (- cn i) rd))
  162.                            )
  163.                 )
  164.                 (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
  165.                 (command "TEXT" "s" "mol" bpij hi "" txt)
  166.                 (setq j (- j 2))
  167.               )
  168.               (setq j (* 2 rn))
  169.               (setq i (1- i))
  170.             )
  171.           )
  172.         )
  173.         (if (= dir "4")
  174.           (progn
  175.             (while (>= i 1)
  176.               (while (> j 1)
  177.                 (setq bpij (list (- bp0x (/ (* (- (* 2 rn) j) cd) 2))
  178.                                  (- bp0y (* (- cn i) rd))
  179.                            )
  180.                 )
  181.                 (setq txt (strcat (rtos i 2 0) "." (rtos j 2 0)))
  182.                 (command "TEXT" "s" "mol" bpij hi "" txt)
  183.                 (setq j (- j 2))
  184.               )
  185.               (setq j (* 2 rn))
  186.               (setq i (1- i))
  187.             )
  188.           )
  189.         )
  190.       )
  191.     )
  192.   )
  193.   (command "undo" "e")
  194.   (setvar "cmdecho" z)
  195.   (princ)
  196. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-11-20 21:38:56 | 显示全部楼层
正式版
  2. [FONT=courier new]
  3. (load "xyp_lib.vlx")
  4. ;|加载通用函数(可在签名栏直接下载)
  5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
  6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
  7. ★1·在acad.lsp中增加(load"xyp_lib")
  8. ■2·在每个程序内增加(load"xyp_lib")
  9. ■3·在command下，输入(load"xyp_lib")
  10. ■4·在菜单.mnl中增加(load"xyp_lib")
  11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
  12. [COLOR=red] ★通用函数下载地址：[/COLOR]
  13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
  14. |;

  16. ;;;将图面分割成10×10的方格并编号
  17. (defun c:test ()
  18.   (CMDLA0)
  19.   (setvar "osmode" 0)
  20.   (command "select" "all" "")
  21.   (setq        ss  (ssget "P")
  22.         pt0 (xyp-get-SsMinMaxPoint ss 0)
  23.         pt1 (xyp-get-SsMinMaxPoint ss 1)
  24.         dx  (/ (- (car pt0) (car pt1)) 10.0)
  25.         dy  (/ (- (cadr pt0) (cadr pt1)) 10.0)
  26.         pt2 (list (+ (car pt1) dx) (+ (cadr pt1) dy))
  27.         pt0 (list (+ (car pt1) (/ dx 2.0)) (+ (cadr pt1) (/ dy 2.0)))
  28.         j   -1
  29.         k   0
  30.         sc  2
  31.   )
  32.   (mkla "DEFPOINTS" 143);本层不打印
  33.   (command "rectang" pt1 pt2)
  34.   (command "array"
  35.            (entlast)
  36.            ""
  37.            "R"
  38.            10
  39.            10
  40.            dy
  41.            dx
  42.   )
  43.   (while (< j 9)
  44.     (setq pt (list (car pt0) (+ (cadr pt0) (* (setq j (1+ j)) dy)))
  45.           i  -1
  46.     )
  47.     (while (< i 9)
  48.       (setq pt1        (list (+ (car pt) (* (setq i (1+ i)) dx)) (cadr pt))
  49.             txt        (rtos (setq k (1+ k)) 2 0)
  50.       )
  51.       (xyp-Text pt1 5 txt)
  52.     )
  53.   )
  54.   (CMDLA1)
  55. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-11-21 08:42:58 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
改进版：http://p4.xdcad.net/forum/showth ... 2407298#post2407298
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-24 07:00 , Processed in 0.214278 second(s), 48 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表