如果使用lisp，怎么做

Tharwat · 发表于 2022-7-6 00:09:15

我不是在问你们一个解决方案，而是要告诉你们，迭代数据库比单独迭代每个空间更直接。

irneb · 发表于 2022-7-6 00:14:36

当然，如果您也想单步遍历块，那么就更容易了——您可以简单地遍历文档的块集合。然后（除了用户创建的块之外）在模型空间以及所有图纸空间选项卡上迭代。

为了补充塔尔瓦特提到的内容：使用vla get paperspace只做一个选项卡。如果DWG有两个或多个图纸空间选项卡，该怎么办？

Tharwat · 发表于 2022-7-6 00:17:11

没错，谢谢你的介入

liuhaixin88 · 发表于 2022-7-6 00:23:25

你能写一个样本吗？看到你的代码，我感到惊喜。

copy

(defun c:tt ()
(setvar "CMDECHO" 0)
(vl-load-com)
(setq ss (ssget "X" '((0 . "LINE,LWPOLYLINE,*TEXT"))))
(setq i -1)
(repeat (sslength ss)
(setq e (ssname ss (setq i (1+ i))))
 (if (or (and (vlax-property-available-p (setq v (vlax-ename->vla-object e)) 'LENGTH)
          (zerop (vla-get-length v))
     )
         (and
          (vlax-property-available-p v 'TEXTSTRING)
          (eq (vl-string-left-trim " " (vla-get-textstring v)) ""))
       )
 (entdel e)
 )
)
(setvar "CMDECHO" 1)
(princ)
)

Tharwat · 发表于 2022-7-6 00:27:01

我已经试过了，你没试过吗？

[编程交流] 如果使用lisp，怎么做

发表回复

精选推荐