交点画构造线
本帖最后由 cq4920 于 2022-12-21 01:03 编辑根据一个交点画点的程序演变得来！
应该还可以继续演变成交点打断交点插块 交点标注高程标注只是我用不到就不研究了！
(defun c:jd ();;;;曲线交点处加点
(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
(setvar "PDMODE" 35) ;点模式
(foreach pt ptnls
(entmake (list (cons 0 "POINT") (cons 10 pt)(cons 62 3)))
)
)
)
)
)
)上面这段代码就是源程序的开始部分！不知道是哪里的了！
页:
[1]
2