ljxkm于2019-9-6和波总指导代码升级而成直线曲线等顶点上插入标高属性块并同时更新...

寒潮大冬瓜

;;DCR直线曲线等顶点上插入标高属性块并同时更新标高值(样条曲线的拟合点还需要继续优化)
(defun c:DCR(/ e2024 i2024 ktyb len2024 ljx2024 lsta ptyb ptymb s2024)
        (princ "框选拟被插入顶点的曲线直线多段线圆弧")
        (setq s2024(ssget(list '(0 . "CIRCLE,arc,line,LWPOLYLINE,spline,ellipse,POLYLINE"))))
        ;拟插入图元
        (princ "单选拟插入图元")