求助，哪位大大帮着改一改

wjnnan

主要功能是，在输入一条直线厚，自动偏移指定的距离，并归入各自图层，下面是源码，在执行完直线后，在下面就不执行了，哪位大大帮着改一改，谢谢了

2. (defun c:bs2 (/ oldlayer dis o)
   
3.   (prompt "***输入单线变管***")
   
4.   (command "undo" "be")
   
5.   (setq oldlayer (getvar "CLAYER"))
   
6.   (setvar "cmdecho" 0)
   
7.   (command "-layer" "M" "管径" "" "Color" 2 "" "l" "continous" "" "")
   
8.   (command "-layer" "M" "管中心线" "" "Color" 2 "" "l" "dash" "" "")
   
9. (command "line"  (getpoint "\n第一点:") (getpoint "\n第二点:") "")
   
10. (setq ss (entlast))
    
11. (command "offset" ss (/ dis 2) o '(-9999999 -9999999) "")
    
12.     (command "change" (ssget "l") "" "p" "la" "管径" "")
    
13.     (command "offset" ss (/ dis 2) o '(9999999 9999999) "")
    
14.     (command "change" (ssget "l") "" "p" "la" "管径" "")
    
15. (setvar "CLAYER" oldlayer)
    
16.   (command "undo" "e")
    
17. )

(defun c:bs2 (/ oldlayer dis o)<br />   (prompt "***输入单线变管***")<br />   (command "undo" "be")<br />   (setq oldlayer (getvar "CLAYER"))<br />   (setvar "cmdecho" 0)<br />   (command "-layer" "M" "管径" "" "Color" 2 "" "l" "continous" "" "")<br />   (command "-layer" "M" "管中心线" "" "Color" 2 "" "l" "dash" "" "")<br /> (command "line"  (getpoint "\n第一点:") (getpoint "\n第二点:") "")<br /> (setq ss (entlast))<br /> (command "offset" ss (/ dis 2) o '(-9999999 -9999999) "")<br />     (command "change" (ssget "l") "" "p" "la" "管径" "")<br />     (command "offset" ss (/ dis 2) o '(9999999 9999999) "")<br />     (command "change" (ssget "l") "" "p" "la" "管径" "")<br /> (setvar "CLAYER" oldlayer)<br />   (command "undo" "e")<br /> )

不知道 undo命令 加的对不对?

Andyhon

先查 dis 的值

ll_j

offset句中的“o”是什么？

自贡黄明儒

还是用Mline直接画吧，不用编程了。