各位大师，请问这个程序为啥剪切不了块内圆包围的线？

tender138

(defun c:aa(/ plEnt ss n blockEn pt0 pt1 pt2)
  (setq plEnt (car (entsel "\n选择线:")))
  (setq ss (ssget (list (cons 0 "insert"))))
  (setq n (sslength ss))
  (repeat n
    (setq blockEn (ssname ss (setq n (1- n))))
    (vla-getboundingbox(vlax-ename->vla-object blockEn) 'a 'b)
    (setq pt0 (mapcar'(lambda(x y)(*(+ x y)0.5))(vlax-safearray->list a)(vlax-safearray->list b)))
    (command "trim" blockEn "" (list plEnt pt0) "")
    (setq plEnt (entlast))
  )  
)

你有种再说一遍

如果可以剪的话,要怎么才不允许剪呢?
要不弄一个功能来防止吧,就叫它组块如何?

组块是什么?
就是层次模型.

那要怎么才能剪呢?
要递归进去才能剪啊

kozmosovia

块内圆加个遮罩。完全不需要裁剪

自贡黄明儒

kozmosovia 发表于 2025-3-13 23:14
块内圆加个遮罩。完全不需要裁剪

有没有办法将遮罩后面的东西，自动变成虚线？

xyp1964

块内修剪

tender138

kozmosovia 发表于 2025-3-13 23:14
块内圆加个遮罩。完全不需要裁剪

遮罩不行，我要用线长进行后续计算

tender138

你有种再说一遍 发表于 2025-3-13 20:54
如果可以剪的话,要怎么才不允许剪呢?
要不弄一个功能来防止吧,就叫它组块如何?

要递归进去怎么指定图元呢？各个图块里面的图元名一样的

你有种再说一遍

tender138 发表于 2025-3-14 20:26
要递归进去怎么指定图元呢？各个图块里面的图元名一样的

图元名不可能是一样的,块层次要学会.

llsheng_73

tender138 发表于 2025-3-14 20:26
要递归进去怎么指定图元呢？各个图块里面的图元名一样的

要从线的止点往起点剪才能一直用那个线的图元名，不然能剪的线是第一次trim后新生的图元，不再是最开始的图元，所以只能执行一次

qazxswk

如果是用浩辰CAD的话，浩辰自带这个插件。