[求助]：请教如何顺序编号

bay

请教晓东工具中1、2、3、4、5。。。。等带圈字符进行顺序编号画法？小生不才，就教专家。

xyp1964

一种方式：

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (WHILE (setq pt0 (getpoint "\n放置点<退出>: "))
   
5.     (setq pt1 (polar pt0 (* pi 1.5) 1.8)
   
6.           txt (uint 7 "" "\n整数" txt)
   
7.     )
   
8.     (command "donut" 7.5 8 pt0 "")
   
9.     (command "text"
   
10.              "j"
    
11.              "f"
    
12.              (polar pt1 0 -3)
    
13.              (polar pt1 0 3)
    
14.              4
    
15.              txt
    
16.     )
    
17.     (setq txt (1+ txt))
    
18.   )
    
19.   (princ)
    
20. )
    
21. (defun uint (bit kwd msg def / inp)
    
22.   (if def
    
23.     (setq msg (strcat "\n" msg "<" (itoa def) ">: ")
    
24.           bit (* 2 (fix (/ bit 2)))
    
25.     )
    
26.     (setq msg (strcat "\n" msg ": "))
    
27.   )
    
28.   (initget bit kwd)
    
29.   (setq inp (getint msg))
    
30.   (if inp
    
31.     inp
    
32.     def
    
33.   )
    
34. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (WHILE (setq pt0 (getpoint "\n放置点<退出>: "))<br />     (setq pt1 (polar pt0 (* pi 1.5) 1.8)<br />           txt (uint 7 "" "\n整数" txt)<br />     )<br />     (command "donut" 7.5 8 pt0 "")<br />     (command "text"<br />              "j"<br />              "f"<br />              (polar pt1 0 -3)<br />              (polar pt1 0 3)<br />              4<br />              txt<br />     )<br />     (setq txt (1+ txt))<br />   )<br />   (princ)<br /> )<br /> (defun uint (bit kwd msg def / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (itoa def) ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getint msg))<br />   (if inp<br />     inp<br />     def<br />   )<br /> )[/FONT]

wjdship

CAD中自带的EXPRESS TOOL 中有一个自动编号功能，用了很方便。

bay

二楼的版主，我看不懂你写的程序，能说明下如何操作吗？谢谢。

xyp1964

加载yqsz(圆圈数字)后运行yqsz

xy829475

写清楚一点，这样很难懂！

bay

初用晓东工具，不知道轴线设置及轴线编号如何画，请指教。
http://www.xdcad.net/forum/showthread.php?threadid=507607