[编程申请]：点与线的属性互相传递问题(cass)

huaheroys

东东好！大家好！帮帮我
    我从事的专业是使用CASS软件进行制图，CASS软件有个问题，就是所有的高程点都在同一个图层“GCD”层，我希望它的图层随地物主体层，也就是说，当有其他AutoCAD元体的坐标值（X，Y）与高程点的坐标（X，Y）相同时，将该高程点的图层换成AutoCAD元体的图层，并且将高程点的坐标（X，Y，Z）的Z值传递给AutoCAD元体。

xyp1964

最好发个图作参考。

huaheroys

谢谢了,大哥!

xyp1964

试试吧：

2. [FONT=courier new](load "xyp_lib.vlx")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. ;;;点与线的属性互相传递问题
    
16. (defun c:test ()
    
17.   (CMDLA0)
    
18.   (setq        ss (ssget "X" '((0 . "INSERT") (8 . "GCD")))
    
19.         i  -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (setq pt1 (xyp-get-Dxf 10 s1)
    
23.           dy  (caddr pt1)
    
24.           pt2 (list (- (car pt1) 1) (- (cadr pt1) 1) 0)
    
25.           pt3 (list (+ (car pt1) 1) (+ (cadr pt1) 1) 0)
    
26.     )
    
27.     (setq ss1 (ssget "c" pt2 pt3)
    
28.           j   -1
    
29.     )
    
30.     (command "select" ss1 "r" s1 "")
    
31.     (setq ss1 (ssget "P"))
    
32.     (if        (and (setq ss1 (ssget "P"))
    
33.              (= (sslength ss1) 2)
    
34.         )
    
35.       (progn
    
36.         (while (setq s2 (ssname ss1 (setq j (1+ j))))
    
37.           (setq        etype (xyp-get-Dxf 0 s2)
    
38.                 la    (xyp-get-Dxf 8 s2)
    
39.           )
    
40.           (if (= etype "TEXT")
    
41.             (setq s-text s2)
    
42.             (progn
    
43.               (setq s-o        s2
    
44.                     la1        la
    
45.               )
    
46.             )
    
47.           )
    
48.         )
    
49.         (command "chprop" s1 s-text "" "la" la1 "")
    
50.         (command "move"
    
51.                  s-o
    
52.                  s-text
    
53.                  ""
    
54.                  (list 0 0 0)
    
55.                  (list 0 0 dy)
    
56.         )
    
57.       )
    
58.       (princ"此处存在物体重叠!")
    
59.     )
    
60.   )
    
61.   (CMDLA1)
    
62. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;点与线的属性互相传递问题<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        ss (ssget "X" '((0 . "INSERT") (8 . "GCD")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt1 (xyp-get-Dxf 10 s1)<br />           dy  (caddr pt1)<br />           pt2 (list (- (car pt1) 1) (- (cadr pt1) 1) 0)<br />           pt3 (list (+ (car pt1) 1) (+ (cadr pt1) 1) 0)<br />     )<br />     (setq ss1 (ssget "c" pt2 pt3)<br />           j   -1<br />     )<br />     (command "select" ss1 "r" s1 "")<br />     (setq ss1 (ssget "P"))<br />     (if        (and (setq ss1 (ssget "P"))<br />              (= (sslength ss1) 2)<br />         )<br />       (progn<br />         (while (setq s2 (ssname ss1 (setq j (1+ j))))<br />           (setq        etype (xyp-get-Dxf 0 s2)<br />                 la    (xyp-get-Dxf 8 s2)<br />           )<br />           (if (= etype "TEXT")<br />             (setq s-text s2)<br />             (progn<br />               (setq s-o        s2<br />                     la1        la<br />               )<br />             )<br />           )<br />         )<br />         (command "chprop" s1 s-text "" "la" la1 "")<br />         (command "move"<br />                  s-o<br />                  s-text<br />                  ""<br />                  (list 0 0 0)<br />                  (list 0 0 dy)<br />         )<br />       )<br />       (princ"此处存在物体重叠!")<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

huaheroys

感激涕零！你好！
太感谢你了！
刚刚我试过了，对样例完全行得通，可实际应用时，却有点问题，能麻烦你再帮我一下吗？