修剪文字周围的线条-帮助

flopo · 发表于 2022-7-5 15:18:57

大家好，
我需要一个lisp来修剪文本周围的线-在给定的值-以这种方式工作：选择文本或多行文字，插入文本周围距离的值，并修剪与所有文本和选定多行文字相交的所有线。有点像背景遮罩，但有修剪。谢谢

Lee Mac · 发表于 2022-7-5 15:28:15

也许T圈然后是EXTRIM？

flopo · 发表于 2022-7-5 15:34:11

TCIRCLE可以，但一次只提取一个对象。。。按1选择1。。。

Lee Mac · 发表于 2022-7-5 15:37:30

有求于人，无权挑剔。

flopo · 发表于 2022-7-5 15:46:30

我选择请你原谅，李。

alanjt · 发表于 2022-7-5 15:51:28

爆笑。有史以来最好的语言障碍混淆。

只是因为我一年前写的。。。仅适用于圆形。。。。

copy

(defun c:CIT (/ ss)
 ;; Trim Inside of selected Circles
 ;; Required subroutines: etrim (from Express Tool: EXTrim.LSP)
 ;; Alan J. Thomspon, 12.22.10
 (if (or etrim (load "extrim.lsp" nil))
   (if (setq ss (ssget '((0 . "CIRCLE"))))
     ((lambda (i / e)
        (while (setq e (ssname ss (setq i (1+ i))))
          (etrim e (cdr (assoc 10 (entget e))))
        )
      )
       -1
     )
   )
   (alert "Express Tool: EXTrim required!")
 )
 (princ)
)

flopo · 发表于 2022-7-5 15:59:32

谢谢艾伦，太棒了！

BlackBox · 发表于 2022-7-5 16:05:59

1+ ... 英雄联盟

iamtristanc · 发表于 2022-7-5 16:09:27

嘿，alanjt，用矩形/多段线来实现这一点有多困难？

我试着用“多段线”替换“圆”，但没用。。。看起来太简单了哈哈

BIGAL · 发表于 2022-7-5 16:17:11

未经测试，但应能正常工作

copy


(setq ss (ssget '((0 . "CIRCLE,lwpolyline"))))

[编程交流] 修剪文字周围的线条-帮助

发表回复

精选推荐