有没有办法找到没有引用的字段？
文件中的某些字段没有引用，用户可能会将其删除。那么有没有一种方法可以将文件中没有引用的字段进行修改，而不是逐个检查？**** Hidden Message ***** 这是好的解决方案吗
(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))
)
)
)
)
假设这些字段链接到对象，您可能希望检查字段代码字符串:
(vlax-invoke(vlax-ename-> vla-object(car(entsel)))' field code)
然后解析出ObjectID，并使用vla-objectidtoobject检查它是否是有效的对象
页:
[1]