欢迎来到天天文库
浏览记录
ID:59336006
大小:14.50 KB
页数:2页
时间:2020-09-04
《自动生成图层 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))
此文档下载收益归作者所有