[求助]：以下程序片断有何问题，请高人指点！！！

jinsong-liao

如预览图所示：
实现如下操作：
1.对多义线顶点编号
2.然后判断顶点之间距离是否大于4，是则在本段中心写字ABC
3.利用文字ABC剪切线，使文字漏空

1，2步能实现，
第3步不能完全实现，第一次剪切之后的剪切无法完成，且提示“对象未与边相交”？
这是为何？请大家指点！多谢了！

........................
(setq k4 0)
(setq ss (ssget))
(setq i 0)
(setq en (ssname ss i) )
(setq plist (entget en))

  (setq listcd (length jdzbb))      ;顶点数量
   
  (repeat (- listcd 1)           
    (progn
        (setq pt1 (nth k4 jdzbb))        ;pt1表示第一个顶点的座标
        (setq pt2 (nth (+ k4 1) jdzbb))  ;pt2表示第二个顶点的座标
                                                                                                                                                         
        ............   求得多义线中点座标midpt
           
        ............   求得文字角度angfw
     

     (if (>= (distance pt1 pt2) 4)      
         (progn
           (command "text" "j" "m" midpt 1.0 angfw "ABC")  ;如果两顶点距离大于等于4时，在线中写字ABC
           (setq wz (entlast))
           (command "trim" wz "" (list en midpt) "")       ;利用刚写的字剪切线，使文字漏空
         )
      )
    );end of progn
     (setq k4 (+ k4 1))                                    ;往多义线的第二段循环
  ); end of repeat

        .................

nuance

能不能换个思路,不用文字trim线,而是在文字下加wipeout实体.
程序中用trim很容易出错,而且查不出原因.通常和显示有关

jinsong-liao

恕本人愚钝，还不知道wipeout实体是啥？

舟自横

你的第二个实体已经不是EN了肯定不相交啊!
第一次打断是对的..EN还存在且唯一..
但第二次以后EN就不一定是你所要剪切的实体了..
所以你剪切之前必须重新选择你要剪的实体.
建议.如果你要剪PT3 PT4段
先(SETQ EN (SSNAME (SSGET "F" (LIST PT3 PT4)) 0))
再(command "trim" wz "" (list en midpt) "")
应该就没问题了...

jinsong-liao

提示“无法修剪此对象"。谢谢了！