检查标注点上是否有对象

Jack_PC

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

Jack_PC

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

Gu_xl

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

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

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

Jack_PC

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

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

落叶吧

非常好，试用一下

落叶吧

这个和CDD命令有何不同