CAD

开发平台：

MathCAD

GSL1自动绘制阶梯轴孔中心线.LSP：源码内容

							GSL1.LSP
(defun mid(pt1 pt2 )
　　(setq pt (mapcar '+ pt1 pt2 ))
　　(setq pt (mapcar '/ pt '(2 2 2)))
)
(defun c:gsl1(/ p1 p1 p3 p4 a )
　；；保存环境变量
　(setq os (getvar "osmode"))
　(setq cm (getvar "cmdecho"))
　；；设置环境变量
　(setvar "osmode" 33)
　(setvar "cmdecho" 0)
　；；依次读取两条直线的端点
　(initget 1)
　(setq p1 (getpoint"n选择第一条直线的第一个点"))
　(initget 1)
　(setq p2 (getpoint"n选择第一条直线的第二个点"))
　(initget 1)
　(setq p3 (getpoint"n选择第二条直线的第一个点"))
　(initget 1)
　(setq p4 (getpoint"n选择第二条直线的第二个点"))
　；；；；恢复环境变量
　(setvar "osmode" os)
　(setq p1 (mid p1 p3 ))
　(setq p2 (mid p2 p4 ))
　(setq a (angle p1 p2))
　(setq p2 (polar p2 a 2.5))
　(setq p1 (polar p1 (+ pi a ) 2.5))
　(command "layer" "set" 0 "")
　(command "line" p1 p2 "")
)
(princ "n程序已经加载")
(Princ "n 适用于阶梯轴-阶梯孔等对称中心线")
Princ

						