过滤文本内容和位置i
你好我得到了一个GPS测量读数，我使用一些程序将其转换为autocad绘图。
问题是转换将所有内容（插入点和一些多行文字标签）放置在图层0中。
使用“Qselect”命令，我可以过滤某些文本内容，选择具有特定内容的所有标签，并将其放置在一个层中，最后我可以通过这种方式按层过滤对象。
然而，这很耗时，所以我想制作一些LISP，以自动方式完成这项工作。
FILTER和QSELECT没有命令行命令，因此它们对于lisp是不可能的，但是互联网上说了一些关于SSGET的事情
(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”，然后我使用以下代码：
;;; 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”之间的逗号会引起一些麻烦？
也许我需要先做一个“查找和替换”动作？ （命令…）始终返回零。因为这是defun的最后一条语句，所以函数也返回nil。 啊，我想我错过了命令末尾的“普林斯”部分。
把它建得更大，有多个文本内容可供查找，它似乎工作得很好，所以我想不用担心。
供将来参考（或者有些人希望改进此基本代码）
我目前的代码：
;;; 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)
)
（对于不懂这些单词的人来说，这是荷兰语） 作为一种替代方法，如果逗号可能在ssget过滤器中做了一些有趣的事情，为什么不使用一系列cond语句检查一个大选择集中的文本，并放在正确的层上呢。
页:
[1]