画完线后回归0层

疯球

这个文件可以直接在图层里画线型，画好后转为0层，但有个问题是画直线的时候习惯性的用ESC来结束，这样的话就不能转到0层了，请大神帮改一下，谢谢

ssyfeng

我也分享另一种方法：

2. (defun c:L1 (/ *error* p1 p2)
   
3.   (defun *error* ( msg )
   
4.     (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
   
5.       (progn (princ (strcat "\n错误：" msg)) (setvar "CLAYER" "0"))
   
6.     )
   
7.     (princ)
   
8.   )
   
9.   (If (= (Tblsearch "layer" "新建") nil)
   
10.     (command "-layer" "n" "新建" "s" "新建" "")
    
11.     (command "-layer" "s" "新建" "")
    
12.   )
    
13.   (command "CECOLOR" "2")  ;;;定义颜色
    
14.   (setq p1 (getpoint "\n 选择起点："))
    
15.   (while (setq p2 (getpoint p1 "\n 选择下一点："))(command "line" p1 p2 "")(setq p1 p2))
    
16.   (command "layer" "s" "0" "")
    
17. )

(defun c:L1 (/ *error* p1 p2)<br />   (defun *error* ( msg )<br />     (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))<br />       (progn (princ (strcat "\n错误：" msg)) (setvar "CLAYER" "0"))<br />     )<br />     (princ)<br />   )<br />   (If (= (Tblsearch "layer" "新建") nil)<br />     (command "-layer" "n" "新建" "s" "新建" "")<br />     (command "-layer" "s" "新建" "")<br />   )<br />   (command "CECOLOR" "2")  ;;;定义颜色<br />   (setq p1 (getpoint "\n 选择起点："))<br />   (while (setq p2 (getpoint p1 "\n 选择下一点："))(command "line" p1 p2 "")(setq p1 p2))<br />   (command "layer" "s" "0" "")<br /> )

437271963

(defun c:tes ( / p1 p2)
(vl-load-com)
(if (null (tblsearch "layer" "新建")) (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord") (CONS 6 "Continuous") (cons 62 2) '(370 . 0) '(70 . 0) '(290 . 1) '(2 . "新建"))) )
(if (setq p1 (getpoint "\n请选择起点"))
  (progn
   (while (setq p2 (getpoint p1 "\n选择下一点:"))
    (entmake (list '(0 . "LINE") (cons 8 "新建") '(62 . 2) (cons 10 p1) (cons 11 p2)))
    (setq p1 p2)
   )
  )
)
(princ)
)

chenbh2

(defun c: L1  ()
(If (= (Tblsearch "layer" "新建") nil)
    (command "-layer" "n" "新建" "s" "新建" "")
   
)
(command "CECOLOR" "2")  ;;;定义颜色
(setq p1 (getpoint "\n 选择起点："))
(while (setq p2 (getpoint p1 "\n 选择下一点："))
  (command "-layer" "s" "新建" "")
  (command "line" p1 p2 "")
  (command "layer" "s" "0" "")
  (setq p1 p2)
  )

)

疯球

ssyfeng 发表于 2018-11-23 11:04
我也分享另一种方法：

这个好，谢谢

疯球

437271963 发表于 2018-11-13 13:28
(defun c:tes ( / p1 p2)
(vl-load-com)
(if (null (tblsearch "layer" "新建")) (entmake (list'(0 .  ...

谢谢你的分享，但按ESC后不能切换到0层，还是保持在新画的图层上，谢谢你的帮助

疯球

chenbh2 发表于 2018-11-21 10:43
(defun c: L1  ()
(If (= (Tblsearch "layer" "新建") nil)
    (command "-layer" "n" "新建" "s" "新建 ...

谢谢你的分享，但按ESC后不能切换到0层，还是保持在新画的图层上，谢谢你的帮助

chenbh2

疯球 发表于 2018-11-23 15:42
谢谢你的分享，但按ESC后不能切换到0层，还是保持在新画的图层上，谢谢你的帮助

(defun c: L1 ()
(If (= (Tblsearch "layer" "新建") nil)
    (command "-layer" "n" "新建" "s" "新建" "")
    (command "-layer" "s" "新建" "")
)
(command "CECOLOR" "2")  ;;;定义颜色
(setq p1 (getpoint "\n 选择起点："))
(while (setq p2 (getpoint p1 "\n 选择下一点："))
  (command "line" p1 p2 "")
  (command "layer" "s" "0" "")
  (setq p1 p2))
(command "layer" "s" "0" "")
)

Andyhon

...ESC...回归0层...

请参考 *ERROR* 的相关讨论

1784290342

(defun c1 ()
(If (= (Tblsearch "layer" "新建") nil)
    (command "-layer" "n" "新建" "s" "新建" "")
    ;;(command "-layer" "s" "新建" "")
)
(command "CECOLOR" "2")  ;;;定义颜色
(setq p1 (getpoint "\n 选择起点："))
(while (setq p2 (getpoint p1 "\n 选择下一点："))
(command "-layer" "s" "新建" "")
(command "line" p1 p2 "")
(setq p1 p2)
(command "layer" "s" "0" "")
)
;;(command "layer" "s" "0" "")
)