多义线如何快速增加加点？

efreet

大家好！
多义线一般由多条线段或弧线组成。一般先把线按距离平分，pedit编辑，在平分点处一个一个增加节点，过程很繁琐，如果一条两条还行，多条就很繁琐，哪位朋友能帮帮忙写个lisp，自动实现多义线按任意距离（可选择输入）增加节点，谢谢！

zoubo604

以前有贴子了,这里有程序下载
http://bbs.mjtd.com/forum.php?mo ... F%C9%CF%BC%D3%B5%E3

efreet

楼上 请问程序在那里，没找到， 看见论坛上别人说的是任意加节点。  我想需要在多义线上按任意距离自动加节点（像一段线我想平分成10份 在中间平分点处加9个节点）

mycad

给你个算法，不知是否还有更好地算法：拾取多一线，会得到一个点坐标，也要获取所拾取多一线的所有坐标，根据距离最短来判断把拾取点的坐标插入到多一线的坐标中，重新绘制多一线

Gu_xl

1. (defun c:pladdpt  (/ CMDECHO EN PT ENDEN SS osmode d l pts)
   
2.   (setq cmdecho (getvar 'cmdecho))
   
3.   (setq osmode (getvar 'osmode))
   
4.   (setvar 'cmdecho 0)
   
5.   (setvar 'osmode 0)
   
6.   (and
   
7.     (setq en (car (entsel "\n选择多段线:")))
   
8.     (WCMATCH (cdr (assoc 0 (entget en))) "*POLYLINE")
   
9.     (setq d (getreal "\n分割间距:"))
   
10.     (progn
    
11.       (setq l (vlax-curve-getDistAtParam en (vlax-curve-getEndParam en))
    
12.             dd 0)
    
13.       (while (and (< (setq dd (+ dd d)) l)
    
14.               (setq pt (vlax-curve-getPointAtDist en dd))
    
15.               )
    
16.         (setq pts (cons pt pts))
    
17.         )
    
18.    (foreach pt pts
    
19.       (setq enden (entlast))
    
20.       (command "_break" en (vlax-curve-getclosestpointto en pt) pt)
    
21.       (setq ss (ssadd))
    
22.       (while (setq enden (entnext enden))
    
23.         (if (not (member (cdr (assoc 0 (entget enden)))
    
24.                          '("ATTRIB" "VERTEX" "SEQEND")))
    
25.           (ssadd enden ss)
    
26.           )
    
27.         )
    
28.       (VL-CATCH-ALL-APPLY 'vl-cmdf (list "pedit" en "j" ss "" ""))
    
29.       )
    
30.      )
    
31.     )
    
32.   (setvar 'cmdecho cmdecho)
    
33.   (setvar 'osmode osmode)
    
34.   (princ)
    
35.   )
    

(defun c:pladdpt  (/ CMDECHO EN PT ENDEN SS osmode d l pts)<br />   (setq cmdecho (getvar 'cmdecho))<br />   (setq osmode (getvar 'osmode))<br />   (setvar 'cmdecho 0)<br />   (setvar 'osmode 0)<br />   (and<br />     (setq en (car (entsel "\n选择多段线:")))<br />     (WCMATCH (cdr (assoc 0 (entget en))) "*POLYLINE")<br />     (setq d (getreal "\n分割间距:"))<br />     (progn<br />       (setq l (vlax-curve-getDistAtParam en (vlax-curve-getEndParam en))<br />             dd 0)<br />       (while (and (< (setq dd (+ dd d)) l)<br />               (setq pt (vlax-curve-getPointAtDist en dd))<br />               )<br />         (setq pts (cons pt pts))<br />         )<br />    (foreach pt pts <br />       (setq enden (entlast))<br />       (command "_break" en (vlax-curve-getclosestpointto en pt) pt)<br />       (setq ss (ssadd))<br />       (while (setq enden (entnext enden))<br />         (if (not (member (cdr (assoc 0 (entget enden)))<br />                          '("ATTRIB" "VERTEX" "SEQEND")))<br />           (ssadd enden ss)<br />           )<br />         )<br />       (VL-CATCH-ALL-APPLY 'vl-cmdf (list "pedit" en "j" ss "" ""))<br />       )<br />      )<br />     )<br />   (setvar 'cmdecho cmdecho)<br />   (setvar 'osmode osmode)<br />   (princ)<br />   )<br />

efreet

Gu_xl版主 试运行 好像添加的节点不对  比较乱，无序  不是平分的，我想在任意平分多义线添加节点，能否帮忙修改下？
版主 如何获得CAD里自带命令"_measure““点的平分”即的点的坐标？ 再把各个点连接起来重画多义线即得

Gu_xl

上个图，原多段线和平分后的结果

efreet

http://bbs.mjtd.com/forum.php?mod=attachment&aid=NjEzOTJ8YTE4Njk1NjIzN2ZkMDQyMWY0OGFjYjYzZjZkYmY2MzJ8MTc0NjAzMDQ3Mw%3D%3D&request=yes&_f=.jpg  图已上传， 即获取CAD里自带命令"_measure““点的平分”即的点的坐标， 再把各个点与原有节点连接起来重画多义线即得

Gu_xl

efreet 发表于 2011-9-26 17:55
http://bbs.mjtd.com/forum.php?mod=attachment&aid=NjEzOTJ8YTE4Njk1NjIzN2ZkMDQyMWY0OGFjYjYzZjZkYmY2MzJ8MTc0NjAzMDQ3Mw%3D%3D&request=yes&_f=.jpg  图已上传， 即获取CAD里自带命令"_measure““点的平分”即的点的坐标， 再把各个点与 ...

捕捉问题！
(setvar 'osmode 4771)
==》
(setvar 'osmode 0)
就ok了

efreet

谢谢楼上各位热情帮忙  问题已解决