过滤文本内容和位置i

OMEGA-ThundeR · 发表于 2022-7-5 17:26:07

你好

我得到了一个GPS测量读数，我使用一些程序将其转换为autocad绘图。

问题是转换将所有内容（插入点和一些多行文字标签）放置在图层0中。

使用“Qselect”命令，我可以过滤某些文本内容，选择具有特定内容的所有标签，并将其放置在一个层中，最后我可以通过这种方式按层过滤对象。

然而，这很耗时，所以我想制作一些LISP，以自动方式完成这项工作。

FILTER和QSELECT没有命令行命令，因此它们对于lisp是不可能的，但是互联网上说了一些关于SSGET的事情

copy

(ssget "_X" '((0 . "TEXT,MTEXT")(1 . "A*,B*")))

资料来源：http://www.cadforum.cz/cadforum_en/qaID.asp?tip=6403

标签中文本的内容类似于：

Huisaansluiting-DWA，Inlaat
英拉特Huisaansluiting-HWA
Kolken，Trottoirkolk
科肯，因拉特

让我们以最后一个为例“Kolken，Inlaat”，然后我使用以下代码：

copy


;;; GPS converter
(Defun C:gpsfilter ()
(setq kolkinlaat(ssget "_X" '((0 . "TEXT,MTEXT")(1 . "Kolken,Inlaat"))))
(command "-layer" "make" "N-Layer-Kolkinlaat" "")
(command ".laycur" kolkinlaat "")
)

它选择所有文本，但也在命令栏中返回“nil”输出。

它是有效的（以一种粗略的方式，我想添加一些IF和and以及what not），但我想知道“nil”回报来自哪里，以及为什么它会这样做。

我相信“Kolken”和“Inlaat”之间的逗号会引起一些麻烦？

也许我需要先做一个“查找和替换”动作？

Roy_043 · 发表于 2022-7-5 18:03:56

（命令…）始终返回零。因为这是defun的最后一条语句，所以函数也返回nil。

OMEGA-ThundeR · 发表于 2022-7-5 18:10:47

啊，我想我错过了命令末尾的“普林斯”部分。

把它建得更大，有多个文本内容可供查找，它似乎工作得很好，所以我想不用担心。

供将来参考（或者有些人希望改进此基本代码）
我目前的代码：

copy


;;; GPS converter
(Defun C:gpsfilter ()
(setq kolkinlaat(ssget "_X" '((0 . "TEXT,MTEXT")(1 . "Kolken,Inlaat"))))
(setq kolktstuk(ssget "_X" '((0 . "TEXT,MTEXT")(1 . "Kolken,T-stuk"))))
(setq huisdwainlaat(ssget "_X" '((0 . "TEXT,MTEXT")(1 . "Huisaansluiting - DWA,Inlaat"))))
(setq overig(ssget "_X" '((0 . "TEXT,MTEXT")(1 . "Overig*"))))
(setq huisdwabocht(ssget "_X" '((0 . "TEXT,MTEXT")(1 . "Huisaansluiting - DWA,Bocht"))))
;; Top part searches for text content and places textobjectsin a SETQ
;; Bottom part creates layers, when creating layer it goes to current and
;; then i place 'SETQ' content to the current layer.
(command "-layer" "make" "R-XX-KOLK_INLAAT-T" "")
(command ".laycur" kolkinlaat "")
(command "-layer" "make" "R-XX-KOLKLEIDING_T_STUK-T" "")
(command ".laycur" kolktstuk "")
(command "-layer" "make" "R-XX-HUISAANSLUITING_DWA_INLAAT-T" "")
(command ".laycur" huisdwainlaat "")
(command "-layer" "make" "R-XX-RIOOL_OVERIGE-T" "")
(command ".laycur" overig "")
(command "-layer" "make" "R-XX-HUISAANSLUITING_DWA_BOCHT-T" "")
(command ".laycur" huisdwabocht "")
(princ)
)

（对于不懂这些单词的人来说，这是荷兰语）

BIGAL · 发表于 2022-7-5 18:30:11

作为一种替代方法，如果逗号可能在ssget过滤器中做了一些有趣的事情，为什么不使用一系列cond语句检查一个大选择集中的文本，并放在正确的层上呢。

[编程交流] 过滤文本内容和位置i

发表回复

精选推荐