文件名称:gt
介绍说明--下载内容均来自于网络,请自行研究使用
快速生成冲头挂台,提升设计工作效率!!!!!!!((defun c:GT(/ selec1 selec2 point1 point2 object1 object2 pp1 pp2 dist1 dist2
inter INTERX INTERY POINT1X POINT1Y ptrim pextend P1 p2 p3 p4 p5 )
(start00)
(setvar "osmode" 0)
(setq n 1)
(while (< n 2)
(print)
(setq selec1 (entsel ":") )
(if (= selec1 nil) (princ "!") (progn (setq n 3) (princ "1 found")))
);while)
inter INTERX INTERY POINT1X POINT1Y ptrim pextend P1 p2 p3 p4 p5 )
(start00)
(setvar "osmode" 0)
(setq n 1)
(while (< n 2)
(print)
(setq selec1 (entsel ":") )
(if (= selec1 nil) (princ "!") (progn (setq n 3) (princ "1 found")))
);while)
(系统自动生成,下载前可以参看下载内容)
下载文件列表
gt.lsp