轴线号程序，不能连续运行

szx025

2. ;;;;-----------------轴线号----------------
   
3. (defun c:zxh1 (/ ap lp ku p1)
   
4.   ;;保存系统变量设置
   
5.   (setq    old_os    (getvar "osmode")
   
6.     old_cmd    (getvar "cmdecho")
   
7.   )
   
8.   (setq cl (getvar "clayer"))
   
9.   (setvar "cmdecho" 0)
   
10.   (setvar "osmode" 33)
    
11.   (if (not (tblsearch "layer" "轴线"))
    
12.     (command "-layer" "m" "轴线" "c" "4" "" "")
    
13.   )
    
14. (while (setq ap (getpoint "\n 第一点<退出>: "))
    
15. (setvar "orthomode" 1);_开  
    
16.     (setq lp (getpoint ap "\n 第二点: "))
    
17.     (setq ku (angle ap lp))
    
18.     (setq p1 (polar lp ku 400))
    
19.     ;;圆心
    
20.   (command "._line" ap lp "")
    
21.     (command "._insert" "G:\axis.dwg" p1 "" "" "")
    
22.   )
    
23.     ;;恢复系统变量设置
    
24.   (setvar "cmdecho" old_cmd)
    
25.   (setvar "osmode" old_os)
    
26.   (setvar "clayer" cl)
    
27.   (setq *error* olderr)
    
28.   (princ)
    
29. 
    
30. )
    

;;;;-----------------轴线号---------------- <br /> (defun c:zxh1 (/ ap lp ku p1) <br />   ;;保存系统变量设置 <br />   (setq    old_os    (getvar "osmode") <br />     old_cmd    (getvar "cmdecho") <br />   ) <br />   (setq cl (getvar "clayer")) <br />   (setvar "cmdecho" 0) <br />   (setvar "osmode" 33) <br />   (if (not (tblsearch "layer" "轴线")) <br />     (command "-layer" "m" "轴线" "c" "4" "" "") <br />   ) <br /> (while (setq ap (getpoint "\n 第一点<退出>: "))<br /> (setvar "orthomode" 1);_开  <br />     (setq lp (getpoint ap "\n 第二点: ")) <br />     (setq ku (angle ap lp)) <br />     (setq p1 (polar lp ku 400)) <br />     ;;圆心 <br />   (command "._line" ap lp "") <br />     (command "._insert" "G:\axis.dwg" p1 "" "" "")<br />   )<br />     ;;恢复系统变量设置 <br />   (setvar "cmdecho" old_cmd) <br />   (setvar "osmode" old_os) <br />   (setvar "clayer" cl) <br />   (setq *error* olderr) <br />   (princ) <br /> <br /> )<br />

这个程序取消 (while        ）这个就没有问题，有这个就出现问题见图。但我想要连续运行，应该怎么写

szx025

附图见这个

USER2128

(command "._line" ap lp "")
(command "._insert" "G:\axis.dwg" p1 "" "" "")
试试：===>
(command "._line" "_non"ap "_non" lp "")
(command "._insert" "G:\axis.dwg"  "_non" p1 "" "" "")

szx025

应该不捕捉的问题，是程序加了 (while        ）要求连续运行，当在要求输入属性块的值时，程序没有停下等键盘输入而是直接运行下去了，所以出现上面的问题，如果能让程序在要求输入属性块的值时停下，等输入值后再继续运行就应该没有问题了，就是要在(command "._insert" "G:\axis.dwg"  "_non" p1 "" "" "")后面让程序暂停

edata

你的空格多了一个就会出现这样的问题。