请教一个多段线问题

HORSE_XU

请教各位一个问题，我用PLINE画多段线，前提是一开始不确定要画多少段，然后我想在画完任意段之后，提示我执行画圆的程序，能否提供下代码让我看看！谢谢各位！

Free-Lancer

1. (setvar "cmdecho" 1)
   
2. (command ".pline")
   
3. (while (/= (getvar "CMDActive") 0)
   
4.   (command pause)
   
5. )
   
6. ;;(setvar "cmdecho" 1)
   
7. (command ".circle")
   
8. (while (/= (getvar "CMDActive") 0)
   
9.   (command pause)
   
10. )

(setvar "cmdecho" 1)<br /> (command ".pline")<br /> (while (/= (getvar "CMDActive") 0)<br />   (command pause)<br /> )<br /> ;;(setvar "cmdecho" 1)<br /> (command ".circle")<br /> (while (/= (getvar "CMDActive") 0)<br />   (command pause)<br /> )

hardthinking

Free-Lancer 发表于 2013-8-16 16:25

借贵贴学习到了While语句的用法，感谢~学习笔记如下：
(defun c:plc ()
   (command ".pline");;执行PL线命令
      (while (/= (getvar "CMDActive") 0)      ;;while循环语句，判断CMDActive是否不等于0，不等于0，则依次执行下列一系列命令，如此循环，直到CMDActive为0，退出循环。
             (command pause)    ;;循环执行命令1
             (princ "循环执行")     ;;循环执行命令2
             (princ)                     ;;循环执行命令3
      );;这是while语句的结束括号
;;退出循环后，顺序执行下列语句
    (command ".circle");;绘制圆
)

st788796

hardthinking 发表于 18&nbsp;分钟前

                               
登录/注册后可看大图

借贵贴学习到了While语句的用法，感谢~学习笔记如下：
(defun c:plc ()
   (command ".pline");;执行PL线命令
      (while (/= (ge

支持下，多写就会成习惯来自: Android客户端