求助，如何重新生成PLINE的起始点。（已解决）

zhb236623

已有PLINE画的封闭图形

1.获取PLINE坐标（这个程序会点）,存入  坐标.txt文件
2.点选 哪个坐标点作为起始点(setq Definestartpoint (getpoint))
3.读取坐标.txt文件   读取每行判断是否和Definestartpoint值相同，  （就是这个程序感觉有点难度）

                     不相同  读取下行再判断

                     相同写入  2.txt文件   写完到文件结束，再读取  坐标.txt文件  写入 2.txt文件，直到相同时停止写入。完成该操作


4.删除原来的PLINE线（这个也好办），
5.读取2.txt文件画PLINE线，（也比较好办）

mandala

2. ;;子程序，修改以捕捉端点方式“闭合”的pline使其闭合，
   
3. ;;并按指定点作为起点重绘pline，最后返回pline的组码。
   
4. (defun plchangestart
   
5.        (ee p1 / pt dat ptfrst ename aa data datb dat0 dat1 dat9)
   
6.   (setq pt (list (car p1) (cadr p1)))
   
7.   (setq dat (entget ee))
   
8.   (setq ptfrst (cons 10 pt))
   
9.   (setq ename (vlax-ename->vla-object ee))
   
10.   (if (vlax-curve-isclosed ename)
    
11.     (setq dat dat)
    
12.     (progn (setq dat (subst (cons 70 129) (assoc 70 dat) dat))
    
13.      (setq data (list (last dat)))
    
14.      (setq datb (reverse (cdr (cdr (cdr (cdr (cdr (reverse dat))))))))
    
15.      (setq dat (entmod (append datb data)))
    
16.     ) ;_ 结束progn
    
17.   ) ;_ 结束if
    
18.   ;;以上一段：如果pl最终不是以“c”闭合而是以捕捉端点方式“闭合”，
    
19.   ;;则修改组码使其达到闭合效果。
    
20.   (setq  dat0 (reverse (member (assoc 39 dat) (reverse dat)))
    
21.   dat1 (cdr (member (assoc 39 dat) dat))
    
22.   dat9 (list (last dat1))
    
23.   dat1 (reverse (cdr (reverse dat1)))
    
24.   data (member ptfrst dat1)
    
25.   datb (reverse (cdr (member ptfrst (reverse dat1))))
    
26.   ) ;_ 结束setq
    
27.   (entmod (append dat0 data datb dat9))
    
28.   ;;以上一段：修改组码，使pline从指定点开始。
    
29. ) ;_ 结束defun
    

;;子程序，修改以捕捉端点方式“闭合”的pline使其闭合，<br /> ;;并按指定点作为起点重绘pline，最后返回pline的组码。<br /> (defun plchangestart<br />        (ee p1 / pt dat ptfrst ename aa data datb dat0 dat1 dat9)<br />   (setq pt (list (car p1) (cadr p1)))<br />   (setq dat (entget ee))<br />   (setq ptfrst (cons 10 pt))<br />   (setq ename (vlax-ename->vla-object ee))<br />   (if (vlax-curve-isclosed ename)<br />     (setq dat dat)<br />     (progn (setq dat (subst (cons 70 129) (assoc 70 dat) dat))<br />      (setq data (list (last dat)))<br />      (setq datb (reverse (cdr (cdr (cdr (cdr (cdr (reverse dat))))))))<br />      (setq dat (entmod (append datb data)))<br />     ) ;_ 结束progn<br />   ) ;_ 结束if<br />   ;;以上一段：如果pl最终不是以“c”闭合而是以捕捉端点方式“闭合”，<br />   ;;则修改组码使其达到闭合效果。<br />   (setq  dat0 (reverse (member (assoc 39 dat) (reverse dat)))<br />   dat1 (cdr (member (assoc 39 dat) dat))<br />   dat9 (list (last dat1))<br />   dat1 (reverse (cdr (reverse dat1)))<br />   data (member ptfrst dat1)<br />   datb (reverse (cdr (member ptfrst (reverse dat1))))<br />   ) ;_ 结束setq<br />   (entmod (append dat0 data datb dat9))<br />   ;;以上一段：修改组码，使pline从指定点开始。<br /> ) ;_ 结束defun<br />

试试这个。

ee是多段线的图元名，p1是指定起点的坐标，前者可用entsel、后者可用getpoint获得。

最后返回的是指定起点之后重绘的多段线组码，有了组码你想干嘛就可以干嘛。

zhb236623

这个要怎么用呢。
(defun c:ww()
(setq ee(car(entsel"选择对象")))
(setq p1(getpoint"选择顶点"))
(plchangestart);;后面还要加什么函数呢
)
加了这两句，提示。。。; 错误: 参数太少，还麻烦mandala指点下。谢谢。

yoyoho

感谢mandala分享函数
(defun c:ww()
(setq ee(car(entsel"选择对象")))
(setq p1(getpoint"选择顶点"))
(plchangestart ee p1)
)

zhb236623

多谢mandala和yoyoho，还要再加一句，可以正常使用

(defun c:ww()
(VL-LOAD-COM)
(setq ee(car(entsel"选择对象")))
(setq p1(getpoint"选择顶点"))
(plchangestart ee p1)

)
获取多义线点坐标1.lsp，出自哪里倒忘记了。有需要的可以下来看下，用这个函数也可以验证下起始点是否更改，还可以获得多义线坐标点。

杨婷1234

有好厉害呀

hhh454

真的很厉害，正在找这个方面的代码，太感谢了