哪位大神帮忙调试一个赋值宗地号到权属线扩展属性的方法

yn1985321

(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

张虎标

张虎标 发表于 2015-1-26 11:18
你好我非常需要这个lisp能帮忙传授一下吗？QQ704592716

你这个有把权利人赋到宗地属性的吗？

任得强

获取多段线判断内部文字，赋值