Question

用lisp语言编一个画五角星的程序

Answer 1

什么CAD模板？
你说的是CAD初始环境设置？
下面的命令保存为lsp格式文件，开始CAD启动加载；
;;;初始变量
(setvar "filedia" 1) ; 打开文件时显示对话框
(setvar "clayer" "0") ; 将0层设为当前层
(setvar "MIRRTEXT" 0) ; 不镜像文字
(setvar "VTENABLE" 0) ; 关闭CAD2006中动态缩放
;(setvar "dtexted" 1) ; 修改CAD2006单行文字编辑采用对话框方式而非屏幕修改方式
(setvar "PICKSTYLE" 0) ; 不使用关联填充及编组
;(setvar "SELECTIONPREVIEW" 0) ; 关闭CAD2006选择亮显

(setvar "snapmode" 0) ; 关闭网格捕捉
;(setvar "osmode" 191) ; 打开端点,中点,中心,象限点,交点及垂点捕捉
(setvar "CURSORSIZE" 100) ; 十字光标最大化
;(setvar "aperture" 5) ;捕捉靶标的大小

(setvar "lunits" 2) ; 设置长度单位为十进制
(setvar "luprec" 2) ; 设置长度精度为0.01
(setvar "AUPREC" 2) ; 设置角度精度为0.01

(setvar "chamfera" 0) ; 将chamfer命令的第一点D值设为0
(setvar "chamferb" 0) ; 将chamfer命令的第二点D值设为0
(setvar "filletrad" 0) ; 将fillet命令的半径R值设为0
(setvar "cmdecho" 0)
(setvar "regenmode" 1) ; 打开自动刷新功能
(setvar "qaflags" 0) ; 解决使用Ctrl+c的时候不能先选物体再复制的问题