怎样快速的在多义线上增加节点?

whm2216

大家好！


多义线一般由多条线段或弧线组成。在工作中我常碰到在多义线的某线段上要增加节点，但这过程有点繁琐：PEDIT-->Edit vertex-->多次空格键或回车键(要起始点到目标线段）-->Insert vertex-->Esc键结束


我的想法是:键入快捷键J-->出现选择光标-->点击目标线段结束（要增加节点位置),这样就很省时间了。哪位朋友能帮帮忙写个lisp，在R14实现该功能？谢谢！

ljpnb

R2004可以，R14不行（对有圆弧的PL线不支持） (defun c:test ()
(setq ent (entsel "\n 选择一条多义线: "))
(setq p0 (cadr ent))
(setq p0 (osnap p0 "nea"))
(setq obj (vlax-ename->vla-object
(car ent)
)
)
(setq point (vla-get-Coordinates obj))
(setq point1 (vlax-safearray->list (vlax-variant-value point)))
(setq len (length point1))
(setq p1 (list (nth 0 point1) (nth 1 point1)))
(setq i 2 k 0)
(repeat (1- (/ len 2))
(setq p2 (list (nth i point1) (nth (1+ i) point1)))
(setq dis0 (distance p1 p2)
dis1 (distance p1 p0)
dis2 (distance p2 p0)
)
(if (equal (+ dis1 dis2) dis0 0.00001)
(setq n k)
)
(setq p1 p2)
(setq i (+ i 2) k (1+ k))
)
(command "pedit" ent "e")
(repeat n
(command "n")
)
(command "i" p0 "x" "")
)

meflying

仅适合没有圆弧的PLINE：

2. (defun c:j( / ent pt ents i n npt item lstNew)
3.    (setq ent (entsel))
4.    (setq pt (cadr ent))
5.    (setq ents (entget (car ent)))
6.    (setq i 0
7.   npt 0
8.   n (length ents))   
9.    (while (< i n)
10.        (setq item (nth i ents))
11.        (cond
12.            ((= npt 0)
13.              (if (= (car item) 10) (setq npt (1+ npt)))
14.              (setq lstNew (append lstNew (list item)))
15.            )
16.            ((= npt 1)
17.              (if (and (= (car item) 10)
18.    (equal (angle (cdr (nth (- i 4) ents)) pt)
19.                  (angle pt (cdr item)) 0.1))
20.    (progn
21.        (setq lstNew (append lstNew (list (cons 10 pt) '(40 . 0) '(41 . 0) '(42 . 0) item (nth (1+ i) ents) (nth (+ i 2) ents))))
22.        (setq i (+ i 3))
23.        (setq npt (1+ npt))
24.    )
25.    (setq lstNew (append lstNew (list item)))
26.              )           
27.    
28.            )
29.            ((= npt 2)
30.              (setq lstNew (append lstNew (list item)))
31.            )
32.        );cond
33.        (setq i (1+ i))
34.    );repeat
35.    (entmod lstNew)
36.    (princ)
37. )

(defun c:j( / ent pt ents i n npt item lstNew)    (setq ent (entsel))    (setq pt (cadr ent))    (setq ents (entget (car ent)))    (setq i 0   npt 0   n (length ents))       (while (< i n)        (setq item (nth i ents))        (cond            ((= npt 0)              (if (= (car item) 10) (setq npt (1+ npt)))              (setq lstNew (append lstNew (list item)))            )            ((= npt 1)              (if (and (= (car item) 10)    (equal (angle (cdr (nth (- i 4) ents)) pt)                  (angle pt (cdr item)) 0.1))    (progn        (setq lstNew (append lstNew (list (cons 10 pt) '(40 . 0) '(41 . 0) '(42 . 0) item (nth (1+ i) ents) (nth (+ i 2) ents))))        (setq i (+ i 3))        (setq npt (1+ npt))    )    (setq lstNew (append lstNew (list item)))              )                           )            ((= npt 2)              (setq lstNew (append lstNew (list item)))            )        );cond        (setq i (1+ i))    );repeat    (entmod lstNew)    (princ) )

whm2216

谢谢二位的帮忙！特别是meflying,妙！妙！真是太好了！

efreet

学习了  楼上可否实现多义线按任意距离增加节点（即像CAD的里“点”按距离平分线段）

jinxiandi

用2012就非常简单了，只要鼠标停留在一个节点上就有提示出来了!

yjr111

为什么都喜欢停留在很久以前？适应吧，大家伙！要捣鼓程序就去捣鼓2013没有的吧

raimo

这个思路似乎更方便..参见  Gu_xl  做的这个程序


http://bbs.mjtd.com/forum.php?mo ... 88&page=1#pid482808

lzr_00

还是喜欢用低版本的CAD，安装起来方便而且很小

egoroom

要是能批量加点就好了