检查标注点上是否有对象

Jack_PC · 发表于 2012-9-20 20:11:02

请教高手如何实现 < 检查标注点上是否有对象 >

Jack_PC · 发表于 2012-9-21 21:35:41

希望高手看到了讲讲思路也好啊

Gu_xl · 发表于 2012-9-21 21:52:45

给你一段代码，自己好好研究一下，代码看懂了，你就知道怎么做了！

;;功能: 解除标注与实体的关联
(defun c:rda ( / d e i s )
(if (setq s (ssget "_:L" '((0 . "*DIMENSION") (102 . "{ACAD_XDICTIONARY") (102 . "{ACAD_REACTORS"))))
(repeat (setq i (sslength s))
(setq e (entget (ssname s (setq i (1- i)))))
(dictremove (setq d (cdr (assoc 360 e))) "ACAD_DIMASSOC")
(if (null (dictnext d t))
(vla-delete (vlax-ename->vla-object d))
)
(vla-delete (vlax-ename->vla-object (cdr (assoc 330 e))))
)
)
(princ)
)

Jack_PC · 发表于 2012-9-22 00:20:54

Gu_xl 发表于 2012-9-21 21:52
给你一段代码，自己好好研究一下，代码看懂了，你就知道怎么做了！

非常感谢版主的例子，由于刚接LISP，目前看这代码好像似懂非懂，还望版主抽时间大概写一下啊

落叶吧 · 发表于 2016-9-19 11:18:34

非常好，试用一下

落叶吧 · 发表于 2016-9-19 11:19:44

这个和CDD命令有何不同

账号		自动登录	找回密码
密码			注册