有没有办法找到没有引用的字段？

HasanCAD · 发表于 2013-5-5 00:50:15

文件中的某些字段没有引用，用户可能会将其删除。那么有没有一种方法可以将文件中没有引用的字段进行修改，而不是逐个检查？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

HasanCAD · 发表于 2013-5-6 17:07:22

这是好的解决方案吗

(defun c:frerror (/ CNT EN ENPNT INSPNT SSETF)
  (if (and
        (setq
          ssetf        (ssget "X" (list (cons 0 "*TEXT") (cons 1 "*[####]*")))
        )
        (setq inspnt (getpoint "\nPick point"))
        (setq cnt 0)
      )
    (progn
      (repeat (sslength ssetf)
        (setq en (ssname ssetf cnt))
        (setq enpnt (assoc 10 (entget en)))
        (setq enpnt (list (nth 1 enpnt) (nth 2 enpnt) (nth 3 enpnt)))
        (command "_.LINE" inspnt enpnt "")
        (setq cnt (1+ cnt))
      )
    )
  )
)

ronjonp · 发表于 2013-5-7 10:28:45

假设这些字段链接到对象，您可能希望检查字段代码字符串:
(vlax-invoke(vlax-ename-> vla-object(car(entsel)))' field code)
然后解析出ObjectID，并使用vla-objectidtoobject检查它是否是有效的对象

有没有办法找到没有引用的字段？

发表回复

精选推荐