怎么样切换回原来的图层？

xiayuxue213

• (defun c:x()
•   (setq temp (getvar "CLAYER" ))
•   (setvar "clayer"  "3中心线层" )
•   (command "line"  )
•   (setvar "clayer" temp)
• )
  

我的本意是画线之前先切换到中心线层，画完先再切换回原来的图层。
我这样写达不到效果，好像 line还没执行 (setvar "clayer" temp)已经执行了。

yufeng37

(command "line"  )改为(command "line"  pause)

xiayuxue213

yufeng37 发表于 2017-5-24 13:41

这样我试过，有两个问题，一个是如果我连续输入机段直线后面的就不行了，只有第一条行。
我还试过多加几个pause，这样当我右键重复上一个命令的时候。系统会提示无效点。
总之加pause可以实现效果，但是不完美。

marting

xiayuxue213 发表于 2017-5-24 14:12

尽量别用你这种方式写代码，要自己完全的控制自己的代码流程

你这个功能可以这样

1. (defun c:x (/ p1 pts)
   
2.   (if (setq p1 (getpoint "\n第一点："))
   
3.     (progn
   
4.       (setq pts (cons p1 pts))
   
5.       (while (setq p1 (getpoint p1 "\n下一点<退出>:"))
   
6.         (entmake (list '(0 . "LINE") (cons 10 (car pts)) (cons 11 p1) '
   
7.                        (8 . "中心线")
   
8.                  )
   
9.         )
   
10.         (setq pts (cons p1 pts))
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    

(defun c:x (/ p1 pts)<br />   (if (setq p1 (getpoint "\n第一点："))<br />     (progn<br />       (setq pts (cons p1 pts))<br />       (while (setq p1 (getpoint p1 "\n下一点<退出>:"))<br />         (entmake (list '(0 . "LINE") (cons 10 (car pts)) (cons 11 p1) '<br />                        (8 . "中心线")<br />                  )<br />         )<br />         (setq pts (cons p1 pts))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

xiayuxue213

marting 发表于 2017-5-24 14:14

线画不出来。输入两点后线没有被创建。

marting

xiayuxue213 发表于 2017-5-24 14:49

你确定用了上面的代码测试了？ 画不出来就是你的CAD有问题了。

xiayuxue213

原来不是没画出来是跑了

marting

xiayuxue213 发表于 2017-5-24 15:10

你是在UCS下？

修改下就行了

1. (defun c:x (/ p1 pts tf)
   
2.   (while (setq p1 (apply 'getpoint (if        (not tf)
   
3.                               (list "\n第一点<退出>：")
   
4.                               (list (car pts) "\n下一点<退出>:")
   
5.                             )
   
6.                   )
   
7.          )
   
8.     (setq tf t pts (cons p1 pts))
   
9.     (if        (cdr pts)
   
10.       (entmake (list '(0 . "LINE")
    
11.                      (cons 10 (trans (cadr pts) 1 0))
    
12.                      (cons 11 (trans (car pts) 1 0))
    
13.                      '(8 . "中心线")
    
14.                )
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    
20. 
    

(defun c:x (/ p1 pts tf)<br />   (while (setq p1 (apply 'getpoint (if        (not tf)<br />                               (list "\n第一点<退出>：")<br />                               (list (car pts) "\n下一点<退出>:")<br />                             )<br />                   )<br />          )<br />     (setq tf t pts (cons p1 pts))<br />     (if        (cdr pts)<br />       (entmake (list '(0 . "LINE")<br />                      (cons 10 (trans (cadr pts) 1 0))<br />                      (cons 11 (trans (car pts) 1 0))<br />                      '(8 . "中心线")<br />                )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

或者：

1. (defun c:x ()
   
2.   (if (setq p1 (getpoint "\n第一点<退出>："))
   
3.     (progn (setq pts (cons p1 pts))
   
4.            (while (setq p1 (getpoint p1 "\n下一点<退出>:"))
   
5.              (entmake (list '(0 . "LINE")
   
6.                             (cons 10 (trans (car pts) 1 0))
   
7.                             (cons 11 (trans p1 1 0))
   
8.                             '(8 . "中心线")
   
9.                       )
   
10.              )
    
11.              (setq pts (cons p1 pts))
    
12.            )
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    
17. 
    

(defun c:x ()<br />   (if (setq p1 (getpoint "\n第一点<退出>："))<br />     (progn (setq pts (cons p1 pts))<br />            (while (setq p1 (getpoint p1 "\n下一点<退出>:"))<br />              (entmake (list '(0 . "LINE")<br />                             (cons 10 (trans (car pts) 1 0))<br />                             (cons 11 (trans p1 1 0))<br />                             '(8 . "中心线")<br />                       )<br />              )<br />              (setq pts (cons p1 pts))<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

都行。

xiayuxue213

marting 发表于 2017-5-24 15:36

完美了。谢谢。