[求助]：图层与线型的关系问题

animal212

先帮我看一下这程序吧,为什么之前设好的线型,(command "_LayerP")之后又返回到默认线型containous呢?谁帮我看一下这程序有什么问题没?谢谢!
;;;;;;;;;;
(defun C:zg()
(if (=(tblobjname "LAYER" "4.2输水管道") nil)
     (progn
          (mkla "4.2输水管道" 5)
          (setq ex (getvar "expert"))
          (setvar "expert" 5)
          (command "_.linetype" "_l" "PHANTOM2" "" "")
          (setvar "expert" ex)
          (command "_layer" "l" "PHANTOM2" "" "")  
      )
)
(command "Layer" "Make" "4.2输水管道" "s" "" "" "")
(setvar "PLINEWID" 1)
(setvar "CMLSCALE" 1)
(if (setq PT0 (getpoint "\n点取起点:"))
    (progn
        ;;开始绘制多段线
        (command "_.pline" PT0)
        ;;循环取点
        (while (setq PT1 (getpoint PT0 "\n点取坐标: "))
            ;;绘制
            (command "non" PT1)
            (setq PT0 PT1)
        )
        ;;结束绘制
        (command "")
    )
)
(command "_LayerP")
)


;;; 建图层: (mala "层名" 颜色号)
(Defun MKLA (a b)
  (If (= (Tblsearch "layer" a) nil)
    (Command "layer" "m" a "c" b a "")
    (Command "layer" "t" a "s" a "c" b a "")
  )
)

carrot1983

我竟然三连发....厉害!

carrot1983

狂........................
顶啊!!!!!

carrot1983

1. 
   
2. layerp
   
3. 放弃已对图层设置（例如颜色或线型）做的修改。如果设置被恢复，AutoCAD 将显示“已恢复上一个图层状态”信息。
   
4. 
   
5. LAYERP（上一图层）没有放弃以下修改：
   
6. 重命名图层：如果重命名图层并修改其特性，“上一图层”将恢复初始特性，但不恢复初始名称。
   
7. 删除的图层：如果删除或清理图层，使用“上一个图层”不能将其恢复。
   
8. 添加的图层：如果在图形中添加新图层，使用“上一个图层”不能将其删除。
   

复制代码

[php]
(command "_LayerP")
;;;替代成:
;;程序开始:
(setq cla (getvar "clayer"))
.......
;;结束之前:
(setvar "clayer" cla)
[/php]

animal212

哦,原来如此.谢谢carrot1983