autocad 图层设置程序
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(princ"\n zuyuan工作室图层！") (princ"\n本程序快捷键为Blayer！\n")
(defun C:Blayer()
;创建图层(command"layer""n""AXI""") (command"layer""n""ADIM""") (command"layer""n""DIM""") (command"layer""n""TXT1""") (command"layer""n""TXT2""") (command"layer""n""solid1""") (command"layer""n""solid2""") (command"layer""n""beam""") (command"layer""n""column""") (command"layer""n""wall""") (command"layer""n""base""") (command"layer""n""pile""") (command"layer""n""gj""") (command"layer""n""hole""")
;设置线型(command"layer""lt""center""点划线""") (command"layer""lt""Dashed""虚线""") ;设置颜色(command"layer""c"4"AXI""") (command"layer""c"7"ADIM""") (command"layer""c"6"DIM""") (command"layer""c"7"TXT1""") (command"layer""c"7"TXT2""") (command"layer""c"9"solid1""") (command"layer""c"8"solid2""") (command"layer""c"6"beam""") (command"layer""c"3"column""") (command"layer""c"3"wall""") (command"layer""c"3"base""") (command"layer""c"7"pile""") (command"layer""c"1"gj""") (command"layer""c"7"hole""")
;设置线型(command"layer""L""Dashed""beam""") (command"layer""L""Dashed""pile""") (command"layer""L""center""AXI""")
;设置文字样式(command"Style""standard""tssdeng.shx,tssdchn.shx""""0.75""""""""") (command"Style""China""tssdeng.shx,China.shx""""0.75""""""""") (command"zoom""e")
(princ)
)