CASS宗地属性修改示例

lockmyeye

2. (vl-load-com)
3. ;; 条目名称 SOUTHDIJI
4. ;; 选择宗地界址线
5. (defun c:bak ()
6.   ;; 获得JZD层上的闭合线选择集，必须带有扩展数据("SOUTH" (1000 . "300000"))。
7.   (setq ss    (ssget "x" '((0 . "*LINE") (8 . "JZD") (-4 . "&=") (70 . 1) (-3 ("SOUTH" (1000 . "300000")))))
8. Index 0
9.   )
10.   (repeat (if ss
11.      (sslength ss)
12.      0
13.    )
14.     (setq Ename        (ssname ss Index)
15.    Index        (1+ Index)
16.    Edata        (entget Ename '("SOUTH"))
17.    ;; 找出对象所指向的词典。
18.    ;;“{ACAD_XDICTIONARY”表示扩展词典组的起点。
19.    Edata360     (cdr (member '(102 . "{ACAD_XDICTIONARY") Edata))
20.    XrEnameSouth nil
21.     )
22.     (if Edata360
23.       (progn
24. ;; 360 所有者词典的硬所有者 ID/句柄。
25. ;; 在此不考虑出现多个360的情况，感觉这种情况不应该存在。
26. (setq DEname    (cdr (assoc '360 Edata360)) ;_词典对象。
27.        DEdata    (entget DEname) ;_词典数据。
28.        ;;条目名称SOUTHDIJI所对应的XRECORD对象
29.        XrEnameSouth (cdr (assoc '360 (cdr (member '(3 . "SOUTHDIJI") DEdata))))
30. )
31.       )
32.     )
33.     (if XrEnameSouth
34.       (progn
35. (setq XrObj (vlax-ename->vla-object XrEnameSouth))
36. (vla-getxrecorddata XrObj 'Ty 'Data)
37. (vlax-safearray-put-element Data 0 "区号100")
38. (vlax-safearray-put-element Data 1 "区号100")
39. (vlax-safearray-put-element Data 2 "区号100")
40. (vla-setxrecorddata XrObj (vlax-make-variant Ty) (vlax-make-variant Data))
41. (vlax-release-object XrObj)
42.       )
43.       (progn
44. ;; 没有对应的词典，找不到宗地属。
45. (princ (strcat "\\n句柄：[" (cdr (assoc '5 Edata)) "]所指的对象没有宗地属性。"))
46.       )
47.     )
48.   )
49.   (princ)
50. )
52. (princ)

(vl-load-com) ;; 条目名称 SOUTHDIJI ;; 选择宗地界址线 (defun c:bak ()   ;; 获得JZD层上的闭合线选择集，必须带有扩展数据("SOUTH" (1000 . "300000"))。   (setq ss    (ssget "x" '((0 . "*LINE") (8 . "JZD") (-4 . "&=") (70 . 1) (-3 ("SOUTH" (1000 . "300000"))))) Index 0   )   (repeat (if ss      (sslength ss)      0    )     (setq Ename        (ssname ss Index)    Index        (1+ Index)    Edata        (entget Ename '("SOUTH"))    ;; 找出对象所指向的词典。    ;;“{ACAD_XDICTIONARY”表示扩展词典组的起点。    Edata360     (cdr (member '(102 . "{ACAD_XDICTIONARY") Edata))    XrEnameSouth nil     )     (if Edata360       (progn ;; 360 所有者词典的硬所有者 ID/句柄。 ;; 在此不考虑出现多个360的情况，感觉这种情况不应该存在。 (setq DEname    (cdr (assoc '360 Edata360)) ;_词典对象。        DEdata    (entget DEname) ;_词典数据。        ;;条目名称SOUTHDIJI所对应的XRECORD对象        XrEnameSouth (cdr (assoc '360 (cdr (member '(3 . "SOUTHDIJI") DEdata)))) )       )     )     (if XrEnameSouth       (progn (setq XrObj (vlax-ename->vla-object XrEnameSouth)) (vla-getxrecorddata XrObj 'Ty 'Data) (vlax-safearray-put-element Data 0 "区号100") (vlax-safearray-put-element Data 1 "区号100") (vlax-safearray-put-element Data 2 "区号100") (vla-setxrecorddata XrObj (vlax-make-variant Ty) (vlax-make-variant Data)) (vlax-release-object XrObj)       )       (progn ;; 没有对应的词典，找不到宗地属。 (princ (strcat "\\n句柄：[" (cdr (assoc '5 Edata)) "]所指的对象没有宗地属性。"))       )     )   )   (princ) ) (princ)

相关资料《提取CASS宗地属性的代码》
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=62482&replyID=&skin=1

yhly555

正好需要，收下了，谢谢！

479274135

我去 原来这里有呀  我当时好的头疼自己写了个....

wkq004

只是将原代码格式化了一下,着色方便阅读

1. (vl-load-com)
   
2. ;; 条目名称 SOUTHDIJI
   
3. ;; 选择宗地界址线
   
4. (defun c:bak ()
   
5.   ;; 获得JZD层上的闭合线选择集，必须带有扩展数据("SOUTH" (1000 . "300000"))。
   
6.   (setq ss    (ssget "x" '((0 . "*LINE") (8 . "JZD") (-4 . "&=") (70 . 1) (-3 ("SOUTH" (1000 . "300000"))))) Index 0)
   
7.   (repeat (if ss (sslength ss) 0)
   
8.     (setq Ename        (ssname ss Index)
   
9.           Index        (1+ Index)
   
10.           Edata        (entget Ename '("SOUTH"))
    
11.           ;; 找出对象所指向的词典。
    
12.           ;;“{ACAD_XDICTIONARY”表示扩展词典组的起点。
    
13.           Edata360     (cdr (member '(102 . "{ACAD_XDICTIONARY") Edata))
    
14.           XrEnameSouth nil     )
    
15.     (if Edata360
    
16.       (progn
    
17.         ;; 360 所有者词典的硬所有者 ID/句柄。
    
18.         ;; 在此不考虑出现多个360的情况，感觉这种情况不应该存在。
    
19.         (setq DEname    (cdr (assoc '360 Edata360)) ;_词典对象。
    
20.               DEdata    (entget DEname) ;_词典数据。
    
21.               ;;条目名称SOUTHDIJI所对应的XRECORD对象
    
22.               XrEnameSouth (cdr (assoc '360 (cdr (member '(3 . "SOUTHDIJI") DEdata)))))))
    
23.     (if XrEnameSouth
    
24.       (progn
    
25.         (setq XrObj (vlax-ename->vla-object XrEnameSouth))
    
26.         (vla-getxrecorddata XrObj 'Ty 'Data)
    
27.         (vlax-safearray-put-element Data 0 "区号100")
    
28.         (vlax-safearray-put-element Data 1 "区号100")
    
29.         (vlax-safearray-put-element Data 2 "区号100")
    
30.         (vla-setxrecorddata XrObj (vlax-make-variant Ty) (vlax-make-variant Data))
    
31.         (vlax-release-object XrObj)
    
32.         )
    
33.       (progn
    
34.         ;; 没有对应的词典，找不到宗地属。
    
35.         (princ (strcat "\\n句柄：[" (cdr (assoc '5 Edata)) "]所指的对象没有宗地属性。"))
    
36.         )
    
37.       )
    
38.     )
    
39.   (princ)
    
40.   )
    
41. (princ)
    

(vl-load-com) <br /> ;; 条目名称 SOUTHDIJI <br /> ;; 选择宗地界址线 <br /> (defun c:bak ()<br />   ;; 获得JZD层上的闭合线选择集，必须带有扩展数据("SOUTH" (1000 . "300000"))。<br />   (setq ss    (ssget "x" '((0 . "*LINE") (8 . "JZD") (-4 . "&=") (70 . 1) (-3 ("SOUTH" (1000 . "300000"))))) Index 0)<br />   (repeat (if ss (sslength ss) 0)<br />     (setq Ename        (ssname ss Index)<br />           Index        (1+ Index)<br />           Edata        (entget Ename '("SOUTH"))<br />           ;; 找出对象所指向的词典。<br />           ;;“{ACAD_XDICTIONARY”表示扩展词典组的起点。<br />           Edata360     (cdr (member '(102 . "{ACAD_XDICTIONARY") Edata))<br />           XrEnameSouth nil     )<br />     (if Edata360<br />       (progn<br />         ;; 360 所有者词典的硬所有者 ID/句柄。<br />         ;; 在此不考虑出现多个360的情况，感觉这种情况不应该存在。<br />         (setq DEname    (cdr (assoc '360 Edata360)) ;_词典对象。<br />               DEdata    (entget DEname) ;_词典数据。<br />               ;;条目名称SOUTHDIJI所对应的XRECORD对象<br />               XrEnameSouth (cdr (assoc '360 (cdr (member '(3 . "SOUTHDIJI") DEdata)))))))<br />     (if XrEnameSouth<br />       (progn<br />         (setq XrObj (vlax-ename->vla-object XrEnameSouth))<br />         (vla-getxrecorddata XrObj 'Ty 'Data)<br />         (vlax-safearray-put-element Data 0 "区号100")<br />         (vlax-safearray-put-element Data 1 "区号100")<br />         (vlax-safearray-put-element Data 2 "区号100")<br />         (vla-setxrecorddata XrObj (vlax-make-variant Ty) (vlax-make-variant Data))<br />         (vlax-release-object XrObj)<br />         )<br />       (progn<br />         ;; 没有对应的词典，找不到宗地属。<br />         (princ (strcat "\\n句柄：[" (cdr (assoc '5 Edata)) "]所指的对象没有宗地属性。"))<br />         )<br />       )<br />     )<br />   (princ)<br />   )<br /> (princ)<br />

caddog

CASS9.1的界址线数据里已经没有 (102 . "{ACAD_XDICTIONARY") 了。数据又是存在哪里去了呢？