请教一个多段线问题

HORSE_XU · 发表于 2013-8-16 15:39:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

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

hardthinking · 发表于 2013-8-16 20:57:23

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 · 发表于 2013-8-16 21:17:40

hardthinking 发表于 18 分钟前

 登录/注册后可看大图

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

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

kmliro_2017 · 发表于 2024-5-28 07:40:06

不错，感谢分享！！！！！

kmliro_2017 · 发表于 2024-6-9 08:32:27

不错，谢谢分享！！！！！

kmliro_2017 · 发表于 2024-7-10 12:16:50

不错，谢谢分享！！！！！

kmliro_2017 · 发表于 2024-8-2 07:43:41

不错，谢谢分享！！！！

kmliro_2017 · 发表于 2024-9-25 08:45:45

不错，谢谢分享！！！！！

账号		自动登录	找回密码
密码			立即注册

[求助] 请教一个多段线问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

评分

评分

浏览过的版块