需要质量检查工具

amb2301 · 发表于 2022-7-5 13:14:02

嗨，朋友们
我有一项任务，比如检查一堆图纸中几个区块和文本的可用性
我检查的所有图纸都应该包含标准块和文本，如果在中遗漏了
画画的时候，应该通知我错过的东西。
请帮助我使用lisp完成此任务。

提前谢谢。

BIGAL · 发表于 2022-7-5 13:28:04

这并不难，你只需要得到一个区块名列表，并将其与文本文件中的列表进行比较。标准文本可能有点困难，但可以做同样的事情，我建议使用strcase作为比较的一部分，所以上下不成问题。


this is not actual program but example bits of code 
(tblsearch "BLOCK" "Northn")
((0 . "BLOCK") (2 . "NORTHN") (70 . 0) (4 . "") (10 0.0 0.0 0.0) (-2 . <Entity name: 3af96230>))
(tblsearch "BLOCK" "Nort")
nil
(while read file
(setq found (tblsearch "BLOCK" blockname))
(if (= found nil)
(alert (strcat "block name not found " blockname))
(princ)
)
.........................
)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for blk (vla-get-blocks doc)
(princ (vla-get-name blk) )
)

amb2301 · 发表于 2022-7-5 13:36:27

嗨，比格尔
谢谢你看这篇文章，编辑lisp有点让我困惑，因为我是新手
我已附上错误屏幕截图，请检查。

我有一个名为test1、test2和test3的3个块
我只需要使用lisp找到这个块，告诉“所有块都可用”
如果缺少一个块，则应提及其名称，如“test2 is missing”

谢谢

ronjonp · 发表于 2022-7-5 13:42:45

copy


(defun c:foo (/ l)
  (setq l '("test1" "test2" "test3"))
  (foreach a l (or (tblobjname "block" a) (alert (strcat a " DOES NOT EXIST!"))))
  (princ)
)