CAD常用的画图LSP程序.docVIP

CAD常用的画图LSP程序 (defun c:loc() (setq os (getvar osmode)) (setvar osmode os) (setq pot (getpoint \n请输入插入点退出：)) (setq pot1 (getpoint \n请输入插入点退出：)) (setq md1 (getreal \n请输入直径:)) (setvar osmode 0) (setq md (/ md1 2)) (setq ang (/ pi 2)) (setq ang1 (angle pot pot1))