[求助]：如何实现序号数字的自动编写？

loveocean

常常遇到结构划分单元得到的顺序节点，需要排序标识，用文字1，2，3。。。。，数量少还可以手动，数量多，几百个数字慢慢改很没效率，各位大侠　ｃａｄ本身如何实现这个功能？还是需要编一段程序加载实现？　我对程序不通　所以求助了　希望各位不吝赐教！

kohi

按什么规定排序？

北斗七星

早有这个程序了，这个网站上就有，我也有自编的程序

loveocean

呵呵　我以前没用过工具　只用纯ｃａｄ的　。就是阿拉伯数字涌1到ｎ　最好能点坐标依次输入，就是点第一次输入1，点第二次输入2，依次下去　原理应该很简单　可我就是没摸过

如果有现成的　我再去找一下　谢谢2楼　3楼的热心帮助　！

pbiahe

最初由 loveocean 发布
[B]呵呵　我以前没用过工具　只用纯ｃａｄ的　。就是阿拉伯数字涌1到ｎ　最好能点坐标依次输入，就是点第一次输入1，点第二次输入2，依次下去　原理应该很简单　可我就是没摸过

如果有现成的　我再去找一下　谢谢2楼... [/B]

哪里有呀，怎么用，我在工作中也遇到要编数字序号的问题，且数字的位置随元件位置而变。我也在想要是有每点一次就可以输入一个（带圈或带字母的）数字且按顺序增加，哪个命令该有多方便呀。请告诉我，在此我先谢谢施者了！

ygq_2005

(defun c:hanru ()
  
  (if (/= noa nil)
    (setq stra (itoa noa))
    (setq stra "1")
  )

  ;;***************
  (if (/= ha nil)
    (setq strb (rtos ha))
    (setq strb "3")
  )

  ;;***********
  (princ "\n请输入起始编号(")
  (princ stra)
  (princ "):")
  (princ)
  (setq nob (getint))
  ;;;****************
  (princ "\n请输入字高(")
  (princ strb)
  (princ "MM):");ewurqo  
  (princ)
  (setq hb (getreal))
  ;;;*****************
  (if (/= nob nil)
    (setq noa nob)
  )
  (if (= noa nil)
    (setq noa 1)
  )
  (if (/= hb nil)
    (setq ha hb)
  )
  (if (= ha nil)
    (setq ha 3)
  )
  (setq ra (* ha 1.2))
  (setq k "");;;;;;;fdajeoirogzsjdogf  
  (setq ac (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  ;;;;**********************************************
  (while k
    (setq pt1 (getpoint "\n请输入编号中心点:"));;dsafdsa木;fds

  

    ;;;;;;;;;;;;;;;;;;**********************************
    (if        (/= pt1 nil)
      (progn
        (setq str (itoa noa))
        (setq os (getvar "osmode"))
        (setvar "osmode" 0)
        (if (>= (strlen str) 3)
          (progn
            (if        (= (strlen str) 3)
              (setq pt2 (polar pt1 0 (* ra 1.40)))
            )
            (if        (= (strlen str) 4);;fdsadffffdsa
              (setq pt2 (polar pt1 0 (* ra 1.8)))
            )
            (if        (>= (strlen str) 5)
              (setq pt2 (polar pt1 0 (* ra 2.4)))
            );;;;载厅
            ;;;;;;;;;aitrpgjaflgan,c
            (command "ELLIPSE" "c" pt1 pt2 ra)
          )
          (command "circle" pt1 ra)
        )
        (command "text" "j" "mc" pt1 ha 0 str)
        (setvar "osmode" os)
        (if (/= pt1 nil)
          (setq noa (+ noa 1))
        )
        (setq pt1 nil)
      );;end progn
      (progn
        (setvar "CMDECHO" ac)
        (setq pt1 nil
              pt2 nil
              str nil
              k          nil
              ac  nil
              os  nil
        )
      );;end progn
    );;end if
    (princ "*** OK ***")
    (princ
      "\n--*-版权为HanRu所有!-*--  --*-请多多拷贝!-*-- \n*--QQ393662480--* "
    )
    (princ)
  )
)
(princ
  "\n--*-版权为HanRu所有!-*--  --*-请多多拷贝!-*-- \n*--QQ393662480--* "
)
(princ)
;;;dsaepogpt

这是我女友要的尺寸编号用的．加载后就能用．

pbiahe

谢谢！但我希望是将已有的数字多重复制并自动加1，这样要更快，更好用，可以随时拿来就用，避免为了几个数字设置好一会。

tcq2000_007

(DEFUN C:Hh (/ SC BH1 PT1 BH2 X1 Y1 X2 PT2 XX MM OMODE ANG1 CHAR FLAG)
    (setvar "mirrtext" 0)
    (setvar "CMDECHO" 0)
    (setvar "ATTREQ" 1)
    (setvar "ATTDIA" 0)
    (SETQ OMODE (GETVAR "OSMODE"))
    (SETVAR "OSMODE" 0)
    (SETQ SC (GETVAR "DIMSCALE"))
    (SETQ FLAG 1)
    (setq bh1 (getreal "\n你想重新設置起始編號嗎?<輸入起始編號>:"))
    (IF        (/= BH1 NIL)
        (SETQ ZHIDON_HAO BH1)
    ) ;_ 結束IF
    (IF        (= ZHIDON_HAO NIL)
        (SETQ ZHIDON_HAO 1)
    ) ;_ 結束IF
    (PRINC
        "\n 你想使用水平方向標注嗎?\(Y/n<Y>):"
    ) ;_ 結束PRINC
    (setq char (getstring))
    (if        (or (= "n" char) (= "N" char))
        (setq flag (- 1 FLAG))
    ) ;_ 結束if
    (SETQ MM ZHIDON_HAO)
    (SETQ XX 1)
    (while (/= XX nil)
        (SETQ PT1 (GETPOINT "\n請輸入一點:"))
        (setq bh2 (FIX MM))
        (SETQ X1 (CAR PT1))
        (IF (= FLAG 1)
            (SETQ ANG1 0)
            (SETQ ANG1 90)
        ) ;_ 結束IF
        (IF (/= X1 NIL)
            (PROGN
                (COMMAND "_.INSERT" "hys0920.DWG" pt1 SC "" ANG1 bh2)
                (COMMAND "_.CHANGE" "L" "" "P" "LA" "MARK" "")
                (SETQ MM (+ MM 1))
            ) ;_ 結束PROGN
            (PROGN
                (PRINC
                    "\n 你想轉換方向嗎?\(Y/n<y>):"
                ) ;_ 結束PRINC
                (setq char (getstring))
                  (if (OR (= "n" char) (= "N" char))
                   (SETQ XX NIL)
                   (setq flag (- 1 FLAG))                    
                ) ;_ 結束if
            ) ;_ 結束PROGN
        ) ;_ 結束IF
        (SETQ ZHIDON_HAO MM)
    ) ;_ 結束while
    (SETVAR "OSMODE" OMODE)
    (setvar "ATTDIA" 1)
    (setvar "CMDECHO" 1)
    (PRINT)
) ;_ 結束DEFUN



这个命令是我以前的同事编的，加载后，只需另外建一个文件名为hys0920.DWG的cad图形，也就是你需要的序号形状！比如：① ②③④.另需设定文件搜索路径就可以了！

hky278

谢谢 楼上的，我也遇到同样问题