RMateus 发表于 2022-7-5 23:33:12

计数器文本

亲爱的朋友们：，
我想学习如何使用autolisp计算图形中的文本（字符串）数量？
顺致敬意，

MSasu 发表于 2022-7-5 23:39:41

是否还要按条件筛选它们？我的意思是：颜色，层次，内容。。。
要统计所有文本实体，请执行以下操作：
这将在选择中包括多行文字：
(if (setq ssText (ssget "_X" '((0 . "*TEXT"))))
(alert (strcat "This drawing contains " (itoa (sslength ssText)) " text/mtext entities."))
)

Lee Mac 发表于 2022-7-5 23:45:00

这有帮助吗？
 
http://lee-mac.com/tcount.html

RMateus 发表于 2022-7-5 23:47:04

感谢您的快速回复。
我一定做了什么蠢事。
AutoCAD给出了一个错误“错误：错误SSGET列表”
这个代码有什么问题？
(defun c:ntxt ()
   (if (setq ssText (ssget "_X" '((0 . "*TEXT")))) (alert "This drawing contains " (strcat (itoa (sslength ssText)) " text/mtext entities."))
)
)

Tharwat 发表于 2022-7-5 23:53:33

(alert (strcat "This drawing contains " (itoa (sslength ssText)) " text/mtext entities.")

 
此外，本地化变量。。
 
(defun c:ntxt (/ ssText)

RMateus 发表于 2022-7-5 23:58:10

谢谢李。
这真的很好，但我想学习的是如何像你一样构建代码，这些是帮助我理解其工作原理的小步骤。
我希望以后不要用同样愚蠢的问题来打扰你。
顺致敬意，

Lee Mac 发表于 2022-7-6 00:02:37

 
没问题，我钦佩你的学习意愿。
 
 
问尽可能多的问题，因为你需要你的理解！

RMateus 发表于 2022-7-6 00:06:38

好啊
非常感谢。

MSasu 发表于 2022-7-6 00:11:18

@RMateus：我在粘贴代码后编辑了盘点报告，因此出现了错误。我现在已经修复了我的示例。很抱歉给您带来不便！

CristianG 发表于 2022-7-6 00:18:47

亲爱的朋友们，我想下载一个命令的lisp例程，它为我提供了相同的tcount函数，而不是按字母顺序计数
页: [1] 2
查看完整版本: 计数器文本