如何entmod

Lisphk

想修改一个LWPOLYLINE，entget数据表如下

(entget (entlast))
((-1 . <图元名: -262c58>) (0 . "LWPOLYLINE") (330 . <图元名: -264308>) (5 . "1B5")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline")
(90 . 5) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 1359.11 656.556) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 2290.7 636.61) (40 . 0.0) (41 . 0.0) (42 . 0.0)
(10 2553.54 1022.23) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2150.96 1344.68) (40
. 0.0) (41 . 0.0) (42 . 0.0) (10 1385.73 1318.09) (40 . 0.0) (41 . 0.0) (42 .
0.0) (210 0.0 0.0 1.0))


里面有5个组吗40，我想修改第三个红色的组吗40，怎么做好？

ll_j

轻多段线的组码由三部分组成，前面的“头”数量是是不变的，再去掉后面的“尾”（210组码），剩下中间的“点”，这个部分的长度是可变的，但每个对应的组码数是一定的，分别为点坐标、凸度、开始宽度、结束宽度（高版本还有一个顶点标记93？组码），编辑时应该先把三部分分离，再编辑中间的点表，然后再重新组合更新。

iLisp

用 assoc 10取出余下部分，再assoc 40 subst，然后reverse assoc 10取出头部分，将两个append entmod

Lisphk

ll_j 发表于 2016-9-3 13:25
轻多段线的组码由三部分组成，前面的“头”数量是是不变的，再去掉后面的“尾”（210组码），剩下中间的“ ...

谢谢长老回帖，组合的话感觉要处理的代码太复杂，不知道还有什么好的方法修改你说的指定段的实体数据。

Lisphk

iLisp 发表于 2016-9-3 13:34
用 assoc 10取出余下部分，再assoc 40 subst，然后reverse assoc 10取出头部分，将两个append entmod

10在第三个40前面有好几个啊，怎么能快速定位到第三个10呢？

iLisp

Lisphk 发表于 2016-9-3 13:39
10在第三个40前面有好几个啊，怎么能快速定位到第三个10呢？

vlax-curve-getpointatparam可以获取指定参数点

Lispboy

修改第几个组吗的，你可以这样写，修改其他组吗，修改代码里面40就行了



上面图片是修改第三个顶点的组吗40，宽度80.0

1. (defun c:tt ()
   
2.   (if (and (setq e (ssget ":E:S" '((0 . "lwpolyline"))))
   
3.            (setq num (getint "\n修改第几个顶点开始宽度<退出>:"))
   
4.       )
   
5.     (progn
   
6.       (setq e (ssname e 0)
   
7.             ed (entget e)
   
8.       )
   
9.       (setq cnt 0)
   
10.       (setq ed (vl-remove (assoc 43 ed) ed))
    
11.       (setq ed (mapcar
    
12.                  (function (lambda (itm)
    
13.                              (if (and
    
14.                                    (= 40 (car itm))
    
15.                                    (= num (setq cnt (1+ cnt)))
    
16.                                  )
    
17.                                '(40 . 80.0)
    
18.                                itm
    
19.                              )
    
20.                            )
    
21.                  )
    
22.                  ed
    
23.                )
    
24.       )
    
25.       (entmod ed)
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )
    
30. 
    

(defun c:tt ()<br />   (if (and (setq e (ssget ":E:S" '((0 . "lwpolyline"))))<br />            (setq num (getint "\n修改第几个顶点开始宽度<退出>:"))<br />       )<br />     (progn<br />       (setq e (ssname e 0)<br />             ed (entget e)<br />       )<br />       (setq cnt 0)<br />       (setq ed (vl-remove (assoc 43 ed) ed))<br />       (setq ed (mapcar<br />                  (function (lambda (itm)<br />                              (if (and<br />                                    (= 40 (car itm))<br />                                    (= num (setq cnt (1+ cnt)))<br />                                  )<br />                                '(40 . 80.0)<br />                                itm<br />                              )<br />                            )<br />                  )<br />                  ed<br />                )<br />       )<br />       (entmod ed)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

线路板

学习

zc15477648

图元我都换好了，就是融合后不显示