请帮帮忙，谢谢

晓雨

结构是不是这样的：



(setq sele(getkword"...........")


                                         (cond


                                                                         ((=         sele "A")


                                                                                         (....................)


                                                                                )


                                                                 (setq sele(getkword".....................")


                 )


是这样的吗？我的意思是：在一段程序完成时，系统判断是否还要重复执行上面的程序，如用户选择是，它返回重复执行，选择否，系统退出。


结构是这样的吗

meflying

用while


(while (setq pt (getpoint "..."))


         ...


);pt就是你需要的输入点,

晓雨

明白了，你的办法真好，谢谢版主

晓雨

(defun c:bia(/ n pt txt txt0 pt1 pt2 pt3 pttxt d)
(setq txt0 1)
(while (setq n(getint "\n 输入标示零件个数："))
(setq txt(getstring "\n 输入起始零件序号<"(itoa txt0)">: " )
d(getstring "\n 在左还是在右<在左>: ")
pt(getpoint "\n 输入标记线连接点: " )
)
(if(not txt)
(setq txt txt0)
)
(if(= "r" d)
(setq pt(list (- (car pt) (+ (* 6 n) (* 2 (- n 1)))) (cadr pt)))
)
(setq pt1(list (+ (car pt) 6) (cadr pt))
pttxt(list (+ (car pt) 3) (+ (cadr pt) 2.4))
) (setq cl(getvar "clayer"))
(setq os(getvar "osmode"))
(setvar "clayer" "w文字标注")
(setvar "osmode" 0) (command"line" pt pt1 "")
(command"text" "mc" pttxt 3.5 0 txt)
(repeat (- n 1)
(setq pt2(polar pt1 (/ (* pi 7) 4) 1.41421))
(command"line" pt1 pt2 "")
(setq pt3(list (+ (car pt1) 2) (cadr pt1)))
(setq pt4(list (+ (car pt3) 6) (cadr pt3)))
(command"line" pt2 pt3 pt4 "")
(setq pttxt(list (+ (car pt3) 3) (+ (cadr pt) 2.4)))
(setq txt (rtos (+ (atoi txt) 1) 2 0))
(print txt)
(command "text" "MC" pttxt 3.5 0 txt)
(setq pt1 pt4)
) (setq txt0 txt) )
(setvar "clayer" cl)
(setvar "osmode" os)
)
好像有点不对，那个<"(itoa txt)">好像错了

meflying

(setq txt(getstring (strcat "\n 输入起始零件序号&lt;"(itoa txt0)"&gt;: "))