
- 需要小懒人工具箱支持
- 下载地址
- http://yunpan.cn/c3iAVqYptpwj9 访问密码 cc19
- QQ群: 208388011
- (defun c:tt ();;;;曲线交点处加点
- (vl-load-com)
- (princ "\n请选择多段线、样条曲线、直线、圆、圆弧、椭圆:")
- (setq ss (ssget (list (cons 0 "*LINE,ARC,CIRCLE,ELLIPSE"))))
- (if (/= ss nil)
- (progn
- (setq ptnls (xlr_jdlb_ss ss))
- (if (/= ptnls nil)
- (progn
- (foreach pt ptnls
- (entmake (list (cons 0 "POINT") (cons 10 pt)(cons 62 3)))
- )
- )
- )
- )
- )
- )
|