如何利用程序检查CASS中的必填属性项

jxy308 · 发表于 2015-1-11 17:17

我这里有个例子但是现在还有其他的属性项需要检查如何修改

(defun c:chksx(/ ss len i entname elist j south_list smi_list south_list_code south_list_KID
smi_list_data smi_list_int_structure smi_list_int_function smi_list_int_story
smi_list_int_hight smi_list_char_name smi_list_char_owner ename_layer ename_name
)
;;SOUTH房屋信息:
;;1000 ASCII string Code编码
;;1071 32bit integer KID值
;;smi房屋信息:
;;1070 16bit integer structure房屋结构
;;1070 16bit integer function 房屋用途
;;1070 16bit integer story 房屋层数
;;1070 16bit integer hight 房屋高度
;;1000 ASCII string name 单位名称
;;1000 ASCII string owner 房屋属主
;;1000 ASCII string source 房屋原始资料(04年新增)
;;1000 ASCII string toponym 地址 (04年新增)
(gc)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(princ "\n\n********无属性实体检查:********")
(setq ss(ssget "X"))
(if (/= ss nil)
(progn
(setq len (sslength ss))
(setq i 0)
(setq j 1)
(while (< i len)
(setq entname (ssname ss i))
(setq elist (entget entname (list "*")))
(setq ename_layer(cdr(assoc 8 elist)))
(setq ename_name(cdr(assoc 0 elist)))
(setq f3 (cdr (assoc -3 elist)))
(if(/= f3 nil)(JH_SOUTH_smi f3))
(setq south_list v_south_list)
(setq smi_list v_smi_list)
(setq south_list_code(cdr(car(cdr south_list))))
(setq south_list_KID(cdr(car(cddr south_list))))
(setq smi_list_data(cdr smi_list))
(if(/= smi_list_data nil)
(setq smi_list_int_structure(cdr (nth 0 smi_list_data)) ;;/=-1
smi_list_int_function(cdr (nth 1 smi_list_data)) ;;/=-1
smi_list_int_story(cdr (nth 2 smi_list_data)) ;;/=-1
smi_list_int_hight(cdr (nth 3 smi_list_data))
smi_list_char_name(cdr (nth 4 smi_list_data))
smi_list_char_owner(cdr (nth 5 smi_list_data))
smi_list_char_source(cdr (nth 6 smi_list_data))
smi_list_char_toponym(cdr (nth 7 smi_list_data))
)
)
(if(= f3 nil)
(progn
;(if(= (tblsearch "layer" "ERROR_SX") nil)(command "layer" "m" "ERROR_SX" "C" "6" "ERROR_SX" ""))
;(command "change" entname "" "P" "LA" "ERROR_SX" "")
(if(and(/= ename_name "TEXT")(/= ename_name "INSERT"))
(progn
(command "change" entname "" "P" "C" "6" "")
(princ "\n [")(princ j)(princ "] Layer=")(princ ename_layer)(princ " Entname=")(princ ename_name)
(redraw entname 3)
(setq j (+ j 1))
)
)
)
)
(if(/= f3 nil)
(progn
(if(and(= ename_layer "BUILDING")(or(= ename_name "LWPOLYLINE")(= ename_name "LINE")))
(progn
(if(or(= south_list nil)(= smi_list nil))
(progn
(command "change" entname "" "P" "C" "6" "")
(princ "\n [")(princ j)(princ "] Layer=")(princ ename_layer)(princ " Entname=")(princ ename_name)
(redraw entname 3)
(setq j (+ j 1))
)
);;if(or(= south_list nil)(= smi_list nil))
(if(and(/= south_list nil)(or (= south_list_code nil)(= south_list_code "")))
(progn
(command "change" entname "" "P" "C" "6" "")
(princ "\n [")(princ j)(princ "] Layer=")(princ ename_layer)(princ " Entname=")(princ ename_name)
(redraw entname 3)
(setq j (+ j 1))
)
)
(if(and(/= smi_list nil)(or (= smi_list_int_structure -1)(= smi_list_int_function -1)(= smi_list_int_story -1)))
(progn
(command "change" entname "" "P" "C" "6" "")
(princ "\n [")(princ j)(princ "] Layer=")(princ ename_layer)(princ " Entname=")(princ ename_name)
(redraw entname 3)
(setq j (+ j 1))
)
)
)
);;if(= ename_layer "BUILDING")
(if(and(= ename_layer "89")(= ename_name "TEXT")(= south_list nil))
(progn
(command "change" entname "" "P" "C" "6" "")
(princ "\n [")(princ j)(princ "] Layer=")(princ ename_layer)(princ " Entname=")(princ ename_name)
(redraw entname 3)
(setq j (+ j 1))
)
)
(if(and(= ename_name "INSERT")(= south_list nil))
(progn
(command "change" entname "" "P" "C" "6" "")
(princ "\n [")(princ j)(princ "] Layer=")(princ ename_layer)(princ " Entname=")(princ ename_name)
(redraw entname 3)
(setq j (+ j 1))
)
)
;;---
)
);;if(/= f3 nil)
(setq i (+ i 1))
);;while
(setq j (- j 1))
(princ "\n***** ")(princ "查出无属性实体: ")(princ j)(princ " 个.*****")
)
)
(setq ss nil)
(princ)
(setvar "cmdecho" cmd)
);;end