哪们大侠能发个更改多段线指定顶点的函数啊

myjping

哪们大侠能发个更改多段线指定顶点的函数啊

Gu_xl

1. ;用法 (putVertex (car(entsel)) (trans (getpoint) 0 1) 1)
   
2. ;; pl = LWPOLYLINE POLYLINE 3DPOLY
   
3. ;; pt = 顶点坐标
   
4. ;; index = 顶点索引
   
5. (defun putVertex  (pl pt index)
   
6.   (if (= 'ename (type pl))
   
7.     (setq pl (vlax-ename->vla-object pl))
   
8.     )
   
9.   (if (= "AcDbPolyline" (vla-get-ObjectName pl))
   
10.     (setq pt (list (car pt) (cadr pt)))
    
11.     )
    
12.   (VL-CATCH-ALL-APPLY
    
13.     'vla-put-coordinate
    
14.     (list
    
15.       pl
    
16.       index
    
17.       (vlax-make-variant
    
18.         (vlax-safearray-fill
    
19.           (vlax-make-safearray
    
20.             vlax-vbdouble
    
21.             (cons 0 (1- (length pt)))
    
22.             )
    
23.           pt
    
24.           )
    
25.         )
    
26.       )
    
27.     )
    
28.   )
    

;用法 (putVertex (car(entsel)) (trans (getpoint) 0 1) 1)<br /> ;; pl = LWPOLYLINE POLYLINE 3DPOLY<br /> ;; pt = 顶点坐标<br /> ;; index = 顶点索引<br /> (defun putVertex  (pl pt index)<br />   (if (= 'ename (type pl))<br />     (setq pl (vlax-ename->vla-object pl))<br />     )<br />   (if (= "AcDbPolyline" (vla-get-ObjectName pl))<br />     (setq pt (list (car pt) (cadr pt)))<br />     )<br />   (VL-CATCH-ALL-APPLY<br />     'vla-put-coordinate<br />     (list<br />       pl<br />       index<br />       (vlax-make-variant<br />         (vlax-safearray-fill<br />           (vlax-make-safearray<br />             vlax-vbdouble<br />             (cons 0 (1- (length pt)))<br />             )<br />           pt<br />           )<br />         )<br />       )<br />     )<br />   )<br />

Andyhon

得有实例指述 程序执行前/后以供调试核验...

邹锋

搜索就有，你试试

pxt2001

顶起来，改PL线顶点很常用。

mandala

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

<br /> ;;修改以捕捉端点方式“闭合”的pline使其真正闭合，<br /> ;;并按指定点作为起点重绘pline，最后返回pline的组码。<br /> ;;ee：pl的图元名 p1：新指定的起点<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 /> ;;;;;;;;;;;;;;;;;;;;;;;;

myjping

Gu_xl 发表于 2012-9-12 16:29

非常不错，学习了

yoyoho

感谢分享学习!

fcut2004

mandala 发表于 2012-9-13 17:09

这个怎么个用法啊？

fcut2004

mandala 发表于 2012-9-13 17:09

为什么我用这个命令时，会把多线删除掉一些线段呢，比如画个矩形，调用这个函数后，选择不同的顶点，画出来的线不一样的，有的只有两条边了、有的变成三角形。