有到AUGI問了一下,回覆該圖面是有文字物件,但是都沒有資料,建議直接刪除
測試語法:
(defun c:test (/ cnt ep etyp sp ss sse ssl ssn str)
(if
(setq ss (ssget "_X"))
(progn
(setq ssl (sslength ss))
(setq cnt 0)
(repeat
ssl
(setq ssn (ssname ss cnt))
(setq sse (entget ssn))
(setq etyp (cdr (assoc 0 sse)))
(setq str (cdr (assoc 1 sse)))
(if
(= etyp "TEXT")
(progn
(setq sp (cdr (assoc 10 sse)))
(setq ep (polar sp (* pi 1.5) 100))
(command "_ray" sp ep "")
) ; progn
) ; if
(alert (strcat "\nThis object is"
"\n"
"\n" etyp
"\n"
"\n" (if
(= str nil)
(princ "\nIt's not object")
(progn
(if
(= str " ")
(princ "\nIt's without string")
) ; if
) ; progn
) ; if
))
(setq cnt (1+ cnt))
) ; repeat
) ; progn
(alert "\nThere is not object")
) ; if
(princ)
) ; defun
----------------
===========
協勤資訊_Mingway