不错,我也加个自己用的函数;
;;;以下函数判断实体是否是CASS实体; ;;;是则返中T,否则返回nil
(defun orcass(entname) ;(setq entname (car (entsel))) (setq jzdtab (entget entname '("*"))) (SETQ casstab (ASSOC -3 JZDTAB)) (if (= "SOUTH" (caar (cdr casstab))) (setq casssouth T) (setq cassouth nil)) )
;;;以下函数返回CASS实体代码; ;;;如果实体不是CASS格式,则返回nil;
(defun casscode(entname) (setq jzdtab (entget entname '("*"))) (SETQ casstab (ASSOC -3 JZDTAB)) (if (= "SOUTH" (caar (cdr casstab))) (setq casscd (cdr (car (cdr (cadr casstab))))) (setq casscd nil)) ) |