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 static/image/common/back.gif
给你一段代码，自己好好研究一下，代码看懂了，你就知道怎么做了！

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

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

非常好，试用一下

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

这个和CDD命令有何不同
页: [1]
查看完整版本: 检查标注点上是否有对象