SSLENGTH计数判别及崁套块清除问题

adslwang

请教各位牛人
我有一张很大的模型图要以图块方式插入到图面上插入之后先将文字分解到一般的状态，
为了要练习如何避免重覆的插入两次所以就找了一个较特别的图层内的文字=驻点处，做判别
可是使用SSGET之后每次到了要SSLENGTH计数时都会发生错误或者可以採用其它的方法。
(defun c:A101()
         (setq DD2RTT (list '(0 . "*TEXT") '(8 . "特定图块层") '(1 . "驻点处")))   
         (setq QERASESS335 (ssget "X" DD2RTT))
         (setq QERASESSW (SSLENGTH QERASESS335))
         (IF (= QERASESSW NIL)
             (PROGN            
         (COMMAND "-INSERT" "模型图" "B" "0,0" "10,10,10" 1 1 0))))
另外当我插入模型图，它是以很多个图块再包成一个图块插入的，如何再PURGE把它删除呢?

各位路过的牛人可以指点一下嘛?   谢谢

Andyhon

;; 以图块方式插入到图面上,分解后,下边的语句才有值 ; i.e. <Selection set: 7>
(setq QERASESS335 (ssget "X" DD2RTT))

;; 所以是判断 QERASESS335 是否有值 ; 无值时会导致 Sslength 函数失败
(IF (= QERASESS335 NIL)
....

adslwang

Andyhon 发表于 2012-7-28 15:21
;; 以图块方式插入到图面上,分解后,下边的语句才有值 ; i.e.
(setq QERASESS335 (ssget "X" DD2RTT))
...

Andyhon  长老 再次向您说声谢谢