请教一下各位大佬，这个怎么加入KKKK1和KKKK2添加线型和颜色

403181713

(defun c:W2()
(setq  olay  (getvar "clayer"))
(setq        AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))
        Space (if (= 1 (getvar "CVPORT"))(vla-get-PaperSpace AcDoc)(vla-get-ModelSpace AcDoc)))
  (if (not (tblsearch "LAYER" "kkkk1" ))(setq lay (vla-put-Color(Vla-Add (Vlax-Get AcDoc 'Layers) "kkkk1") 2)))
  (if (not (tblsearch "LAYER" "kkkk2" ))(setq lay (vla-put-Color(Vla-Add (Vlax-Get AcDoc 'Layers) "kkkk2") 3)))
(if (= wwdy nil) (setq wwdy 7))
(setq str1 (rtos wwdy 2 2))
(prompt "\n  now dline width is: ")
(prompt str1)
(setq pt1 (getpoint "\n enter start point:"))
(setq pt2 (getpoint pt1 "\n enter next point:"))
(setq dis1 (* 0.5 wwdy))
(setq ag1 (angle pt1 pt2))
(setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
(setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
(setq pt1d (polar pt1 (- ag1 1.5708) dis1))
(setq pt2d (polar pt2 (- ag1 1.5708) dis1))
(command "pline" "non" pt1u "non" pt2u "")
(vla-put-Layer (vlax-ename->vla-object (setq en (entlast))) "kkkk1")  
(command "pline" "non" pt1d "non" pt2d "")
(vla-put-Layer (vlax-ename->vla-object (setq en (entlast))) "kkkk2")  
(repeat 0
   (setq pt1 pt2)
   (setq pt2 (getpoint pt1 "\n enter next point:"))
   (setq dis1 (* 0.5 wwdy))
   (setq ag1 (angle pt1 pt2))
   (setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
   (setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
   (setq pt1d (polar pt1 (- ag1 1.5708) dis1))
   (setq pt2d (polar pt2 (- ag1 1.5708) dis1))
   (command "pline" "non" pt1u "non" pt2u "")
  (vla-put-Layer (vlax-ename->vla-object (setq en (entlast))) "kkkk1")
   (command "pline" "non" pt1d "non" pt2d "")
  (vla-put-Layer (vlax-ename->vla-object (setq en (entlast))) "kkkk2")

)
)










跪求各位大佬帮忙下！