Ｌ４．線分（ｅｎｔｍａｋｅ）を作図する 　　　(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) 　　　　　　　　　) 　　　　) 　　　) 　　上記ＡｕｔｏＬＩＳＰファイル（ufl00004.lsp）のダウンロード 　説明 　　getvar：AutoCADのシステム変数の値を取り出す。 　　entmake：図面に新しいオブジェクト（図形）を作成する。 Presented By ユーザーフレンドリー E-mail:usrfr@yk.rim.or.jp