文本上的图案填充

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

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

copy


(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

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

[编程交流] 文本上的图案填充

发表回复

精选推荐