结构图与建筑图中实体数据传递

roominess

本人工作中需处理大量的墙体高度问题！！！！！！！！！！！！！！！！！！！


结构图中的梁高　已用不同的颜色的实体加以区分，怎样将这种区分传递给在各自梁下的建筑图中的墙体

meflying

有一个不管专业的提问...谁知道什么是梁,什么又是墙体?又怎么传递?

roominess

对不起了，举个通俗的例子，"梁"图层中的多条不同颜色的多义线，在"墙"图层中相应的位置有方向相同，但长短不完全一致的线，如何将大量的多义线的颜色分别传给相应位置的墙层中的线，


我还是不知说明白了没有

meflying

给个图吧,要传颜色很简单,就是要确定谁传给谁不知道麻不麻烦

roominess

马上来

roominess

先谢了

roominess

我见过一个思路大概是这样的


选中梁图层中的线


处理墙线时进一步用ssget窗口选中范围内墙图层中的实体


传递


释放墙线


处理下一个实体

meflying

就你这个图,下面的程序能解决,但不知道你真正的图中是否有别的情况,主要是 1.梁为lwpolyline,而且只有两个顶点,没有圆弧2.墙为LINE,

2. (defun Check(ents1 ents2 / ptc pt1 pt2)
3.    (setq ptc (mapcar '(lambda(e1 e2) (/ (+ e1 e2) 2.0)) (cdr (assoc 10 ents2)) (cdr (assoc 11 ents2))))
4.    (setq pt1 (cdr (assoc 10 ents1)))
5.    (setq pt2 (cdr (assoc 10 (cdr (member (assoc 10 ents1) ents1)))))
6.    (if (equal (angle pt1 ptc) (angle ptc pt2) 0.000001)
7.        t
8.        nil
9.    )
10. )
11. (defun c:test( / ss1 ss2 ents1 ents2 ent2 i j)
12.    (setq ss1 (ssget "x" '((0 . "LWPOLYLINE") (8 . "梁"))))
13.    (setq ss2 (ssget "x" '((0 . "LINE") (8 . "墙"))))
14.    (if (and ss1 ss2)
15.        (progn
16.            (setq i 0)
17.            (repeat (sslength ss1)
18.   (setq ents1 (entget (ssname ss1 i)))
19.   (setq j 0)
20.   (while (< j (sslength ss2))
21.      (setq ent2 (ssname ss2 j))
22.      (setq ents2 (entget ent2))
23.      (if (check ents1 ents2)
24.          (progn
25.              (if (assoc 62 ents1) (setq color (cdr (assoc 62 ents1))) (setq color 256))
26.              (if (assoc 62 ents2)
27.     (setq ents2 (subst (cons 62 color) (assoc 62 ents2) ents2))
28.     (setq ents2 (append ents2 (list (cons 62 color))))
29.              )
30.              (entmod ents2)
31.              (ssdel ent2 ss2)
32.          );progn
33.          (setq j (1+ j))
34.      );if
35.   );while
36.   (setq i (1+ i))
37.            );repeat
38.        );progn
39.    );if
40.    (princ)
41. )

(defun Check(ents1 ents2 / ptc pt1 pt2)    (setq ptc (mapcar '(lambda(e1 e2) (/ (+ e1 e2) 2.0)) (cdr (assoc 10 ents2)) (cdr (assoc 11 ents2))))    (setq pt1 (cdr (assoc 10 ents1)))    (setq pt2 (cdr (assoc 10 (cdr (member (assoc 10 ents1) ents1)))))    (if (equal (angle pt1 ptc) (angle ptc pt2) 0.000001)        t        nil    ) ) (defun c:test( / ss1 ss2 ents1 ents2 ent2 i j)    (setq ss1 (ssget "x" '((0 . "LWPOLYLINE") (8 . "梁"))))    (setq ss2 (ssget "x" '((0 . "LINE") (8 . "墙"))))    (if (and ss1 ss2)        (progn            (setq i 0)            (repeat (sslength ss1)   (setq ents1 (entget (ssname ss1 i)))   (setq j 0)   (while (< j (sslength ss2))      (setq ent2 (ssname ss2 j))      (setq ents2 (entget ent2))      (if (check ents1 ents2)          (progn              (if (assoc 62 ents1) (setq color (cdr (assoc 62 ents1))) (setq color 256))              (if (assoc 62 ents2)     (setq ents2 (subst (cons 62 color) (assoc 62 ents2) ents2))     (setq ents2 (append ents2 (list (cons 62 color))))              )              (entmod ents2)              (ssdel ent2 ss2)          );progn          (setq j (1+ j))      );if   );while   (setq i (1+ i))            );repeat        );progn    );if    (princ) )

     

roominess

我只能说：这世界太棒了，明经太棒了


再次谢了