求高手指导 困恼很久 很多其他的插件都想这么做 就是不知道怎么写

fjutcivil

............................

piao1887

加个循环就行了

fjutcivil

piao1887 发表于 2013-7-17 11:36
加个循环就行了

关键是我不懂啊 帮帮我吧

Andyhon

SZ进行设置a b 的值
请参考站内 uReal or uDist

加个循环...
(if ...
改 ===>
(While ...

ll_j

1. (defun c:p0 (/ c)    ;虽然纯数字可以作为命令名，但不建议使用
   
2.   (if (not p0_a)     ;预设a、b，对于全局变量，建议使用稍复杂的变量名，子函数也同
   
3.     (setq p0_a 3000)
   
4.   )
   
5.   (if (not p0_b)
   
6.     (setq p0_b 0.0027)
   
7.   )
   
8.   (initget 6 "S")   ;非零非负
   
9.   (setq n (getint "\n输入参数n 或 [参数ab设置(S)]: "))
   
10.   (cond
    
11.     ((= n "S")      ;关键字
    
12.      (p0::s)        ;调用参数设置子函数
    
13.      (c:p0)         ;设置完毕回主程序
    
14.     )
    
15.     ((= n nil) nil) ;回车、右键、空格退出
    
16.     (t              ;其它情况——正常输入
    
17.      (if (>= n 100)
    
18.        (progn (p0::out) (c:p0))   ;执行完毕回主程序，形成循环
    
19.        (progn (princ "\n参数n必须不小于100。") (c:p0))
    
20.      )
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    
25. 
    
26. (defun p0::out (/ pt d c)        ;输出子函数
    
27.   (initget 5)     ;非空非负
    
28.   (setq pt (getpoint "\n文字点: "))
    
29.   (setq d (/ (- n (* (/ n 10) 10)) 10.0)
    
30.         c (rtos (* (- p0_a (* (/ n 10) 10))
    
31.                    p0_b
    
32.                    (if (equal d 0.0 0.001)
    
33.                      1
    
34.                      d
    
35.                    )
    
36.                 )
    
37.                 2
    
38.                 2
    
39.           )
    
40.   )
    
41.   (entmake
    
42.     (list
    
43.       '(0 . "TEXT")
    
44.       (cons 10 pt)
    
45.       '(40 . 300)
    
46.       (cons 1 c)
    
47.       '(50 . 0)
    
48.       '(41 . 0.7)
    
49.       '(72 . 0)
    
50.       '(73 . 0)
    
51.     )
    
52.   )
    
53. )
    
54. 
    
55. (defun p0::s (/ p0_a0 p0_b0)   ;设置子函数
    
56.   (if (not p0_a)
    
57.     (setq p0_a 3000)
    
58.   )
    
59.   (if (not p0_b)
    
60.     (setq p0_b 0.0027)
    
61.   )
    
62.   (initget 4)         ;非零非负
    
63.   (setq p0_a0 (getint (strcat "\n输入参数a <" (itoa p0_a) "> : ")))
    
64.   (if p0_a0
    
65.     (setq p0_a p0_a0)
    
66.   )
    
67.   (setq p0_b0 (getreal (strcat "\n输入参数b <" (rtos p0_b) "> : ")))
    
68.   (if p0_b0
    
69.     (setq p0_b p0_b0)
    
70.   )
    
71. )
    
72. 
    

(defun c:p0 (/ c)    ;虽然纯数字可以作为命令名，但不建议使用<br />   (if (not p0_a)     ;预设a、b，对于全局变量，建议使用稍复杂的变量名，子函数也同<br />     (setq p0_a 3000)<br />   )<br />   (if (not p0_b)<br />     (setq p0_b 0.0027)<br />   )<br />   (initget 6 "S")   ;非零非负<br />   (setq n (getint "\n输入参数n 或 [参数ab设置(S)]: "))<br />   (cond<br />     ((= n "S")      ;关键字<br />      (p0::s)        ;调用参数设置子函数<br />      (c:p0)         ;设置完毕回主程序<br />     )<br />     ((= n nil) nil) ;回车、右键、空格退出<br />     (t              ;其它情况——正常输入<br />      (if (>= n 100)<br />        (progn (p0::out) (c:p0))   ;执行完毕回主程序，形成循环<br />        (progn (princ "\n参数n必须不小于100。") (c:p0))<br />      )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (defun p0::out (/ pt d c)        ;输出子函数<br />   (initget 5)     ;非空非负<br />   (setq pt (getpoint "\n文字点: "))<br />   (setq d (/ (- n (* (/ n 10) 10)) 10.0)<br />         c (rtos (* (- p0_a (* (/ n 10) 10))<br />                    p0_b<br />                    (if (equal d 0.0 0.001)<br />                      1<br />                      d<br />                    )<br />                 )<br />                 2<br />                 2<br />           )<br />   )<br />   (entmake<br />     (list<br />       '(0 . "TEXT")<br />       (cons 10 pt)<br />       '(40 . 300)<br />       (cons 1 c)<br />       '(50 . 0)<br />       '(41 . 0.7)<br />       '(72 . 0)<br />       '(73 . 0)<br />     )<br />   )<br /> )<br /> <br /> (defun p0::s (/ p0_a0 p0_b0)   ;设置子函数<br />   (if (not p0_a)<br />     (setq p0_a 3000)<br />   )<br />   (if (not p0_b)<br />     (setq p0_b 0.0027)<br />   )<br />   (initget 4)         ;非零非负<br />   (setq p0_a0 (getint (strcat "\n输入参数a <" (itoa p0_a) "> : ")))<br />   (if p0_a0<br />     (setq p0_a p0_a0)<br />   )<br />   (setq p0_b0 (getreal (strcat "\n输入参数b <" (rtos p0_b) "> : ")))<br />   (if p0_b0<br />     (setq p0_b p0_b0)<br />   )<br /> )<br /> <br />

fjutcivil

ll_j 发表于 2013-7-17 13:51

哈 谢啦 大神 每次都麻烦你

fl202

你应该学习下dcl，参数多了，用dcl输入会比较方便。