CAD快速标注多段线节点点号

第一步、使用点击绘图工具栏里的多段线命令绘制一个任意多边形。
第二步、框选上一步所绘制的图形（选中之后可以看到该图形只有三个夹点），回车。
第三步、完成上面的步骤后，发现图形的第一个顶点会出现一个×标记，这时在命令栏输入i（插入），回车。
第四步、在第一条直线任意位置上单击鼠标左键，这时会发现上步所提到的×标记会移动到刚才鼠标单击的位置。接着在命令栏输入x（退出），双击回车。

在多段线里面快速（用【点】标注节点），这个只有程序可以办到，代码如下：

(defunc:tes(/&k1&kw1&n1&p1)
(if(nullvlax-dump-object)(vl-load-com))
(PRinc"请选择多段线")
(if(setq&kw1(ssget'((0."lwpolyline"))))
(Progn
(while(setq&k1(ssname&kw10))
(setq&kw1(ssdel&k1&kw1))
(setq&n1(vlax-curve-getendparam&k1))
(if(vlax-curve-isclosed&k1)(setq&n1(-&n11)))
(while(>=&n10)
(setq&p1(vlax-curve-getpointatparam&k1&n1)&n1(-&n11))
(entmake(list'(0."point")(cons10&p1)))
)
);while
)
)
(PRinc)
);复制到记事本，以【.lsp】为后缀命名，打开CAD，【appload】加载，加载后，
;命令【tes】，选择多段线，就可以把对象节点全部加点了。