[求助]如何改变多段线的顶点顺序

sly

如何改变多段线的顶点顺序

sly

难道真无人会吗？可怜啊！

sly

高手帮忙,在该多段线的顶点标注点号的时候,怎么可以指定起点位置,并按顺时针和逆时针标注点号?

lockmyeye

取出多段线的顶点坐标，重新生成一条多段线或者修改还来的多段线都可以实现。

lockmyeye

取得顶点坐标的方法，论坛里一大堆了，仔细找一找吧。


重新定义起点的方法：


1、选择起点startpt，用曲线函数vlax-curve-getClosestPointTo得到线上距离startpt最近的点nestpt。


2、检查nestpt距离线上最近的坐标。


3、根据以上数据调整坐标，重新生成多段线。

onej

陈Q的法子，受用！

sly

可以编个lisp程序吗?谢!

meflying

程序功能：判断是顺时针还是逆时针，如果是顺时针则更改为逆时针。。。REV函数更改顶点顺序，可单独使用。。。

2. (defun GetCen(pl / pt1 pt2)
3.    (vla-getboundingbox (vlax-ename->vla-object pl) 'pt1 'pt2)
4.    (setq pt1 (vlax-safearray->list pt1))
5.    (setq pt2 (vlax-safearray->list pt2))
6.    (list (/ (+ (car pt1) (car pt2)) 2.0)
7.   (/ (+ (cadr pt1) (cadr pt2)) 2.0)
8.    )
9. )
10. (defun GEO_CCW (p0 p1 p2 p3 / ang1 ang2 ang3)
11.    (setq ang1 (angle p0 p1))
12.    (setq ang2 (angle p0 p2))
13.    (setq ang1 (- ang2 ang1))
14.    (if (> (abs ang1) pi)
15.        (setq ang1 (+ (* -2 pi (/ ang1 (abs ang1))) ang1))
16.    )
17.    (setq ang3 (angle p0 p3))
18.    (setq ang2 (- ang3 ang2))
19.    (if (> (abs ang2) pi)
20.        (setq ang2 (+ (* -2 pi (/ ang2 (abs ang2))) ang2))
21.    )
22.    (if (> (* ang1 ang2) 0)
23.        (/ ang1 (abs ang1))
24.        (cond
25.            ((> (abs ang1) (abs ang2))
26.              (if (= ang2 0)
27.    0
28.    (/ ang2 (abs ang2)))
29.              )
30.            ((<= (abs ang1) (abs ang2))
31.              (if (= ang1 0)
32.    0
33.    (/ ang1 (abs ang1)))
34.            )
35.        )
36.    )
37. );DEFUN
38. (defun c:PlineCCW (/ pline step param nParam pt pt1 pt2 ptc i mp CCWLST)
39.    (setq pline (car (entsel "Select lwpline")))
40.    (setq step 100)
41.    (setq mp (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
42.    (setq ptc (getcen pline))
43.    (setq param (/ (vlax-curve-getDistAtParam pline (vlax-curve-getEndParam pline)) step))
44.    (setq i 0)
45.    (repeat (1- step)
46.        (setq nParam (* i param))
47.        (setq pt (vlax-curve-getPointAtdist pline nParam))
48.        (setq pt1 (vlax-curve-getPointAtdist pline (+ (* (/ 0.5 step) param) nParam)))
49.        (setq pt2 (vlax-curve-getPointAtdist pline (+ (* (/ 1.0 step) param) nParam)))
50.        (setq CCWLST (append CCWLST (list (GEO_CCW ptc pt pt1 pt2))))
51.        (setq i (1+ i))
52.    )
53.    (if (> (length (vl-remove 1.0 CCWLST)) (length (vl-remove -1.0 CCWLST)))
54.        (progn           
55.            (rev pline)
56.            (princ "\nPline is clockwise")
57.            (princ "\nChanged to counterclockwise")
58.        )
59.        (princ "\nPline is counterclockwise")
60.    )
61.    (princ)
62. ) ;end defun
63. (defun Rev(pl / ents i m ptlst ptlst2 item)
64.    (setq ents (entget pl))
65.    (setq i 0)
66.    (setq ptlst (reverse (member (assoc 10 ents) ents)))
67.    (setq ptlst (cdr (member (assoc 10 ptlst) ptlst)))
68.    (repeat (/ (length ptlst) 4)
69.        (setq ptlst2 (append ptlst2 (list (list (nth i ptlst) (nth (+ i 1) ptlst) (nth (+ i 2) ptlst) (nth (+ i 3) ptlst)))))
70.        (setq i (+ i 4))
71.    )
72.    (setq ptlst2 (mapcar '(lambda(x) (subst (cons 42 (- (cdr (assoc 42 x)))) (assoc 42 x) x)) ptlst2))
73.    (setq ptlst2 (apply 'append ptlst2))
74.    (setq i 0 m t ptlst nil)
75.    (while m
76.        (setq item (nth i (reverse ents)))
77.        (setq ptlst (append ptlst (list item)))
78.        (if (= (car item) 10) (setq m nil))
79.        (setq i (1+ i))
80.    )
81.    (setq ptlst (reverse (subst (cons 42 (- (cdr (assoc 42 ptlst)))) (assoc 42 ptlst) ptlst)))
82.    (setq ptlst2 (cons (car ptlst) ptlst2))
83.    (setq ptlst2 (append ptlst2 (cdr ptlst)))
84.    (setq i 0 m (vl-position (assoc 10 ents) ents) ptlst nil)
85.    (repeat m
86.        (setq ptlst (append ptlst (list (nth i ents))))
87.        (setq i (1+ i))
88.    )
89.    (command "_.undo" "be")
90.    (entmod (append ptlst ptlst2))
91.    (command "_.undo" "e")
92. )

(defun GetCen(pl / pt1 pt2)    (vla-getboundingbox (vlax-ename->vla-object pl) 'pt1 'pt2)    (setq pt1 (vlax-safearray->list pt1))    (setq pt2 (vlax-safearray->list pt2))    (list (/ (+ (car pt1) (car pt2)) 2.0)   (/ (+ (cadr pt1) (cadr pt2)) 2.0)    ) ) (defun GEO_CCW (p0 p1 p2 p3 / ang1 ang2 ang3)    (setq ang1 (angle p0 p1))    (setq ang2 (angle p0 p2))    (setq ang1 (- ang2 ang1))    (if (> (abs ang1) pi)        (setq ang1 (+ (* -2 pi (/ ang1 (abs ang1))) ang1))    )    (setq ang3 (angle p0 p3))    (setq ang2 (- ang3 ang2))    (if (> (abs ang2) pi)        (setq ang2 (+ (* -2 pi (/ ang2 (abs ang2))) ang2))    )    (if (> (* ang1 ang2) 0)        (/ ang1 (abs ang1))        (cond            ((> (abs ang1) (abs ang2))              (if (= ang2 0)    0    (/ ang2 (abs ang2)))              )            ((<= (abs ang1) (abs ang2))              (if (= ang1 0)    0    (/ ang1 (abs ang1)))            )        )    ) );DEFUN (defun c:PlineCCW (/ pline step param nParam pt pt1 pt2 ptc i mp CCWLST)    (setq pline (car (entsel "Select lwpline")))    (setq step 100)    (setq mp (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))    (setq ptc (getcen pline))    (setq param (/ (vlax-curve-getDistAtParam pline (vlax-curve-getEndParam pline)) step))    (setq i 0)    (repeat (1- step)        (setq nParam (* i param))        (setq pt (vlax-curve-getPointAtdist pline nParam))        (setq pt1 (vlax-curve-getPointAtdist pline (+ (* (/ 0.5 step) param) nParam)))        (setq pt2 (vlax-curve-getPointAtdist pline (+ (* (/ 1.0 step) param) nParam)))        (setq CCWLST (append CCWLST (list (GEO_CCW ptc pt pt1 pt2))))        (setq i (1+ i))    )    (if (> (length (vl-remove 1.0 CCWLST)) (length (vl-remove -1.0 CCWLST)))        (progn                       (rev pline)            (princ "\nPline is clockwise")            (princ "\nChanged to counterclockwise")        )        (princ "\nPline is counterclockwise")    )    (princ) ) ;end defun (defun Rev(pl / ents i m ptlst ptlst2 item)    (setq ents (entget pl))    (setq i 0)    (setq ptlst (reverse (member (assoc 10 ents) ents)))    (setq ptlst (cdr (member (assoc 10 ptlst) ptlst)))    (repeat (/ (length ptlst) 4)        (setq ptlst2 (append ptlst2 (list (list (nth i ptlst) (nth (+ i 1) ptlst) (nth (+ i 2) ptlst) (nth (+ i 3) ptlst)))))        (setq i (+ i 4))    )    (setq ptlst2 (mapcar '(lambda(x) (subst (cons 42 (- (cdr (assoc 42 x)))) (assoc 42 x) x)) ptlst2))    (setq ptlst2 (apply 'append ptlst2))    (setq i 0 m t ptlst nil)    (while m        (setq item (nth i (reverse ents)))        (setq ptlst (append ptlst (list item)))        (if (= (car item) 10) (setq m nil))        (setq i (1+ i))    )    (setq ptlst (reverse (subst (cons 42 (- (cdr (assoc 42 ptlst)))) (assoc 42 ptlst) ptlst)))    (setq ptlst2 (cons (car ptlst) ptlst2))    (setq ptlst2 (append ptlst2 (cdr ptlst)))    (setq i 0 m (vl-position (assoc 10 ents) ents) ptlst nil)    (repeat m        (setq ptlst (append ptlst (list (nth i ents))))        (setq i (1+ i))    )    (command "_.undo" "be")    (entmod (append ptlst ptlst2))    (command "_.undo" "e") )

sly

可以重新指定起点吗?

无痕

起点不是可以随便指定的