[求助]：如何通过点取一条line，就将所有与之相连的line串成一条pline。

hnfsf · 发表于 2003-5-11 18:53:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何通过点取一条line，就将所有与之相连的line串成一条pline。
就是类似于天正标注房间面积时通过点取墙线搜索边界。

XDSoft · 发表于 2003-5-11 18:55:33

最初由 hnfsf 发布
[B]如何通过点取一条line，就将所有与之相连的line串成一条pline。
就是类似于天正标注房间面积时通过点取墙线搜索边界。 [/B]

已经写过了，去：

晓东工具箱－曲线工具－线变复线

试试。

hnfsf · 发表于 2003-5-11 19:00:03

晓东工具箱－曲线工具－线变复线
要采用窗口选择或者多选才能实现，我的意思是只要点选其中任一直线就能变成复线。
这可以用在布预制板的程序里面，比如我选中了承重墙线，就可以建立房间的边界并显亮，有了这个边界就可以进行后面的计算了。
而且这种做法可以解决墙线不在某特定图层和房间内部有实体存在的问题。

XDSoft · 发表于 2003-5-11 19:08:05

最初由 hnfsf 发布
[B]晓东工具箱－曲线工具－线变复线
要采用窗口选择或者多选才能实现，我的意思是只要点选其中任一直线就能变成复线。 [/B]

交互信息太少不好（对普通的对象工具而言），因为没有特定的过滤信息，如果顶点附近有多个线，就不好判别。

应该灵活用图层工具，孤立，保留，关闭等，让自己需要的实体暴露出来后，不想一个一个选，就输入ALL，或者窗口圈一下，不能连的是不会处理的。

如果到具体专业应用上，可以根据图层信息等，以后写个工具。

你是什么地方用？

hnfsf · 发表于 2003-5-11 19:18:22

这可以用在布预制板的程序里面，比如我选中了承重墙线，就可以建立房间的边界并显亮，有了这个边界就可以进行后面的计算了。不用通过在房间内部点取一点建立边界还要选取布板方向。
而且这种做法可以解决墙线不在某特定图层和房间内部有实体存在的问题。

萧山 · 发表于 2003-5-13 20:21:58

好象不太好用呀

aeo · 发表于 2003-5-15 00:46:28

最初由 hnfsf 发布
[B]这可以用在布预制板的程序里面，比如我选中了承重墙线，就可以建立房间的边界并显亮，有了这个边界就可以进行后面的计算了。不用通过在房间内部点取一点建立边界还要选取布板方向。
而且这种做法可以解决墙线不在某... [/B]

天正3的"房间面积",好象同你的想法一样.
我想无非是在line端点循环求下一个line.

hnfsf · 发表于 2003-5-15 01:06:55

就是，但是她用了自定义的函数，不知道是怎么实现的。所以就在此讨教了。

aeo · 发表于 2003-5-15 20:43:28

今天写了一下,>r2000 要xd_api
只支持首尾相连的.
和你选中的物体同样的图层.

(defun c:pj (/ e ss dxf get-line)
(defun get-line (e0 / li-e get-line1 ss sel2lst)
(defun sel2lst (sel / n l)
(if sel
(repeat (setq n (sslength sel))
(setq n (1- n)
l (cons (ssname sel n) l)
)
)
nil
)
)
(setq li-e (list e0))
(defun get-line1 (e0 / en en1 lay li-ss li-ss-del p1 p2 p3 p4 ss ss1 ss2)
(setq en (vlax-ename->vla-object e0))
(setq p2 (vlax-curve-getEndPoint en)
p1 (vlax-curve-getstartPoint en)
lay (vlax-get-property en "layer")
)
(setq ss1 (ssget "c" (polar p1 (* pi 1.25) 40) (polar p1 (* pi 0.25)
40
) (list (cons 8 lay))
)
)
(setq ss2 (ssget "c" (polar p2 (* pi 1.25) 40) (polar p2 (* pi 0.25)
40
) (list (cons 8 lay))
)
)
(cond
((and
ss1
ss2
)
(setq ss (xdrx_PickSet_Union ss1 ss2))
)
((and
ss1
(not ss2)
)
(setq ss ss1)
)
((and
ss2
(not ss1)
)
(setq ss ss2)
)
(t
nil
)
)
(setq ss (sel2lst ss)
li-ss '()
)
(foreach e ss
(setq en1 (vlax-ename->vla-object e))
(setq p3 (vlax-curve-getEndPoint en1)
p4 (vlax-curve-getstartPoint en1)
)
(if (or
(< (distance p3 p1) 1e-3)
(< (distance p4 p1) 1e-3)
(< (distance p3 p2) 1e-3)
(< (distance p4 p2) 1e-3)
)
(setq li-ss (cons e li-ss))
)
)
(setq li-ss-del '())
(foreach x li-ss
(if (not (member x li-e))
(setq li-e (cons x li-e)
li-ss-del (cons x li-ss-del)
)
)
)
(if (> (length li-ss-del) 0)
(foreach x li-ss-del
(get-line1 x)
)
)
li-e
)
(get-line1 e0)
(setq ss (ssadd))
(foreach x li-e
(ssadd x ss)
)
)
(defun dxf (a b)
(cdr (assoc a b))
)
(if (setq e (xdrx_entsel "\n选多义线，直线，弧线:" '((0 . "*polyline,line,arc"))))
(progn
(setq e (car e)
ss (get-line e)
)
(cond
((and
(wcmatch (dxf 0 (entget e)) "*POLYLINE")
(/= 1 (dxf 70 (entget e)))
)
(command "pedit" e "j" ss "" "")
(princ "\n连上了.")
)
((and
(wcmatch (dxf 0 (entget e)) "*POLYLINE")
(= 1 (dxf 70 (entget e)))
)
(princ "\n闭合的多义线")
)
(t
(command "pedit" e "y" "j" ss "" "")
(princ "\n连上了.")
)
)
)
)
(prin1)
)

(defun c:pj (/ e ss dxf get-line) 
  (defun get-line (e0 / li-e get-line1 ss sel2lst) 
    (defun sel2lst (sel / n l) 
      (if sel 
        (repeat (setq n (sslength sel)) 
          (setq n (1- n) 
                l (cons (ssname sel n) l) 
          ) 
        ) 
        nil 
      ) 
    ) 
    (setq li-e (list e0)) 
    (defun get-line1 (e0 / en en1 lay li-ss li-ss-del p1 p2 p3 p4 ss ss1 ss2) 
      (setq en (vlax-ename->vla-object e0)) 
      (setq p2 (vlax-curve-getEndPoint en) 
            p1 (vlax-curve-getstartPoint en) 
            lay (vlax-get-property en "layer") 
      ) 
      (setq ss1 (ssget "c" (polar p1 (* pi 1.25) 40) (polar p1 (* pi 0.25) 
                                                            40 
                                                     ) (list (cons 8 lay)) 
                ) 
      ) 
      (setq ss2 (ssget "c" (polar p2 (* pi 1.25) 40) (polar p2 (* pi 0.25) 
                                                            40 
                                                     ) (list (cons 8 lay)) 
                ) 
      ) 
      (cond 
        ((and 
           ss1 
           ss2 
         ) 
          (setq ss (xdrx_PickSet_Union ss1 ss2)) 
        ) 
        ((and 
           ss1 
           (not ss2) 
         ) 
          (setq ss ss1) 
        ) 
        ((and 
           ss2 
           (not ss1) 
         ) 
          (setq ss ss2) 
        ) 
        (t 
          nil 
        ) 
      ) 
      (setq ss (sel2lst ss) 
            li-ss '() 
      ) 
      (foreach e ss 
        (setq en1 (vlax-ename->vla-object e)) 
        (setq p3 (vlax-curve-getEndPoint en1) 
              p4 (vlax-curve-getstartPoint en1) 
        ) 
        (if (or 
              (< (distance p3 p1) 1e-3) 
              (< (distance p4 p1) 1e-3) 
              (< (distance p3 p2) 1e-3) 
              (< (distance p4 p2) 1e-3) 
            ) 
          (setq li-ss (cons e li-ss)) 
        ) 
      ) 
      (setq li-ss-del '()) 
      (foreach x li-ss 
        (if (not (member x li-e)) 
          (setq li-e (cons x li-e) 
                li-ss-del (cons x li-ss-del) 
          ) 
        ) 
      ) 
      (if (> (length li-ss-del) 0) 
        (foreach x li-ss-del 
          (get-line1 x) 
        ) 
      ) 
      li-e 
    ) 
    (get-line1 e0) 
    (setq ss (ssadd)) 
    (foreach x li-e 
      (ssadd x ss) 
    ) 
  ) 
  (defun dxf (a b) 
    (cdr (assoc a b)) 
  ) 
  (if (setq e (xdrx_entsel "\n选多义线，直线，弧线:" '((0 . "*polyline,line,arc")))) 
    (progn 
      (setq e (car e) 
            ss (get-line e) 
      ) 
      (cond 
        ((and 
           (wcmatch (dxf 0 (entget e)) "*POLYLINE") 
           (/= 1 (dxf 70 (entget e))) 
         ) 
          (command "pedit" e "j" ss "" "") 
          (princ "\n连上了.") 
        ) 
        ((and 
           (wcmatch (dxf 0 (entget e)) "*POLYLINE") 
           (= 1 (dxf 70 (entget e))) 
         ) 
          (princ "\n闭合的多义线") 
        ) 
        (t 
          (command "pedit" e "y" "j" ss "" "") 
          (princ "\n连上了.") 
        ) 
      ) 
    ) 
  ) 
  (prin1) 
)

eachy · 发表于 2003-5-15 21:30:34

(defun dxf (a b)
(cdr (assoc a b))
)

可以用 (xdrx_setenttodb e) 然后用 xdrx_getentdxf
另 (dxf 0 (entget e)) "*POLYLINE")
在API中还有
xdrx_object_classname

功能：获得对象的DXF名和类名

调用格式：(xdrx_object_classname <对象名>)

例子：Command: (xdrx_object_name (entlast))
("LINE" "AcDbLine")

aeo · 发表于 2003-5-15 21:49:45

最初由 eachy 发布
[B](defun dxf (a b)
(cdr (assoc a b))
)

可以用 (xdrx_setenttodb e) 然后用 xdrx_getentdxf
另 (dxf 0 (entget e)) "*POLYLINE")
在API中还有
xdrx_object_classname

功能：获得对象的DXF名和... [/B]

一样一样的:)

问个问题:
xdrx_GetPtSs
假定已知  p1 p2两点

(setq ss1(xdrx_GetPtSs  p1 "" 10 "WALL"...)
(setq ss2(xdrx_GetPtSs  p2 "" 10 "WALL"...)
两句分别用,好的,放一起时,ss2好的,ss1就是错误的选择集.

所以后面的都改为lisp的了,没用xd-api.
说说怎么回事.

hnfsf · 发表于 2003-5-15 21:53:46

不错，很好用。

aeo · 发表于 2003-5-15 22:02:32

最初由 hnfsf 发布
[B]不错，很好用。 [/B]

2003年05月15日 21:41 编辑过,刚有个地方错了.不知你什么时候看的.

XDSoft · 发表于 2003-5-15 22:09:28

最初由 aeo 发布
[B][QUOTE]最初由 eachy 发布
[B](defun dxf (a b)
(cdr (assoc a b))
)

可以用 (xdrx_setenttodb e) 然后用 xdrx_getentdxf
另 (dxf 0 (entget e)) "*POLYLINE")
在API中还有
xdrx_object_clas... [/B]

为了防止选择集超过ACAD的限制，所以XDRX_API凡是生成选择集的函数，都会返回一个，以前得到的释放。

如果要用多个选择集，可以用

(xdrx_setsstodb ss 0)
(xdrx_setsstodb ss1 1)
......
可以在循环里面嵌套，(xdrx_getentdata 0) (xdrx_getentdata 1)分别得到不同选择集SS,SS1的下一个实体，互相不冲突。

aeo · 发表于 2003-5-15 22:19:44

(cond((and ss1 ss2 ) (setq ss (xdrx_PickSet_Union ss1 ss2)))
((and ss1(not ss2) )(setq ss ss1))
((and ss2 (not ss1) )(setq ss ss2))
(t nil)
)

你看,我只想合并ss1 ss2,压入后怎么合并?????

还有xdrx_PickSet_Union 太不好用了,如果这一个cond,自动识别就好了.不然,ss1为nil,而ss2又有,返回nil.这不是我要的.

账号		自动登录	找回密码
密码			立即注册

[求助]：如何通过点取一条line，就将所有与之相连的line串成一条pline。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：如何通过点取一条line，就将所有与之相连的line串成一条pline。

浏览过的版块