块与块连线程序求助

grs432 · 发表于 2014-11-18 17:40:25

本帖最后由 newer 于 2021-2-4 05:02 编辑

未标题-1.gif

想实现如上动画的程序。块与块之间自动连线或者隔1个连接1个（动画只做了块块的连线）。并有连线的数量提示，如动画上的1，2，3。最后将引出回路号（回路号可以自定义，如果引下一次回路可以自动增加回路号），同时标记出线经过块的数量。

1、同时询问一下，线经过块，统计块数量的函数怎么表达。
2、另外的思路是如果是多段线，请问多段线的顶点数量怎么表达。
3、如果图纸上的线经过的块或者是多段线的顶点数量有增加，能实现在单独图层中的数量自动增加吗？

st788796 · 发表于 2014-11-18 17:40:26

grs432 发表于 2014-11-24 11:06
块自动连线的那个就算了，不讨论了，那个没有通用性，还是手动布置线吧，平时好多块不是常规布置。。
...

先写个去点的

(defun c:tt (/ e n bulge p1 p2 d)
(if (setq e (xdrx_entsel "\n点击去除的顶点: " '((0 . "lwpolyline"))))
(progn
(setq n (fix (apply 'xdrx_curve_getparamatpoint e)))
(cond
((zerop n)
(xdrx_polyline_removevertexat (car e) 0)
)
((= n (1- (xdrx_polyline_numverts (car e))))
(xdrx_polyline_removevertexat (car e) (1- n))
)
(t
(setq bulge (xdrx_polyline_getbulgeat (car e) n)
p (xdrx_curve_getpointatparam (car e) (+ n 0.5))
p1 (xdrx_polyline_getpointat (car e) (1- n))
p2 (xdrx_polyline_getpointat (car e) (1+ n))
d (distance
p
(xdrx_line_midp (xdrx_polyline_getpointat (car e) n) p2)
)
)
(xdrx_polyline_removevertexat (car e) n)
(xdrx_polyline_setbulgeat
(car e)
(1- n)
(if (minusp bulge)
(- (/ (* 2.0 d) (distance p1 p2)))
(/ (* 2.0 d) (distance p1 p2))
)
)
)
)
)
)
(princ)
)

(defun c:tt (/ e n bulge p1 p2 d) 
  (if (setq e (xdrx_entsel "\n点击去除的顶点: " '((0 . "lwpolyline")))) 
    (progn 
      (setq n (fix (apply 'xdrx_curve_getparamatpoint e))) 
      (cond 
        ((zerop n) 
         (xdrx_polyline_removevertexat (car e) 0) 
        ) 
        ((= n (1- (xdrx_polyline_numverts (car e)))) 
         (xdrx_polyline_removevertexat (car e) (1- n)) 
        ) 
        (t 
         (setq bulge (xdrx_polyline_getbulgeat (car e) n) 
               p     (xdrx_curve_getpointatparam (car e) (+ n 0.5)) 
               p1    (xdrx_polyline_getpointat (car e) (1- n)) 
               p2    (xdrx_polyline_getpointat (car e) (1+ n)) 
               d     (distance 
                       p 
                       (xdrx_line_midp (xdrx_polyline_getpointat (car e) n) p2) 
                     ) 
         ) 
         (xdrx_polyline_removevertexat (car e) n) 
         (xdrx_polyline_setbulgeat 
           (car e) 
           (1- n) 
           (if (minusp bulge) 
             (- (/ (* 2.0 d) (distance p1 p2))) 
             (/ (* 2.0 d) (distance p1 p2)) 
           ) 
         ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2014-11-18 17:52:26

你把专业描述说清楚，连线不复杂

XDSoft · 发表于 2014-11-18 18:33:20

请把你画好后的成图DWG压缩附上来吧。

grs432 · 发表于 2014-11-19 13:47:51

本帖最后由 grs432 于 2014-11-25 11:11 编辑

XDSoft 发表于 2014-11-18 18:33
请把你画好后的成图DWG压缩附上来吧。

就如附件图纸，回路已经连接好的，，能不能将回路线经过的块的数量分别统计到1个层上，并能导出到EXCEL表中。

grs432 · 发表于 2014-11-19 13:48:35

本帖最后由 grs432 于 2014-11-25 11:10 编辑

st788796 发表于 2014-11-18 17:52
你把专业描述说清楚，连线不复杂

如附件图纸，回路已经连接好的，，能不能将回路线经过的块的数量分别统计到1个层上，并能导出到EXCEL表中。

st788796 · 发表于 2014-11-19 14:04:14

grs432 发表于 2014-11-19 13:48
如附件图纸，回路已经连接好的，，能不能将回路线经过的块的数量分别统计到1个层上，并能导出到EXCEL表中 ...

统计不了,画图不规范

grs432 · 发表于 2014-11-19 15:09:36

st788796 发表于 2014-11-19 14:04
统计不了,画图不规范

能将附件中的回路号和多段线的点统计到EXCEL表中呢？

st788796 · 发表于 2014-11-19 15:16:50

grs432 发表于 2014-11-19 15:09
能将附件中的回路号和多段线的点统计到EXCEL表中呢？

你要是用这种线绘制的话，提取时只要提取 pline 顶点即可

(defun c:tt (/ p pts p d pl)
(while (setq p (if pts
(getpoint (car pts) "\n下一点: ")
(getpoint "\n起点: ")
)
)
(setq pts (cons p pts))
(if (= (length pts) 2)
(progn
(setq
p (getpoint (apply 'xdrx_line_midp pts) "\n弦高: ")
d (* 2 (xdrx_point_dist2line p (cadr pts) (car pts)))
)
(setq pl (xdrx_polyline_make (cadr pts) (car pts)))
(xdrx_polyline_setbulgeat pl 0 (/ d (apply 'distance pts)))
)
)
(if (and pl (> (length pts) 2))
(progn
(setq n (xdrx_polyline_numverts pl))
(xdrx_polyline_setpointat pl (1- n) (car pts))
(xdrx_polyline_addvertexat pl (1- n) (cadr pts))
(xdrx_polyline_setbulgeat
pl
(- n 2)
(/ d (distance (cadr pts) (caddr pts)))
)
(xdrx_polyline_setbulgeat
pl
(1- n)
(/ d (distance (car pts) (cadr pts)))
)
)
)
)
(princ)
)

(defun c:tt (/ p pts p d pl) 
  (while (setq p (if pts 
                   (getpoint (car pts) "\n下一点: ") 
                   (getpoint "\n起点: ") 
                 ) 
         ) 
    (setq pts (cons p pts)) 
    (if        (= (length pts) 2) 
      (progn 
        (setq 
          p (getpoint (apply 'xdrx_line_midp pts) "\n弦高: ") 
          d (* 2 (xdrx_point_dist2line p (cadr pts) (car pts))) 
        ) 
        (setq pl (xdrx_polyline_make (cadr pts) (car pts))) 
        (xdrx_polyline_setbulgeat pl 0 (/ d (apply 'distance pts))) 
      ) 
    ) 
    (if        (and pl (> (length pts) 2)) 
      (progn 
        (setq n (xdrx_polyline_numverts pl)) 
        (xdrx_polyline_setpointat pl (1- n) (car pts)) 
        (xdrx_polyline_addvertexat pl (1- n) (cadr pts)) 
        (xdrx_polyline_setbulgeat 
          pl 
          (- n 2) 
          (/ d (distance (cadr pts) (caddr pts))) 
        ) 
        (xdrx_polyline_setbulgeat 
          pl 
          (1- n) 
          (/ d (distance (car pts) (cadr pts))) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2014-11-19 15:23:14

另外，回路编号最好和连线做成一个组，这样检查方便，另外写出 excel 文件也方便

grs432 · 发表于 2014-11-19 15:39:45

st788796 发表于 2014-11-19 15:23
另外，回路编号最好和连线做成一个组，这样检查方便，另外写出 excel 文件也方便

我加载以后怎么会这样子。乱码。能不能做个演示我看一下，，好像不太明白？

grs432 · 发表于 2014-11-19 15:41:10

grs432 发表于 2014-11-19 15:39
我加载以后怎么会这样子。乱码。能不能做个演示我看一下，，好像不太明白？

手动打组的话，，是不是也能识别！！

st788796 · 发表于 2014-11-19 15:49:54

grs432 发表于 2014-11-19 15:41
手动打组的话，，是不是也能识别！！

你先把 XDAPI 和 xd-lisp-lib.vlx 加载

grs432 · 发表于 2014-11-19 15:51:08

st788796 发表于 2014-11-19 15:16
你要是用这种线绘制的话，提取时只要提取 pline 顶点即可

不好意思，，刚看清你的程序是画线的，，我是了解一下，多段线的顶点数量和与线一起的回路号怎么取出。。

grs432 · 发表于 2014-11-19 15:59:56

st788796 发表于 2014-11-19 15:49
你先把 XDAPI 和 xd-lisp-lib.vlx 加载

这个2个文件我加载过了，，怪我保存lisp语言选的不对。。所以乱码了！！

您能给点多段点顶点数量统计的有关写法吗？主要是怎样识别线上的回路号。

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

[已解决] 块与块连线程序求助

最佳答案

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评