- Category:
- Other systems
- Tags:
-
- File Size:
- 1kb
- Update:
- 2017-08-18
- Downloads:
- 0 Times
- Uploaded by:
- ZLJ
Description: (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
To Search:
File list (Check if you may need any files):
gt.lsp
Download