社区 › Auto Lisp › 文本上的图案填充

cadmanrob 发表于 2022-7-5 16:48:22

文本上的图案填充

你好
 
我搜索了几个论坛，寻找一个可以填充文本边界但什么都找不到的lisp例程。我需要直接在文本和/或多行文字上填充。是否有任何东西可以让我在通常用作掩码的边界内填充文本，或者在多行文字的情况下。。。文本背景边界？
 
谢谢
 
抢劫

ReMark 发表于 2022-7-5 16:57:53

禁用孤岛检测不允许您在文本上进行图案填充吗？

Grrr 发表于 2022-7-5 17:07:46

你好
背景遮罩检查此项。
对于重叠IMO，很容易提供解决方案。

cadmanrob 发表于 2022-7-5 17:15:39

基本上，我希望能够选择文本或多行文字作为有效边界。

Grrr 发表于 2022-7-5 17:19:12

我不知道你说的边界是什么意思。以下是几个场景：
 
图案填充（使用边界框）
 
 
下面的图案填充（使用边界）

rkmcswain 发表于 2022-7-5 17:32:40

像这样的？
 

cadmanrob 发表于 2022-7-5 17:35:35

 
是的，rkmcswain。。。就像那样。。。同时具备多行文字处理能力。
 
@grrr。。。使用textmask命令中的擦除时使用/生成的边界。

rkmcswain 发表于 2022-7-5 17:44:34

这主要是我曾经做过类似事情的一些代码。
它基本上适用于任何选定的对象，当然这里没有错误检查。
 


(defun c:foo ( / sel obj var1 var2 pt1 pt2)
(setq sel (entsel))
(setq obj (vlax-ename->vla-object (car sel)))
(vlax-invoke-method obj 'GetBoundingBox 'var1 'var2)
(setq pt1 (vlax-safearray->list var1)
pt2 (vlax-safearray->list var2)
)
(vl-cmdf "bhatch" "_W" "_N"
   pt1
   (list (car pt1)(cadr pt2))
   pt2
   (list (car pt2)(cadr pt1))
   "_C"
   ""
   "_P"
   "ANSI35"
   "1.0"
   "0.0"
   ""
   )

)

cadmanrob 发表于 2022-7-5 17:54:56

 
谢谢太棒了！我对图案类型进行了调整。。。但仍然是我一直在寻找的。

查看完整版本: 文本上的图案填充