如何连续加载2个线型。比如说"dashed2"和"DOT"

;加载线形---------------------------------------------------
(defun C:JL ()
(setvar "CMDECHO" 0)
(if (null (tblsearch "ltype" "DOT"))
  (command "-linetype" "l" "DOT" "" "")
  (command "-linetype" "l" "DOT" "" "N" ""))
(if (null (tblsearch "ltype" "dashed2"))
  (command "-linetype" "l" "dashed2" "" "")
  (command "-linetype" "l" "dashed2" "" "N" ""))
  (setvar "CMDECHO" 1)
(princ))