(defun c:ufl00004m ( / pp1 pp2 slay slnk scol lnk col )
;線分を作図する
  (setq pp1 (list 10.0 10.0 0.0))
  (setq pp2 (list 30.0 20.0 0.0))
  (setq slay (getvar "clayer"))   ;現在の画層
  (setq slkd (getvar "celtype"))  ;現在の線種
  (setq scol (getvar "cecolor"))  ;現在の色
  (setq lnk slkd)
  (if (= slkd nil)
    (setq lnk "ByLayer")
  )
  (setq col (atoi scol))
  (if (= (strcase scol) "BYBLOCK")
    (setq col 0)
  )
  (if (or (= scol nil) (= (strcase scol) "BYLAYER"))
    (setq col 256)
  )
  (ufl00004 pp1 pp2 slay lnk col)
  (princ)
)
(defun ufl00004 ( u_pp1 ;始点座標
                  u_pp2 ;終点座標
                  u_lay ;画層名
                  u_lnk ;線種名
                  u_col ;色番号
                / )
;線分を作図する
  (entmake  (list (cons 0 "LINE")
                  (cons 8 u_lay)
                  (cons 6 u_lnk)
                  (cons 62 u_col)
                  (cons 10 u_pp1)
                  (cons 11 u_pp2)
            )
  )
)