mstg007 发表于 2017-2-20 10:50:02

字符间有空格的多行文字

我知道这很奇怪。我在搜索“可能”而没有lisp，因为使用了多行文字，中间会有一个额外的空间。
即
这是THIS IS A TITLE的标题。
如果不是，有没有我可以使用的特殊类型的字体？
感谢您的帮助！
**** Hidden Message *****

CAB 发表于 2017-2-20 11:18:18

也许这
;;CAB 04/10/2006
;;Add space(s) to text strings between characters
;; Note that there are problems with format codes especially with mText.
(defun c:textspacer (/ spc ent txt obj spacetext)
(defun spacetext (txtstring spccnt / spaces newlst)
    (repeat spccnt (setq spaces (cons 32 spaces)))
    (foreach x (vl-string->list txtstring)
      (setq newlst (append newlst (list x) spaces))
    )
    (vl-list->string newlst)
)

(initget 6)
(setq spc (getint "\nHow many spaces do you want to add? 1-5"))
(or spc (setq spc 1))
(if (> spc 5) (setq spc 5))
(while (setq ent (entsel "\nSelect Text to add spaces to."))
    (setq txt (vla-get-textstring (setq obj (vlax-ename->vla-object (car ent)))))
    (setq txt (spacetext txt spc))
    (vla-put-textstring obj txt)
)
(princ)
)

mstg007 发表于 2017-2-20 11:21:11

哈哈……谢谢你，卡布……有趣的是，这就是我用来完成工作的方法！你又一次精彩的表演！

CAB 发表于 2017-2-20 11:43:56

很高兴提醒您。

mstg007 发表于 2017-2-20 12:16:48

做了更多的研究...
https://forums.autodesk.com/t5/autocad-2007-2008-2009/text-kerning/td-p/2731751
文本扩展...现在我知道它是做什么的了。

Cathy 发表于 2017-2-28 15:21:58

为什么不直接在编辑器中设置间距？

mstg007 发表于 2017-2-28 15:24:54

我认为那是天才…谢谢！

Master_Shake 发表于 2017-3-1 08:53:07


这是我们应该走的路。当你最终切换到TrueType字体时，它们将可以被正确搜索，而不是每个字母之间的硬编码空间。
页: [1]
查看完整版本: 字符间有空格的多行文字