如何修改多义线的顶点个数

BUBUBA918

绿色园顶点个数3个如何改为2个

菜卷鱼

http://www.lee-mac.com/segmentcurve.html

BUBUBA918

不行啊，还是没有找到办法

llsheng_73

1. (defun tt(e / 210code)
   
2.   (setq e(reverse(entget(ssname e 0)))
   
3.           210code(assoc 210 e)
   
4.           e(append(reverse(cdr(member(assoc 10 e)e)))(list 210code))
   
5.           e(subst'(90 . 2)'(90 . 3)e)
   
6.           e(entmod(subst'(70 . 1)(assoc 70 e)e))))
   
7. (defun c:tt(/ e)
   
8.   (while(setq e(ssget":E:S"'((0 . "lwpolyline")(90 . 3))))
   
9.     (tt e))
   
10.   (princ))

(defun tt(e / 210code)<br />   (setq e(reverse(entget(ssname e 0)))<br />           210code(assoc 210 e)<br />           e(append(reverse(cdr(member(assoc 10 e)e)))(list 210code))<br />           e(subst'(90 . 2)'(90 . 3)e)<br />           e(entmod(subst'(70 . 1)(assoc 70 e)e))))<br /> (defun c:tt(/ e)<br />   (while(setq e(ssget":E:S"'((0 . "lwpolyline")(90 . 3))))<br />     (tt e))<br />   (princ))

BUBUBA918

llsheng_73 发表于 2016-9-9 09:57

可以修改了，但每次只能改一个，如何多选？改成这样也不行(setq e(ssget ":N" '((0 . "lwpolyline")(90 . 3))))