根据宗地编号合权利人名称批量录入属性

ffian

下面这个程序必须是权属线里有权利人合编号两个属性才能录入，如何让他忽略

1. (defun c:zd (/ elist i name num pts qs s1 s2 ss ss0 str1 str2 x xdata)
   
2.   (setvar "pickstyle" 0)
   
3.   (if (and (setq ss0 (ssget '((0 . "LWPOLYLINE"))))
   
4.            (setq i -1)
   
5.       )
   
6.     (while (setq qs (ssname ss0 (setq i (1+ i))))
   
7.       (progn (setq elist (entget qs '("*"))
   
8.                    elist (vl-remove (assoc -3 elist) elist)
   
9.                    pts         (mapcar 'cdr
   
10.                                  (vl-remove-if
    
11.                                    '(lambda (x)
    
12.                                       (/= (car x) 10)
    
13.                                     )
    
14.                                    (entget qs)
    
15.                                  )
    
16.                          )
    
17.                    ss         (ssget "cp" pts '((0 . "text")))
    
18.                    s1         (ssname ss 0)
    
19.                    s2         (ssname ss 1)
    
20.                    str1         (cdr (assoc 1 (entget s1)))
    
21.                    str2         (cdr (assoc 1 (entget s2)))
    
22.              )
    
23.              (if (> (ascii (substr str1 1 1)) 159)
    
24.                (progn (setq name (cons 1000 (cdr (assoc 1 (entget s1)))))
    
25.                       (setq num (cons 1000 (cdr (assoc 1 (entget s2)))))
    
26.                )
    
27.                (progn (setq name (cons 1000 (cdr (assoc 1 (entget s2)))))
    
28.                       (setq num (cons 1000 (cdr (assoc 1 (entget s1)))))
    
29.                )
    
30.              )
    
31.              (regapp "SOUTH")
    
32.             (setq xdata (list -3
    
33.                                (list "SOUTH"
    
34.                                      (cons 1000 "300000")
    
35.                                      num
    
36.                                      name
    
37.                                      (cons 1000 "072")
    
38.                                )
    
39.                          )
    
40.              )
    
41.              (entmod (append elist (list xdata)))
    
42.       )
    
43.     )
    
44.   )
    
45.   (setvar "pickstyle" 1)
    
46. )

(defun c:zd (/ elist i name num pts qs s1 s2 ss ss0 str1 str2 x xdata)<br />   (setvar "pickstyle" 0)<br />   (if (and (setq ss0 (ssget '((0 . "LWPOLYLINE"))))<br />            (setq i -1)<br />       )<br />     (while (setq qs (ssname ss0 (setq i (1+ i))))<br />       (progn (setq elist (entget qs '("*"))<br />                    elist (vl-remove (assoc -3 elist) elist)<br />                    pts         (mapcar 'cdr<br />                                  (vl-remove-if<br />                                    '(lambda (x)<br />                                       (/= (car x) 10)<br />                                     )<br />                                    (entget qs)<br />                                  )<br />                          )<br />                    ss         (ssget "cp" pts '((0 . "text")))<br />                    s1         (ssname ss 0)<br />                    s2         (ssname ss 1)<br />                    str1         (cdr (assoc 1 (entget s1)))<br />                    str2         (cdr (assoc 1 (entget s2)))<br />              )<br />              (if (> (ascii (substr str1 1 1)) 159)<br />                (progn (setq name (cons 1000 (cdr (assoc 1 (entget s1)))))<br />                       (setq num (cons 1000 (cdr (assoc 1 (entget s2)))))<br />                )<br />                (progn (setq name (cons 1000 (cdr (assoc 1 (entget s2)))))<br />                       (setq num (cons 1000 (cdr (assoc 1 (entget s1)))))<br />                )<br />              )<br />              (regapp "SOUTH")<br />             (setq xdata (list -3<br />                                (list "SOUTH"<br />                                      (cons 1000 "300000")<br />                                      num<br />                                      name<br />                                      (cons 1000 "072")<br />                                )<br />                          )<br />              )<br />              (entmod (append elist (list xdata)))<br />       )<br />     )<br />   )<br />   (setvar "pickstyle" 1)<br /> )

来自: 微社区

marting

1、如果有两个文字，录入名字和数量
2、如果只有一个文字，
          如果文字是汉字，录入名，数量录入""
          如果非汉字， 名字录入"" , 数量录入数

1. (defun c:zd (/ elist i name num pts qs s1 s2 ss ss0 str1 str2 x xdata)
   
2.   (setvar "pickstyle" 0)
   
3.   (if (and (setq ss0 (ssget '((0 . "LWPOLYLINE")))) (setq i -1))
   
4.     (while (setq qs (ssname ss0 (setq i (1+ i))))
   
5.       (progn
   
6.         (setq elist (entget qs '("*"))
   
7.               elist (vl-remove (assoc -3 elist) elist)
   
8.               pts   (mapcar
   
9.                       'cdr
   
10.                       (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget qs))
    
11.                     )
    
12.         )
    
13.         (if (setq ss (ssget "cp" pts '((0 . "text"))))
    
14.           (progn
    
15.             (setq len (sslength ss))
    
16.             (setq s1   (ssname ss 0)
    
17.                   str1 (cdr (assoc 1 (entget s1)))
    
18.             )
    
19.             (cond ((>= len 2)
    
20.                    (setq s2   (ssname ss 1)
    
21.                          str2 (cdr (assoc 1 (entget s2)))
    
22.                    )
    
23.                    (if (> (ascii (substr str1 1 1)) 159)
    
24.                      (progn (setq name (cons 1000 str1))
    
25.                             (setq num (cons 1000 str2))
    
26.                      )
    
27.                      (progn (setq name (cons 1000 str2))
    
28.                             (setq num (cons 1000 str1))
    
29.                      )
    
30.                    )
    
31.                   )
    
32.                   ((= len 1)
    
33.                    (if (> (ascii (substr str1 1 1)) 159)
    
34.                      (progn (setq name (cons 1000 str1))
    
35.                             (setq num (cons 1000 ""))
    
36.                      )
    
37.                      (progn (setq name "") (setq num (cons 1000 str1)))
    
38.                    )
    
39.                   )
    
40.             )
    
41.             (regapp "SOUTH")
    
42.             (setq xdata        (list -3
    
43.                               (list "SOUTH"
    
44.                                     (cons 1000 "300000")
    
45.                                     num
    
46.                                     name
    
47.                                     (cons 1000 "072")
    
48.                               )
    
49.                         )
    
50.             )
    
51.             (entmod (append elist (list xdata)))
    
52.           )
    
53.         )
    
54.       )
    
55.     )
    
56.   )
    
57.   (setvar "pickstyle" 1)
    
58.   (princ)
    
59. )
    
60. 
    

(defun c:zd (/ elist i name num pts qs s1 s2 ss ss0 str1 str2 x xdata)<br />   (setvar "pickstyle" 0)<br />   (if (and (setq ss0 (ssget '((0 . "LWPOLYLINE")))) (setq i -1))<br />     (while (setq qs (ssname ss0 (setq i (1+ i))))<br />       (progn<br />         (setq elist (entget qs '("*"))<br />               elist (vl-remove (assoc -3 elist) elist)<br />               pts   (mapcar<br />                       'cdr<br />                       (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget qs))<br />                     )<br />         )<br />         (if (setq ss (ssget "cp" pts '((0 . "text"))))<br />           (progn<br />             (setq len (sslength ss))<br />             (setq s1   (ssname ss 0)<br />                   str1 (cdr (assoc 1 (entget s1)))<br />             )<br />             (cond ((>= len 2)<br />                    (setq s2   (ssname ss 1)<br />                          str2 (cdr (assoc 1 (entget s2)))<br />                    )<br />                    (if (> (ascii (substr str1 1 1)) 159)<br />                      (progn (setq name (cons 1000 str1))<br />                             (setq num (cons 1000 str2))<br />                      )<br />                      (progn (setq name (cons 1000 str2))<br />                             (setq num (cons 1000 str1))<br />                      )<br />                    )<br />                   )<br />                   ((= len 1)<br />                    (if (> (ascii (substr str1 1 1)) 159)<br />                      (progn (setq name (cons 1000 str1))<br />                             (setq num (cons 1000 ""))<br />                      )<br />                      (progn (setq name "") (setq num (cons 1000 str1)))<br />                    )<br />                   )<br />             )<br />             (regapp "SOUTH")<br />             (setq xdata        (list -3<br />                               (list "SOUTH"<br />                                     (cons 1000 "300000")<br />                                     num<br />                                     name<br />                                     (cons 1000 "072")<br />                               )<br />                         )<br />             )<br />             (entmod (append elist (list xdata)))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (setvar "pickstyle" 1)<br />   (princ)<br /> )<br /> <br />

ffian

   (setq xdata (list -3
                               (list "SOUTH"
                                     (cons 1000 "300000")
                                     num
                                     name
                                     (cons 1000 "072")
                               )
                         )
             )
             (entmod (append elist (list xdata)))
      )
    )
  )
  (setvar "pickstyle" 1)
)
；根据宗地内的宗地号和权利人写入宗地扩展属性，地类默认072
来自: 微社区

ffian

这个代码必须是宗地内有权利人号宗地号才能成功录入，，几百个宗地里但凡有一个缺的录不进去的，会报错导致程序停止一个没录进去，如何让他忽略错误的先把没问题的录入
来自: 微社区

ffian

哪位大神可以写一个注释也行，学习一下，这是我从论坛里抄来的
来自: 微社区

ffian

ffian 发表于 2019-1-4 01:59
哪位大神可以写一个注释也行，学习一下，这是我从论坛里抄来的

吧里有大神可以指导一下么急用，想要学习
来自: 微社区

ffian

marting 发表于 2019-1-5 01:34
1、如果有两个文字，录入名字和数量
2、如果只有一个文字，
          如果文字是汉字，录入名，数量录入 ...

等了一天了大shen
来自: 微社区

ffian

marting 发表于 2019-1-5 01:34
1、如果有两个文字，录入名字和数量
2、如果只有一个文字，
          如果文字是汉字，录入名，数量录入 ...

表示万分感谢
来自: 微社区

xudi1234

有演示的吗？

ffian

经过测试我有350条权属线只录入327数据剩下的23条未成功录入信息的权属线如何才能查找到。？，对于权属线里文字为空的或者文字数量大于3的，或者未录入有问题的权属线怎么才能通过改变颜色来找到他？还是通过其他方式找到它。我把代码和件样例上传了麻烦大神给我一个思路

ffian

请忽略图件中的带括号的数字我是把他充当做名字，我并没有理解为什么他会把这个当作文字。
代码中这一段(ascii (substr str1 1 1)) 159)大于159        ascii码中159 代表什么含义

ffian

我之前用这个插件一直认为他是通过权属线内的元素空间位置来录入信息的
，现在才明白他是通过识别文字和数字的，但是图例中的编码也可以正常录入，可以详细解释一下这段代码么
。想要学习
但是无从下手

ffian

吧里有收藏关于cass属性方面的lisp的帖子么或者网站么，如何学习
来自: 微社区

ffian

关于图件，他之前是多段线，然后我统一刷成权属线了，之前权属线的属性是全空的现在已经通过插件录入一部分属性录
来自: 微社区

Lisphk

ffian 发表于 2019-1-6 01:38
请忽略图件中的带括号的数字我是把他充当做名字，我并没有理解为什么他会把这个当作文字。
代码中这一段(a ...

>159 表明是汉字