dimlinear命令循环

冒个烟圈 · 发表于 2016-3-15 20:16:23

;;下面这段程序只能执行到第1步，因水平有限，后面的2和3不会做，恳请帮忙

;;希望实现的功能：循环开始 1 如果选第一(a)点，那么循环执行(command "dimlinear" a pause pause)
                                       2  如果第一点（a)为空，那么执行(command "dimlinear" "" pause pause)一次，完成后返回到1
                                       3  如果执行到第2步时，空选（即右键）程序退出
(defun c:NN(/)
  (setq os (getvar "osmode"))
  (if(not(tblsearch "layer" "dim"))
  (command "layer" "new" "dim" "C" 3 "dim" "L" "Continuous" "dim" "LW" 0.15 "dim" ""))
  (setvar "osmode" 183)
  (setq a 0)
  (while (/= a nil)
(progn
(setq a (getpoint "\n-->请指定标注的第一点:\n>>>或回车<选择实体>:"))
(if (/= a nil)
(command "dimlinear" a pause pause)
(command "dimlinear" "" pause pause));;;;选择标注的图元后，程序终止循环了，不能返回到“指定标注的第一点"
))
  (setvar "osmode"os)
  (princ))

该贴已经同步到冒个烟圈的微博

zkq1212 · 发表于 2016-3-16 08:38:06

本帖最后由 zkq1212 于 2016-3-16 08:41 编辑

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=111484
这里有

ZZXXQQ · 发表于 2016-3-16 08:53:05

;;希望实现的功能：
;循环开始
; 1 如果选第一(a)点，那么循环执行(command "dimlinear" a pause pause)
; 2 如果第一点（a)为空，那么执行(command "dimlinear" "" pause pause)一次，完成后返回到1
; 3 如果执行到第2步时，空选（即右键）程序退出
(defun c:NN(/)
(setq os (getvar "osmode"))
(command "layer" "M" "dim" "C" 3 "" "LW" 0.15 "" "")
(setvar "osmode" 183)
(setq pt1 T)
(while pt1
(while (setq pt1 (getpoint "\n第一点: "))
(command "DIMLINEAR" pt1 PAUSE PAUSE)
)
(if (setq pt1 (getpoint "\n第二点: ")) (command "DIMLINEAR" "" pt1 PAUSE))
)
(setvar "osmode"os)
(princ)
)

冒个烟圈 · 发表于 2016-3-16 19:24:45

zkq1212 发表于 2016-3-16 08:38
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=111484
这里有

谢谢提示。。。。。。。。。

冒个烟圈 · 发表于 2016-3-16 19:25:17

ZZXXQQ 发表于 2016-3-16 08:53

谢谢指点。。。我再琢磨琢磨

li18153832202 · 发表于 2019-9-21 21:11:17

(command "dimlinear" "" pause pause));;;;选择标注的图元后，程序终止循环了，不能返回到“指定标注的第一点"=====》想出办法了没有

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

[已解答] dimlinear命令循环

浏览过的版块