repeat错在了哪里？（已解决 nn必须为整数）

bzhyong

如下，while可以实现这个功能，但是repeat命令就显示数据类型错误？
这是为什么呢？虽然我现在已经用while实现了同样的功能，仍然想求高手指导为何repeat不行
代码功能是选择两个圆弧。把两个圆弧都均分n分，然后用n个直线相连。

2. 
   
3. (defun c:chul1()
   
4.     (setvar "osmode" 0)
   
5.     (setvar "cmdecho" 0)
   
6. 
   
7.   (setvar "blipmode" 0)
   
8.   (setq en1 (entsel "选择第一个圆弧："))
   
9.   (setq en2 (entsel "选择第二个圆弧："))
   
10.   (setq en1_data (entget (car en1)));获得第一个圆弧串行
    
11.   (setq en2_data (entget (car en2)));获得第二个圆弧串行
    
12.   (setq rr (getint "\n输入等分数量<150>"))
    
13.   (if (null rr) (setq rr 150.0))
    
14.   (setq rr1 (cdr (assoc 40 en1_data)));获得第一个圆弧半径
    
15.   (setq rr2 (cdr (assoc 40 en2_data)));获得第二个圆弧半径
    
16.   (setq ang1 (cdr (assoc 50 en1_data)));获得第一个圆弧起始角度
    
17.   (setq ang2 (cdr (assoc 50 en2_data)));获得第二个圆弧起始角度
    
18.   (setq ang3 (cdr (assoc 51 en1_data)));获得第一个圆弧终止角度
    
19.   (setq ang4 (cdr (assoc 51 en2_data)));获得第二个圆弧终止角度
    
20.   (setq ang5 (/ (- ang3 ang1) rr))
    
21.   (setq ang6 (/ (- ang4 ang2) rr))
    
22.   (setq l1 (* 2 (* rr1 (sin (/ 2 (* 180 (/ ang5 pi)))))))
    
23.   (setq l2 (* 2 (* rr2 (sin (/ 2 (* 180 (/ ang6 pi)))))))
    
24.   (setq pto1 (cdr (assoc 10 en1_data)));获得第一个圆弧圆心坐标
    
25.   (setq pto2 (cdr (assoc 10 en2_data)));获得第二个圆弧圆心坐标
    
26.   (setq en1_1 (polar pto1 ang1 rr1));获得第一个圆弧起点坐标
    
27.   (setq en2_1 (polar pto2 ang2 rr2));获得第二个圆弧起点坐标
    
28.   (command "line" en1_1 en2_1 "")
    
29. 
    
30.   ;;;(setq en1_2 (polar pto1 (+ ang1 ang5) rr1));测试
    
31.   ;;;(setq en2_2 (polar pto2 (+ ang2 ang6) rr2))
    
32.   ;;;(command "line" en1_2 en2_2 "")
    
33.   (setq ang1_x ang1)
    
34.   (setq ang2_x ang2)
    
35.   (setq en1_x en1_1)
    
36.   (setq en2_x en2_1)
    
37.   (setq snum -1)
    
38.     (while (< snum rr)
    
39.     (setq en1_x (polar pto1 ang1_x rr1))
    
40.     (setq en2_x (polar pto2 ang2_x rr2))
    
41.     (command "line" en1_x en2_x "")
    
42.     (setq ang1_x (+ ang1_x ang5))
    
43.     (setq ang2_x (+ ang2_x ang6))
    
44.     (setq snum (1+ snum)
    
45.     )
    
46.     )
    
47. 
    
48.    
    
49.     ;(repeat rr
    
50.    ; (setq en1_x (polar pto1 ang1_x rr1))
    
51.     ;(setq en2_x (polar pto2 ang2_x rr2))
    
52.     ;(command "line" en1_x en2_x "")
    
53.     ;(setq ang1_x (+ ang1_x ang5))
    
54.     ;(setq ang2_x (+ ang2_x ang6))
    
55. 
    
56. 
    
57.    ; )
    
58. 
    
59. 
    
60. 
    
61. 
    
62.   
    
63.   (princ)  
    
64.   )
    
65. (prompt "\n <<chul1>>")
    
66. (prin1)
    
67. 
    

<br /> (defun c:chul1()<br />     (setvar "osmode" 0)<br />     (setvar "cmdecho" 0)<br /> <br />   (setvar "blipmode" 0)<br />   (setq en1 (entsel "选择第一个圆弧："))<br />   (setq en2 (entsel "选择第二个圆弧："))<br />   (setq en1_data (entget (car en1)));获得第一个圆弧串行<br />   (setq en2_data (entget (car en2)));获得第二个圆弧串行<br />   (setq rr (getint "\n输入等分数量<150>"))<br />   (if (null rr) (setq rr 150.0))<br />   (setq rr1 (cdr (assoc 40 en1_data)));获得第一个圆弧半径<br />   (setq rr2 (cdr (assoc 40 en2_data)));获得第二个圆弧半径<br />   (setq ang1 (cdr (assoc 50 en1_data)));获得第一个圆弧起始角度<br />   (setq ang2 (cdr (assoc 50 en2_data)));获得第二个圆弧起始角度<br />   (setq ang3 (cdr (assoc 51 en1_data)));获得第一个圆弧终止角度<br />   (setq ang4 (cdr (assoc 51 en2_data)));获得第二个圆弧终止角度<br />   (setq ang5 (/ (- ang3 ang1) rr))<br />   (setq ang6 (/ (- ang4 ang2) rr))<br />   (setq l1 (* 2 (* rr1 (sin (/ 2 (* 180 (/ ang5 pi)))))))<br />   (setq l2 (* 2 (* rr2 (sin (/ 2 (* 180 (/ ang6 pi)))))))<br />   (setq pto1 (cdr (assoc 10 en1_data)));获得第一个圆弧圆心坐标<br />   (setq pto2 (cdr (assoc 10 en2_data)));获得第二个圆弧圆心坐标<br />   (setq en1_1 (polar pto1 ang1 rr1));获得第一个圆弧起点坐标<br />   (setq en2_1 (polar pto2 ang2 rr2));获得第二个圆弧起点坐标<br />   (command "line" en1_1 en2_1 "")<br /> <br />   ;;;(setq en1_2 (polar pto1 (+ ang1 ang5) rr1));测试<br />   ;;;(setq en2_2 (polar pto2 (+ ang2 ang6) rr2))<br />   ;;;(command "line" en1_2 en2_2 "")<br />   (setq ang1_x ang1)<br />   (setq ang2_x ang2)<br />   (setq en1_x en1_1)<br />   (setq en2_x en2_1)<br />   (setq snum -1)<br />     (while (< snum rr)<br />     (setq en1_x (polar pto1 ang1_x rr1))<br />     (setq en2_x (polar pto2 ang2_x rr2))<br />     (command "line" en1_x en2_x "")<br />     (setq ang1_x (+ ang1_x ang5))<br />     (setq ang2_x (+ ang2_x ang6))<br />     (setq snum (1+ snum)<br />     )<br />     )<br /> <br />     <br />     ;(repeat rr<br />    ; (setq en1_x (polar pto1 ang1_x rr1))<br />     ;(setq en2_x (polar pto2 ang2_x rr2))<br />     ;(command "line" en1_x en2_x "")<br />     ;(setq ang1_x (+ ang1_x ang5))<br />     ;(setq ang2_x (+ ang2_x ang6))<br /> <br /> <br />    ; )<br /> <br /> <br /> <br /> <br />   <br />   (princ)  <br />   )<br /> (prompt "\n <<chul1>>")<br /> (prin1)<br /> <br />

wen1235

repeat 变量要的是正整数

骑着蜗牛旅行666

你要的好像是这个功能吧？？？

evayleung

(setq rr 150)

bzhyong

骑着蜗牛旅行666 发表于 2017-12-8 18:45
你要的好像是这个功能吧？？？

就是这个功能

bzhyong

wen1235 发表于 2017-12-8 16:26
repeat 变量要的是正整数

多谢！测试了一下，的确是如此

bzhyong

evayleung 发表于 2017-12-9 00:42
(setq rr 150)

多谢高手！多了一个0就没办法运行了。的确是他的问题

bzhyong

骑着蜗牛旅行666 发表于 2017-12-8 18:45
你要的好像是这个功能吧？？？

你是用的什么工具呢