讨教--循环判断问题

冒个烟圈

下面这段代码直接加while语句循环之后，就无法判断点a是否为空。
请教如何能做到循环判断，到“选择实体”这里如果为空就退出

(defun c:BT()
(setvar "cmdecho" 0)
(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 (getpoint "\n-->请指定标注的第一点:\n>>>或回车<选择实体>:"))
    (if (/= a nil)
      (progn
        (setq b (getpoint "\n-->请指定标注的第二点:"))
        (command "dimlinear" a b pause)
        (setq en (entlast))
        (command "_.chprop" en "" "LA" "DIM" "")
       )
      (progn
        (setq s1 (entsel "\n选择实体<退出>: "))
        (command "dimlinear" "" s1 pause)
        (setq en (entlast))
        (command "_.chprop" en "" "LA" "DIM" "")
       )
     )
;;;====================================================================（循环结束）
  (setvar "osmode" os)
  (setvar "cmdecho" 1)
  (princ)
);defun




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

bori

把 ：(setq s1 (entsel "\n选择实体<退出>: "))

改成：
(while (null s1)
                      (setq s1 (entsel "\n选择实体<退出>: "))
              )

冒个烟圈

bori 发表于 2015-11-20 14:54
把 ：(setq s1 (entsel "\n选择实体: "))

改成：

试过了，还是不行啊。。

ll_j

冒个烟圈 发表于 2015-11-20 16:12
试过了，还是不行啊。。

是不是这个意思：

1.   (while (null a)
   
2. (setq a (getpoint "\n-->请指定标注的第一点:\n>>>或回车<选择实体>:"))
   
3.     (if (/= a nil)
   
4.       (progn
   
5.         (setq b (getpoint "\n-->请指定标注的第二点:"))
   
6.         (command "dimlinear" a b pause)
   
7.         (setq en (entlast))
   
8.         (command "_.chprop" en "" "LA" "DIM" "")
   
9.         (setq a nil)         ;;a清空
   
10.        )
    
11.       (progn
    

  (while (null a)<br /> (setq a (getpoint "\n-->请指定标注的第一点:\n>>>或回车<选择实体>:"))<br />     (if (/= a nil)<br />       (progn<br />         (setq b (getpoint "\n-->请指定标注的第二点:"))<br />         (command "dimlinear" a b pause)<br />         (setq en (entlast))<br />         (command "_.chprop" en "" "LA" "DIM" "")<br />         (setq a nil)         ;;a清空<br />        )<br />       (progn<br />

llsheng_73

1. (defun c:BT(/ a b os)
   
2.   (setvar "cmdecho" 0)
   
3.   (setq os (getvar "osmode"))
   
4.   (if(not(tblsearch "layer" "dim"))(command "layer" "new" "dim" "C" 3 "dim" "L" "Continuous" "dim" "LW" 0.15 "dim" ""))
   
5.   (setvar "osmode" 183)
   
6.   (while(if(setq a(getpoint "\n-->请指定标注的第一点:\n>>>或回车<选择实体>:"))
   
7.           (if(setq b(getpoint "\n-->请指定标注的第二点:"))
   
8.             (setq a(command "dimlinear" a b pause)a t))
   
9.           (if(setq a(entsel "\n选择实体<退出>: "))
   
10.             (setq a(command "dimlinear" "" a pause)a t)))
    
11.     (command "_.chprop" (entlast) "" "LA" "DIM" ""))
    
12.   (setvar "osmode"os)
    
13.   (setvar "cmdecho" 1)
    
14.   (princ))

(defun c:BT(/ a b os)<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />   (if(not(tblsearch "layer" "dim"))(command "layer" "new" "dim" "C" 3 "dim" "L" "Continuous" "dim" "LW" 0.15 "dim" ""))<br />   (setvar "osmode" 183)<br />   (while(if(setq a(getpoint "\n-->请指定标注的第一点:\n>>>或回车<选择实体>:"))<br />           (if(setq b(getpoint "\n-->请指定标注的第二点:"))<br />             (setq a(command "dimlinear" a b pause)a t))<br />           (if(setq a(entsel "\n选择实体<退出>: "))<br />             (setq a(command "dimlinear" "" a pause)a t)))<br />     (command "_.chprop" (entlast) "" "LA" "DIM" ""))<br />   (setvar "osmode"os)<br />   (setvar "cmdecho" 1)<br />   (princ))

冒个烟圈

llsheng_73 发表于 2015-11-20 18:42

多谢长老出手，终于可以了，
但是这句：(if(setq a(entsel "\n选择实体<退出>: "))运行的时候不能选多义线（如：矩形）
我知道是程序本身的问题，请问有什么好办法能能像CAD自带的“DIMLINEAR”命令一样，能选到多义线吗？

llsheng_73

冒个烟圈 发表于 2015-11-20 19:26
多谢长老出手，终于可以了，
但是这句：(if(setq a(entsel "\n选择实体: "))运行的时候不能选多义线（如 ...

对这个命令不清楚，没用过，选择是可以选择到，运行到它的时候会怎么样我不清楚了

冒个烟圈

llsheng_73 发表于 2015-11-20 19:47
对这个命令不清楚，没用过，选择是可以选择到，运行到它的时候会怎么样我不清楚了

运行到这儿的时候提示如下
：选择实体<退出>:
所选对象不是直线、圆弧或圆。
然后直接跳到“选择标注对象:
未选择对象。”

冒个烟圈

llsheng_73 发表于 2015-11-20 19:47
对这个命令不清楚，没用过，选择是可以选择到，运行到它的时候会怎么样我不清楚了

再请教下：在保持程序功能不改变的情况下，这一句：(if(setq a(entsel "\n选择实体: "))能否取消。
如果能取消，该如何衔接上下语句？

llsheng_73

冒个烟圈 发表于 2015-11-20 20:03
再请教下：在保持程序功能不改变的情况下，这一句：(if(setq a(entsel "\n选择实体: "))能否取消。
如果 ...

不能去掉。。。我运行了一下，选择多段线的时候它会说不是直线，圆，弧