求助高手-----改为记忆数字递增-----（祥图编号）-----标题要长 要长

zhuquanmao

看看楼下的代码 我这里成了

zhuquanmao

2. 
   
3. (defun c:TT ( / ang bhx osm pt1 pt2 pt3 qzx r rx tt)
   
4.   (setq osm (getvar "osmode"))
   
5.   (setvar "cmdecho" 0)
   
6.   (if (null rr)
   
7.     (setq rr (getvar "circlerad"))
   
8. )
   
9.   (initget (+ 2 4))
   
10.   (setq rx (getreal (strcat "\n请输入标号圆半径 < " (rtos rr) ">:")))
    
11.   (if (null rx)
    
12.     (setq r rr)
    
13.     (setq r rx)
    
14.   )
    
15.   (if (= bh nil)
    
16.     (progn
    
17.       (initget (+ 2 4))
    
18.       (setq bh (getint "\n输入起始号<1>:"))
    
19.       (if (= nil bh)
    
20.   (setq bh 1)
    
21.       )
    
22.     )
    
23.     (progn
    
24.       (setq bhx (getint (strcat "\n输入起始号<" (itoa bh) ">:")))
    
25.       (if (= bhx nil)
    
26.   (setq bh bh)
    
27.   (setq bh bhx)
    
28.       )
    
29.     )
    
30.   )
    
31.   (if (null qz)
    
32.     (setq qz (getstring "\n前缀<无>:"))
    
33.     (progn
    
34.       (setq qzx (getstring (strcat "\n前缀<" qz ">:")))
    
35.       (if (= qzx "")
    
36.   (setq qz qz)
    
37.   (setq qz qzx)
    
38.       )
    
39.     )
    
40.   )
    
41.   (setq tt 0)
    
42.   (while (= tt 0)
    
43.     (setq pt1 (getpoint "\n请输入第一点: "))
    
44.     (if pt1
    
45.       (progn
    
46.   (setq pt2 (getpoint pt1 "\n请输入第二点: "))
    
47.   (if pt2
    
48.     (progn
    
49.       (setvar "osmode" 0)
    
50.       (command "_.line" pt1 pt2 "")
    
51.       (setq ang (angle pt1 pt2))
    
52.       (setq pt3 (polar pt2 ang r))
    
53.       (command "circle" pt3 r)
    
54.       (command "text" "mc" pt3 r 0 (strcat qz (itoa bh)))
    
55.       (setq bh (1+ bh))
    
56.       (setvar "osmode" OSM)
    
57.       (setq tt 0)
    
58.     )
    
59.     (setq tt 1)
    
60.   )
    
61.   (setq tt 0)
    
62.       )
    
63.       (setq tt 1)
    
64.     )
    
65.   )
    
66.   (setq rr r)
    
67.   (setvar "cmdecho" osm)
    
68.   (prin1)
    
69. )
    

<br /> (defun c:TT ( / ang bhx osm pt1 pt2 pt3 qzx r rx tt)<br />   (setq osm (getvar "osmode"))<br />   (setvar "cmdecho" 0)<br />   (if (null rr)<br />     (setq rr (getvar "circlerad"))<br /> )<br />   (initget (+ 2 4))<br />   (setq rx (getreal (strcat "\n请输入标号圆半径 < " (rtos rr) ">:"))) <br />   (if (null rx)<br />     (setq r rr)<br />     (setq r rx)<br />   )<br />   (if (= bh nil)<br />     (progn<br />       (initget (+ 2 4))<br />       (setq bh (getint "\n输入起始号<1>:"))<br />       (if (= nil bh)<br />   (setq bh 1)<br />       )<br />     )<br />     (progn<br />       (setq bhx (getint (strcat "\n输入起始号<" (itoa bh) ">:")))<br />       (if (= bhx nil)<br />   (setq bh bh)<br />   (setq bh bhx)<br />       )<br />     )<br />   )<br />   (if (null qz)<br />     (setq qz (getstring "\n前缀<无>:"))<br />     (progn<br />       (setq qzx (getstring (strcat "\n前缀<" qz ">:")))<br />       (if (= qzx "")<br />   (setq qz qz)<br />   (setq qz qzx)<br />       )<br />     )<br />   )<br />   (setq tt 0)<br />   (while (= tt 0)<br />     (setq pt1 (getpoint "\n请输入第一点: "))<br />     (if pt1<br />       (progn<br />   (setq pt2 (getpoint pt1 "\n请输入第二点: "))<br />   (if pt2<br />     (progn<br />       (setvar "osmode" 0)<br />       (command "_.line" pt1 pt2 "")<br />       (setq ang (angle pt1 pt2))<br />       (setq pt3 (polar pt2 ang r))<br />       (command "circle" pt3 r)<br />       (command "text" "mc" pt3 r 0 (strcat qz (itoa bh)))<br />       (setq bh (1+ bh))<br />       (setvar "osmode" OSM)<br />       (setq tt 0)<br />     )<br />     (setq tt 1)<br />   )<br />   (setq tt 0)<br />       )<br />       (setq tt 1)<br />     )<br />   )<br />   (setq rr r)<br />   (setvar "cmdecho" osm)<br />   (prin1)<br /> )<br />

xingyun300

zhuquanmao 发表于 2012-4-9 00:28

嘿嘿，这个程序行！

zhuquanmao

xingyun300 发表于 2012-4-9 11:37
嘿嘿，这个程序行！

getstring   回车 会得到“”  而不是nil

xinmh

我怎么不行啊。。。。

xinmh

前缀加上了，改不回来了，怎么改成无？

不语勿语

              留个脚印

依然小小鸟

不错的帖子 支持一下