AutoCAD LISP绘制标准图框
2011-03-26 22:25 精诚所至 金石为开 阅读(1140) 评论(0) 编辑 收藏 举报AutoCAD LISP绘制标准图框,if选择语句,绘制A1,A2,A3,A4图框,代码如下。
(defun c:test()
(setq size (getstring "请输入图纸大小AO,A1,A2,A3,A4<A3>:"))
(if (= size "")
(setq size "A3")
)
(setq size (strcase size))
(if (= size "A0") (setq p2 '(1189 841)))
(if (= size "A1") (setq p2 '(841 594)))
(if (= size "A2") (setq p2 '(594 420)))
(if (= size "A3") (setq p2 '(420 297)))
(if (= size "A4") (setq p2 '(297 210)))
(setq p1 '(0 0))
(command "rectang" p1 p2)
(command "zoom" "A")
(prin1)
)
(prompt "<<test>>自动绘制图框")
(prin1)
代码完。
努力加载评论中...
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步