[编程申请]：如何在PLINE中加点！急！ 急！ 急！

云中人

要求在PLINE中点一下，就在那段线中加拉一个点。加三个最好！！！:6 :6 :6 :6 :6

XDSoft

最初由 云中人 发布
[B]要求在PLINE中点一下，就在那段线中加拉一个点。加三个最好！！！:6 :6 :6 :6 :6 [/B]

请用XDRX_API

283. xdrx_polyline_addVertexAt

功能：在指定索引位置处增加一个顶点

调用格式：(xdrx_polyline_addVertexat <LWPOLYLINE实体名> <index索引值> <点> [bulge值] [起始宽度][结束宽度])
          (xdrx_polyline_addVertexat <index索引值> <点> [bulge值] [起始宽度][结束宽度])
         
返回值：成功T, 否 NIL

说明：参数 [bulge值] [起始宽度][结束宽度]都为可选项，默认值都为0 ，后面的可选项若要设置必须前面的可选项也设置，但
      该可选项后面的若要默认值，可以省略。
      [bulge值]--实数，若加弧段给BULGE值。0退化为直线
      [起始宽度]，[结束宽度]--实数值或者整数值。
      
284. xdrx_polyline_removeVertexAt

功能：移去一个顶点

调用格式：(xdrx_polyline_removeVertexAt <LWPOLYLINE实体名> <index索引值>)     
          (xdrx_polyline_removeVertexAt  <index索引值>)   
         
返回值：成功T 失败NIL

说明：移去一个定点，意味着该顶点后的曲线段也移去。

云中人

谢谢！一下要是加3个就更好！

XDSoft

最初由 云中人 发布
[B]谢谢！一下要是加3个就更好！ [/B]

循环做啊

或者用三次。

云中人

有时加点会连错!奇怪！

XDSoft

最初由 云中人 发布
[B]有时加点会连错!奇怪！ [/B]

多用用，正确理解这几个函数的意思，不会有错的。

梦断江南

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

<br /> <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 />