自动生成图层 lisp程序.doc

《自动生成图层 lisp程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、;加载线型(if(not(tblobjname"ltype""Center"))(command"linetype""l""center"""""))(if(not(tblobjname"ltype""jis_09_15"))(command"linetype""l""jis_09_15"""""))(if(not(tblobjname"ltype""acad_iso02w100"))(command"linetype""l""acad_iso02w100"""""));加载图层(if(not(tblsearch"layer""3"));;你图内无层

2、3(command"layer""n""3""c""3""3""");去建层3把色3(绿色)付偶给3层);如有层3就不执行(if(not(tblsearch"layer""1"));;你图内无层1(command"layer""n""1""c""1""1""");去建层1把色1(红)付偶给1层);如有层1就不执行(if(not(tblsearch"layer""2"));;你图内无层2(command"layer""n""2""c""2""2""");去建层2把色2(黄)付偶给2层);如有层2就不执行(if(not(tblsearch"layer""

3、4"));;你图内无层4(command"layer""n""4""c""4""4""");去建层4把色4(青色)付偶给4层);如有层4就不执行(if(not(tblsearch"layer""5"));;你图内无层5(command"layer""n""5""c""5""5""");去建层5把色5(蓝色)付偶给5层);如有层5就不执行(if(not(tblsearch"layer""6"));;你图内无层6(command"layer""n""6""c""6""6""");去建层6把色6(洋红色)付偶给6层);如有层6就不执行(if(not(tbl

4、search"layer""7"));;你图内无层7(command"layer""n""7""c""7""7""");去建层7把色7(白色)付偶给7层);如有层7就不执行;付给线型线宽(command"layer""l""center""1""")(command"layer""l""jis_09_15""4""")(command"layer""l""acad_iso02w100""6""")(command"layer""lw""0.25""7""");定义快速切换线层(defunc:1()(command"layer""s""1""""")(

5、princ))(defunc:2()(command"layer""s""2""""")(princ))(defunc:3()(command"layer""s""3""""")(princ))(defunc:4()(command"layer""s""4""""")(princ))(defunc:5()(command"layer""s""5""""")(princ))(defunc:0()(command"layer""s""0""""")(princ))(defunc:6()(command"layer""s""6""""")(princ))(

6、defunc:7()(command"layer""s""7""""")(princ))