如何去除组码中特定点的组码

alwtyp

如下图,图形为带圆弧的轻量线，怎么在用ENTGET获得的组码中，把圆弧AB两点的(10)(11)组码找出，并去除掉。

x_s_s_1

lwpolyline木有11组码的，您要干啥

Gu_xl

多段线没有11组码！
你的意思我理解不了！请直接给出结果示意图！

alwtyp

不好意思，看差了，轻量线是没有(11)
我就想达到以下效果，如果在用标注轻量线程序时，可以使标注不用圆弧的节点。如果是修改轻量线的程序里时，可以用来删除圆弧。

x_s_s_1

alwtyp 发表于 2013-5-15 21:30
不好意思，看差了，轻量线是没有(11)
我就想达到以下效果，如果在用标注轻量线程序时，可以使标注不用圆弧 ...

以10组码将entget分段，如果后面跟着的42组码不为0，即为圆弧，再将其去掉，修改70组码为0，以你搜索到的10组码重新建立坐标表，重新组表entmake即可

alwtyp

谢谢，我试试。

alwtyp

x_s_s_1 发表于 2013-5-15 21:42
以10组码将entget分段，如果后面跟着的42组码不为0，即为圆弧，再将其去掉，修改70组码为0，以你搜索到的 ...

不好意思，还是不知道每一个顶点的组码中了(10)以外，还有哪些是必须的,固定的？难道(40)(41)(42)(91)这四个都是不可少的？还会不会有其它的? 还有他们在组码表中的排序位置固定从小 排到大(10->91)的吗？

x_s_s_1

alwtyp 发表于 2013-5-16 23:35
不好意思，还是不知道每一个顶点的组码中了(10)以外，还有哪些是必须的,固定的？难道(40)(41)(42)(91)这四 ...

给您写了一个去圆弧的，不标尺寸您自己可以搞定的

2. (defun c:test1 (/ e en lst lstt ent x lsttt n)
   
3.   (setq en (entget (setq e(car (entsel "\n选择PL：")))))
   
4.   (setq        lst  nil
   
5.         lstt nil
   
6.   )
   
7.   (setq        ent (vl-member-if
   
8.               '(lambda (x) (= 10 (car x)))
   
9.               (reverse (cdr (reverse en)))
   
10.             )
    
11.   )
    
12.   (repeat (/ (length ent) 4)
    
13.     (repeat 4
    
14.       (setq lst (cons (car ent) lst))
    
15.       (setq ent (cdr ent))
    
16.     )
    
17.     (setq lstt (cons (reverse lst) lstt)
    
18.           lst  nil
    
19.     )
    
20.   )
    
21.   (setq        lst   (reverse lstt)
    
22.         lstt  nil
    
23.         lsttt nil
    
24.   )
    
25.   (while lst
    
26.     (if        (null
    
27.           (vl-remove-if-not
    
28.             (function (lambda (x) (and (/= 0 (cdr x)) (= 42 (car x)))))
    
29.             (car lst)
    
30.           )
    
31.         )
    
32.       (progn (setq lstt (cons (car lst) lstt))
    
33.              (setq lst (cdr lst))
    
34.       )
    
35.       (progn (setq
    
36.                lsttt
    
37.                 (cons
    
38.                   (cons        (subst '(42 . 0) (assoc 42 (car lst)) (car lst))
    
39.                         lstt
    
40.                   )
    
41.                   lsttt
    
42.                 )
    
43.              )
    
44.              (setq lstt        nil
    
45.                    lst        (cdr lst)
    
46.              )
    
47.       )
    
48.     )
    
49.   )
    
50.   (setq
    
51.     lsttt (mapcar '(lambda (x) (apply 'append x)) (cons lstt lsttt))
    
52.   )
    
53.   (foreach n lsttt
    
54.     (entmake (append (list (assoc 0 en)
    
55.                            '(100 . "AcDbEntity")
    
56.                            (assoc 8 en)
    
57.                            '(100 . "AcDbPolyline")
    
58.                            (cons 90 (1+ (/ (length n) 4)))
    
59.                            '(70 . 0)
    
60.                      )
    
61.                      n
    
62.              )
    
63.     )
    
64.   )
    
65.   (entdel e)
    
66.   (princ)
    
67. )
    

(defun c:test1 (/ e en lst lstt ent x lsttt n)<br />   (setq en (entget (setq e(car (entsel "\n选择PL：")))))<br />   (setq        lst  nil<br />         lstt nil<br />   )<br />   (setq        ent (vl-member-if<br />               '(lambda (x) (= 10 (car x)))<br />               (reverse (cdr (reverse en)))<br />             )<br />   )<br />   (repeat (/ (length ent) 4)<br />     (repeat 4<br />       (setq lst (cons (car ent) lst))<br />       (setq ent (cdr ent))<br />     )<br />     (setq lstt (cons (reverse lst) lstt)<br />           lst  nil<br />     )<br />   )<br />   (setq        lst   (reverse lstt)<br />         lstt  nil<br />         lsttt nil<br />   )<br />   (while lst<br />     (if        (null<br />           (vl-remove-if-not<br />             (function (lambda (x) (and (/= 0 (cdr x)) (= 42 (car x)))))<br />             (car lst)<br />           )<br />         )<br />       (progn (setq lstt (cons (car lst) lstt))<br />              (setq lst (cdr lst))<br />       )<br />       (progn (setq<br />                lsttt<br />                 (cons<br />                   (cons        (subst '(42 . 0) (assoc 42 (car lst)) (car lst))<br />                         lstt<br />                   )<br />                   lsttt<br />                 )<br />              )<br />              (setq lstt        nil<br />                    lst        (cdr lst)<br />              )<br />       )<br />     )<br />   )<br />   (setq<br />     lsttt (mapcar '(lambda (x) (apply 'append x)) (cons lstt lsttt))<br />   )<br />   (foreach n lsttt<br />     (entmake (append (list (assoc 0 en)<br />                            '(100 . "AcDbEntity")<br />                            (assoc 8 en)<br />                            '(100 . "AcDbPolyline")<br />                            (cons 90 (1+ (/ (length n) 4)))<br />                            '(70 . 0)<br />                      )<br />                      n<br />              )<br />     )<br />   )<br />   (entdel e)<br />   (princ)<br /> )<br />

alwtyp

x_s_s_1 发表于 2013-5-17 02:26
给您写了一个去圆弧的，不标尺寸您自己可以搞定的

这个程序执行有问题。简单的画一个矩形，再随便倒一个角或是两个角。执行程序后，点占PL后，完全可以得到不同的东西

x_s_s_1

alwtyp 发表于 2013-5-17 18:20
这个程序执行有问题。简单的画一个矩形，再随便倒一个角或是两个角。执行程序后，点占PL后，完全可以得到 ...

您不要机械的使用代码，主要看思路，2010的组码我看了，有91，如果您仅用于2010的话可以将(repeat (/ (length ent) 4)(repeat 4改为(repeat (/ (length ent) 5)(repeat 5，要通用也很简单，得出每个10组码之间的组码个数列表，中间任意长度均可，再循环就是了