CASS扩展属性丢失

yx1985321

相信大家在工作中，可能都遇到过图形属性丢失的情况吧。想恢复非常的麻烦，本人想通过程序来实现恢复属性：比方房屋通过文字注记来识别并恢复属性，点状物用图块名来识别，有些线状物用线性来识别。当然还是有部分无法恢复，但是毕竟是少数了。请个位高手出来帮忙。下面这是一个写入宗地属性的代码，很好用，以上也是受此程序启发：(defun c:zdsx ( / elist i name num pts qs s1 s2 ss ss0 str1 str2 x xdata)  (setvar "pickstyle" 0)  (if (and (setq ss0 (ssget '((0 . "LWPOLYLINE"))))  (setq i -1)  )  (while (setq qs (ssname ss0 (setq i (1+ i))))    (progn      (setq elist (entget qs '("*"))      elist (vl-remove (assoc -3 elist) elist)      pts (mapcar      'cdr      (vl-remove-if '(lambda (x)           (/= (car x) 10)         ) (entget qs)      )    )      ss (ssget "cp" pts '((0 . "text")))      s1 (ssname ss 0)      s2 (ssname ss 1)      str1 (cdr (assoc 1 (entget s1)))      str2 (cdr (assoc 1 (entget s2)))      )      (if (> (ascii (substr str1 1 1)) 159)  (progn    (setq name (cons 1000 (cdr (assoc 1 (entget s1)))))    (setq num (cons 1000 (cdr (assoc 1 (entget s2)))))  )  (progn    (setq name (cons 1000 (cdr (assoc 1 (entget s2)))))    (setq num (cons 1000 (cdr (assoc 1 (entget s1)))))  )      )      (regapp "SOUTH")      (setq xdata (list -3 (list "SOUTH" (cons 1000 "300000") num name         (cons 1000 "072")         )      )      )      (entmod (append    elist    (list xdata)        )      )    )  )  )  (setvar "pickstyle" 1))；根据宗地内的宗地号和权利人写入宗地扩展属性，地类默认072

dycla2001

挺好用的，