请教各位：如何 对一条AcDb2dPolyline的节点进行删除？

snowpine

一条AcDb2dPolyline线，想将其中的一个节点删除，我该如何实现？我想用removeVertexAt，但它只能用于AcDbPolyline类。

masterhe

给写一段例子程序吧：

1. 
   
2. LPCTSTR lpszPrompt[]={_T("选择Ployline:"),_T("")};
   
3.         CEntPicks picks;
   
4.         if(picks.EntPicksGet(_T(":$:S"),lpszPrompt,NULL,CResbuf(acutBuildList(RTDXF0,_T("POLYLINE"),RTNONE))))
   
5.         {
   
6.                 CAcDb2dPolyline pline;
   
7.                 if(pline.OpenEntity(picks[0L]))
   
8.                 {
   
9.                         int nIndex;
   
10.                         acedInitGet(5,NULL);
    
11.                         if(acedGetInt(_T("\n删除节点的索引:"),&nIndex)!=RTNORM)
    
12.                                 return;
    
13.                         int nPos=0;
    
14.                         CAcDbObjectIterator  iterator(pline->vertexIterator());
    
15.                         for(;!iterator->done();iterator->step())
    
16.                         {
    
17.                                 if(nPos++==nIndex)
    
18.                                 {
    
19.                                         CAcDb2dVertex vertex;
    
20.                                         if(pline->openVertex(vertex,iterator->objectId(),AcDb::kForWrite)==Acad::eOk)
    
21.                                                 vertex->erase();
    
22.                                         break;
    
23.                                 }
    
24.                         }
    
25.                 }
    
26.         }
    
27. 
    

复制代码

梦断江南

以前做的，也不知道是不是最后版本。：-）

2. 
   
3. (princ
   
4.   "\nplve====lwpolyline vert edit,增加/删除pl线顶点 vb1.0--------lxx.2001.7"
   
5. )
   
6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
7. ;;vb1.0
   
8. (defun c:plve ( / os en entl pt ptend)
   
9.   (princ "\n plve====lwpolyline vert edit,增加/删除pl线顶点--vb1.0--------lxx.2001.7")
   
10.   (setvar "modemacro" "plve.多义线顶点增删程序--梁雄啸.2001")
    
11.   (setvar "cmdecho" 0)
    
12.   (setvar "osmode" 551)
    
13.   (princ "\n当取点为 pl 线的顶点时---删除/否---增加顶点")
    
14.   (setq        os   (getvar "osmode")
    
15.         en   (entsel "\n选择要增/删顶点的多义线:")
    
16.         ent  (car en)
    
17.   )
    
18.   (initget 128)
    
19.   (princ "\n!!!取点为 pl 线的顶点时==>删除 / 否==>增加顶点!!!")
    
20.   (while
    
21.     (setq pt (getpoint "\n自动识别增&删--取点/enter-退出:")) ;enter--重新选择pl线
    
22.     (setq entl (entget ent))
    
23.     (setvar "modemacro" "")
    
24.     (if
    
25.        (and (setq ptend (osnap pt "_end"))
    
26.             (member (cons 10 (list (car ptend)(cadr ptend))) entl)
    
27.        )
    
28.         (if (equal pt ptend)
    
29.           (eplv);删除顶点
    
30.           (aplv);增加顶点
    
31.         )
    
32.     );endif
    
33.   ); end while
    
34.   (setvar "osmode" os)
    
35.   (princ)
    
36. )
    
37. ;;;;删除顶点
    
38. (defun eplv ( / ptl entl2)
    
39.   (princ "\nok")
    
40.   (setq        ptl (cons 10 (list (car pt) (cadr pt) ));点对
    
41.         entl2 '()
    
42.   )
    
43.   (foreach n entl
    
44.     (if        (not(equal n ptl))
    
45.         (setq entl2 (cons n entl2))
    
46.     )
    
47.   );!!技巧!!
    
48.   (setq entl (reverse entl2))
    
49.   (entmod entl)
    
50. )
    
51. ;;;;增加顶点
    
52. (defun aplv ()
    
53.   (initget 129)
    
54.   (setq npt (getpoint pt "\n 新的定位点/X-不做变动/<enter--原选择点>:"))
    
55.   (if
    
56.     (= (type pt) 'LIST)
    
57.     (progn
    
58.       (print "\nok")
    
59.       (command "_.break" ent pt "@" ^c
    
60.              "_.pedit" ent "j" (entlast) "" ^c
    
61.       );  打断
    
62.       (print "\n brk")
    
63.       (while (= (type npt) 'LIST)            ;新的定位点
    
64.           (print "enter")
    
65.           (setq entl (entget ent) ; 更新
    
66.                 ptl (cons 10 (list (car pt)(cadr pt)))
    
67.                 nptl (cons 10 (list (car npt)(cadr npt)))
    
68.                 entl2 '())
    
69.           (foreach n entl
    
70.             (if (equal n ptl)
    
71.                 (setq entl2 (cons nptl entl2))
    
72.                 (setq entl2 (cons n entl2))
    
73.             )
    
74.           )  ;  表项替换
    
75.           (setq entl (reverse entl2)
    
76.                 npt nil)
    
77.           (entmod entl)
    
78.       );  end while
    
79.     );  end progn
    
80.   );  end cond
    
81. )
    

<br /> (princ<br />   "\nplve====lwpolyline vert edit,增加/删除pl线顶点 vb1.0--------lxx.2001.7"<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;vb1.0<br /> (defun c:plve ( / os en entl pt ptend)<br />   (princ "\n plve====lwpolyline vert edit,增加/删除pl线顶点--vb1.0--------lxx.2001.7")<br />   (setvar "modemacro" "plve.多义线顶点增删程序--梁雄啸.2001")<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 551)<br />   (princ "\n当取点为 pl 线的顶点时---删除/否---增加顶点")<br />   (setq        os   (getvar "osmode")<br />         en   (entsel "\n选择要增/删顶点的多义线:")<br />         ent  (car en)<br />   )<br />   (initget 128)<br />   (princ "\n!!!取点为 pl 线的顶点时==>删除 / 否==>增加顶点!!!")<br />   (while<br />     (setq pt (getpoint "\n自动识别增&删--取点/enter-退出:")) ;enter--重新选择pl线<br />     (setq entl (entget ent))<br />     (setvar "modemacro" "")<br />     (if<br />        (and (setq ptend (osnap pt "_end"))<br />             (member (cons 10 (list (car ptend)(cadr ptend))) entl)<br />        )<br />         (if (equal pt ptend)<br />           (eplv);删除顶点<br />           (aplv);增加顶点<br />         )<br />     );endif<br />   ); end while<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br /> ;;;;删除顶点<br /> (defun eplv ( / ptl entl2)<br />   (princ "\nok")<br />   (setq        ptl (cons 10 (list (car pt) (cadr pt) ));点对<br />         entl2 '()<br />   )<br />   (foreach n entl<br />     (if        (not(equal n ptl))<br />         (setq entl2 (cons n entl2))<br />     )<br />   );!!技巧!!<br />   (setq entl (reverse entl2))<br />   (entmod entl)<br /> )<br /> ;;;;增加顶点<br /> (defun aplv ()<br />   (initget 129)<br />   (setq npt (getpoint pt "\n 新的定位点/X-不做变动/<enter--原选择点>:"))<br />   (if<br />     (= (type pt) 'LIST)<br />     (progn<br />       (print "\nok")<br />       (command "_.break" ent pt "@" ^c<br />              "_.pedit" ent "j" (entlast) "" ^c<br />       );  打断<br />       (print "\n brk")<br />       (while (= (type npt) 'LIST)            ;新的定位点<br />           (print "enter")<br />           (setq entl (entget ent) ; 更新<br />                 ptl (cons 10 (list (car pt)(cadr pt)))<br />                 nptl (cons 10 (list (car npt)(cadr npt)))<br />                 entl2 '())<br />           (foreach n entl<br />             (if (equal n ptl)<br />                 (setq entl2 (cons nptl entl2))<br />                 (setq entl2 (cons n entl2))<br />             )<br />           )  ;  表项替换<br />           (setq entl (reverse entl2)<br />                 npt nil)<br />           (entmod entl)<br />       );  end while<br />     );  end progn<br />   );  end cond<br /> )<br />

lyousme

lisp程序！！！
我不懂啊，那位高手帮帮忙，将上面的程序翻译成arx,有急用，谢谢了！

faunus

刚刚知道该网站,可钱币太少了,好多软件又不能下载的,痛苦呀

boaosun

[PHP]
  AcDbObjectIterator *pVertIter;
  AcDbObjectId vertexId;
.............
  else if (Obj->isKindOf(AcDb2dPolyline::desc()))
  { pVertIter=((AcDb2dPolyline *)Obj)->vertexIterator();

    for(;!pVertIter->done();pVertIter->step())
    { vertexId=pVertIter->objectId();
      ((AcDb2dPolyline *)Obj)->openVertex(pVertex2d,vertexId,AcDb::kForRead);
      PtArr->append(pVertex2d->position());
      BulArr->append(pVertex2d->bulge());
    }
    delete pVertIter;
  }[/PHP]
这个是取顶点的例子，应该可以通过这种方法删除顶点！