如何为POLYLINE添加节点？

ndgxy

不想用vla对象，直接用组码做，要怎么做，求指点。
1.在指定位置添加
2.在最后添加
3.还有就是在指定位置，用组码减少节点，怎么做？求指点

ndgxy

还有就是在指定位置，用组码减少节点，怎么做？求指点

marting

为什么不用VLA做？ 有偏见？

如果你用组码，那你看下(entget pline) 的数据定义，10组吗的都是顶点，你把你添加的点，添加到数据定义里面的合适位置，然后entmod就行了。

marting

另外，你用 polyline 或者 多段线 搜索下论坛看看。

ndgxy

我搜了，没有。我说的是polyline,而不是lwpolyline。

ndgxy

vla要求安装vba，有的没安装，麻烦。

marting

ndgxy 发表于 2017-7-14 00:03

谁说的VLA要安装VBA？ 你说的是用VBA编程吧？
VLA函数，只要正常安装CAD，就带的。
用之前执行(vl-load-com)

ndgxy

不是呀，我说的是vlisp编程。

ndgxy

cad2012以上就不自带，要另外安装了。

Lisphk

ndgxy 发表于 2017-7-14 05:02

你用的是AUTOCAD吗？ 我怎么从来没看到过有选项安装VLISP的地方，我装上就有啊。所有的版本。

ndgxy

我说的是vba,vlisp本来都有。

Lisphk

ndgxy 发表于 2017-7-14 10:51

被你搞糊涂了，你看看你上面说的

vla要求安装vba，有的没安装，麻烦。

matring问你为什么不要VLA函数，你说的VLA要求安装VBA。

如果有VLA，那就用VL函数啊，方便快捷，为什么非要用最基本的组码去修改添加呢？

newer

1. (entmake '((0 . "POLYLINE") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDb2dPolyline") (66 . 1) (10 0 0 0) (70 . 0) (40 . 0) (41 . 0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 0)))
   
2.   (entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 4356.047121598993 1011.743960170104 0) (40 . 0) (41 . 0) (42 . 0) (70 . 0) (50 . 0)))
   
3.   (entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 4675.015159457961 1491.996081919448 0) (40 . 0) (41 . 0) (42 . -0.786951930553565) (70 . 0) (50 . 0)))
   
4.   (entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 5113.064592678219 1332.62037754349 0) (40 . 0) (41 . 0) (42 . -0.321530298323567) (70 . 0) (50 . 0)))
   
5.   (entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 4783.464292191719 967.1187639177333 0) (40 . 0) (41 . 0) (42 . 0) (70 . 0) (50 . 0)))
   
6.   (entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 4615.474458320076 646.2423465443471 0) (40 . 0) (41 . 0) (42 . 0) (70 . 0) (50 . 0)))
   
7.   (entmake '((0 . "SEQEND") (100 . "AcDbEntity") (67 . 0) (8 . "0")))
   
8.   (princ)
   
9. )
   

(entmake '((0 . "POLYLINE") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDb2dPolyline") (66 . 1) (10 0 0 0) (70 . 0) (40 . 0) (41 . 0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 0))) <br />   (entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 4356.047121598993 1011.743960170104 0) (40 . 0) (41 . 0) (42 . 0) (70 . 0) (50 . 0)))<br />   (entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 4675.015159457961 1491.996081919448 0) (40 . 0) (41 . 0) (42 . -0.786951930553565) (70 . 0) (50 . 0)))<br />   (entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 5113.064592678219 1332.62037754349 0) (40 . 0) (41 . 0) (42 . -0.321530298323567) (70 . 0) (50 . 0)))<br />   (entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 4783.464292191719 967.1187639177333 0) (40 . 0) (41 . 0) (42 . 0) (70 . 0) (50 . 0)))<br />   (entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 4615.474458320076 646.2423465443471 0) (40 . 0) (41 . 0) (42 . 0) (70 . 0) (50 . 0)))<br />   (entmake '((0 . "SEQEND") (100 . "AcDbEntity") (67 . 0) (8 . "0")))<br />   (princ)<br /> )<br />

下面代码创建一个AcDb2dPolyline对象，你要添加顶点，就是把这个顶点X值，Y值添加到下面代码，然后把这行代码添加到上面合适的位置（自己计算是哪两个顶点间）
(entmake '((0 . "VERTEX") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 X值 Y值 0) (40 . 0) (41 . 0) (42 . 0) (70 . 0) (50 . 0)))