块与块连线程序求助

grs432 · 发表于 2014-11-21 12:28:33

st788796 发表于 2014-11-21 11:51
首先，没有这样画过，只是凭自己想象出的操作模式写的程序，和实际应用肯定有距离

再者，你把实际中所 ...

另外，此次工具从开始我都是以通过多段线的顶点这个思路来统计经过块的数量，，那么有多段线经过多少个块的算法吗？？且可以将块名和块的数量也打包在组中。

iLisp · 发表于 2014-11-21 12:42:04

成组了，实体都有还愁数量和名称！

grs432 · 发表于 2014-11-21 13:31:31

iLisp 发表于 2014-11-21 12:42
成组了，实体都有还愁数量和名称！

不是，以前成组只是多段线在组里了，我这次说的是多段线经过的块，块的不在组内。我了解组内的东西是好统计的。

st788796 · 发表于 2014-11-21 16:27:59

grs432 发表于 2014-11-21 13:31
不是，以前成组只是多段线在组里了，我这次说的是多段线经过的块，块的不在组内。我了解组内的东西是好统 ...

你试试这个选择一个回路上的块自动连线，对有尖角的地方会有交叉
算法虽不高效，数量不多的时候能够接受

(defun c:tt (/ _path ss p lst nl)
(defun _Path (pts p / ptl)
(setq pts (vl-remove p pts)
ptl (list p)
)
(while pts
(setq
p (car
(vl-sort
pts
'(lambda (x1 x2)
(< (distance (car ptl) x1) (distance (car ptl) x2))
)
)
)
)
(setq ptl (cons p ptl))
(setq pts (vl-remove p pts))
)
(reverse ptl)
)
(if (and (setq ss (ssget '((0 . "insert"))))
(setq p (getpoint "\n起点: "))
)
(progn
(setq lst (mapcar '(lambda (x)
(xdrx_getpropertyvalue x "position")
)
(xdrx_pickset->ents ss)
)
nl (_path lst p)
)
(apply 'xdrx_polyline_make nl)
)
)
(princ)
)

(defun c:tt (/ _path ss p lst nl) 
  (defun _Path (pts p / ptl) 
    (setq pts (vl-remove p pts) 
          ptl (list p) 
    ) 
    (while pts 
      (setq 
        p (car 
            (vl-sort 
              pts 
              '(lambda (x1 x2) 
                 (< (distance (car ptl) x1) (distance (car ptl) x2)) 
               ) 
            ) 
          ) 
      ) 
      (setq ptl (cons p ptl)) 
      (setq pts (vl-remove p pts)) 
    ) 
    (reverse ptl) 
  ) 
  (if (and (setq ss (ssget '((0 . "insert")))) 
           (setq p (getpoint "\n起点: ")) 
      ) 
    (progn 
      (setq lst        (mapcar        '(lambda (x) 
                           (xdrx_getpropertyvalue x "position") 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
            nl        (_path lst p) 
      ) 
      (apply 'xdrx_polyline_make nl) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2014-11-21 17:05:25

画线的时候把块也选上，要求选点是块的插入点且这个插入点处要有实体（块为圆，中心为插入点时无法选中）
支持回退

(defun c:tt (/ p pts p d pl pl1 p1 str tf blk ss blst)
(while (progn
(initget 128 "U")
(setq p (if pts
(getpoint (car pts) "\n下一点[回退(U)]: ")
(getpoint "\n起点: ")
)
)
)
(if (listp p)
(progn
(setq pts (cons p pts))
(if
(and (setq ss (xdrx_pickset_getatpoint p '((0 . "insert"))))
(setq blk
(car (vl-remove-if-not
'(lambda (x)
(equal p
(xdrx_getpropertyvalue x "position")
)
)
(xdrx_pickset->ents ss)
)
)
)
)
(setq blst (cons blk blst))
)
(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)))
)
)
)
)
(cond
((and pl (= (xdrx_polyline_numverts pl) 2))
(xdrx_entity_delete pl)
(setq pl nil)
(setq pts (cdr pts))
)
((= (length pts) 1)
(setq pts nil)
)
(t
(xdrx_polyline_removevertexat
pl
(1- (xdrx_polyline_numverts pl))
)
(setq pts (cdr pts))
)
)
)
)
(if (and pl
(if (setq p (getpoint "\n引出点<回车端点>: "))
(progn
(setq tf nil)
p
)
(setq tf t
p (xdrx_curve_getendpoint pl)
)
)
(setq p1 (getpoint p "\n标注点: "))
(setq str (getstring "\n回路编号: "))
)
(progn
(setq
txt (xdrx_text_make p1 (strcase str) (getvar "textsize") 0.0)
pl1 (xdrx_polyline_make p p1)
)
(xdrx_polyline_setbulgeat pl1 0 0.5)
(if tf
(progn
(xdrx_curve_join pl pl1)
(xdrx_group_make "*" pl txt blst)
)
(xdrx_group_make "*" pl txt pl1 blst)
)
)
)
(princ)
)

(defun c:tt (/ p pts p d pl pl1 p1 str tf blk ss blst) 
  (while (progn 
           (initget 128 "U") 
           (setq p (if pts 
                     (getpoint (car pts) "\n下一点[回退(U)]: ") 
                     (getpoint "\n起点: ") 
                   ) 
           ) 
         ) 
    (if        (listp p) 
      (progn 
        (setq pts (cons p pts)) 
        (if 
          (and (setq ss (xdrx_pickset_getatpoint p '((0 . "insert")))) 
               (setq blk 
                      (car (vl-remove-if-not 
                             '(lambda (x) 
                                (equal p 
                                       (xdrx_getpropertyvalue x "position") 
                                ) 
                              ) 
                             (xdrx_pickset->ents ss) 
                           ) 
                      ) 
               ) 
          ) 
           (setq blst (cons blk blst)) 
        ) 
        (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))) 
            ) 
          ) 
        ) 
      ) 
      (cond 
        ((and pl (= (xdrx_polyline_numverts pl) 2)) 
         (xdrx_entity_delete pl) 
         (setq pl nil) 
         (setq pts (cdr pts)) 
        ) 
        ((= (length pts) 1) 
         (setq pts nil) 
        ) 
        (t 
         (xdrx_polyline_removevertexat 
           pl 
           (1- (xdrx_polyline_numverts pl)) 
         ) 
         (setq pts (cdr pts)) 
        ) 
      ) 
    ) 
  ) 
  (if (and pl 
           (if (setq p (getpoint "\n引出点<回车端点>: ")) 
             (progn 
               (setq tf nil) 
               p 
             ) 
             (setq tf t 
                   p  (xdrx_curve_getendpoint pl) 
             ) 
           ) 
           (setq p1 (getpoint p "\n标注点: ")) 
           (setq str (getstring "\n回路编号: ")) 
      ) 
    (progn 
      (setq 
        txt (xdrx_text_make p1 (strcase str) (getvar "textsize") 0.0) 
        pl1 (xdrx_polyline_make p p1) 
      ) 
      (xdrx_polyline_setbulgeat pl1 0 0.5) 
      (if tf 
        (progn 
          (xdrx_curve_join pl pl1) 
          (xdrx_group_make "*" pl txt blst) 
        ) 
        (xdrx_group_make "*" pl txt pl1 blst) 
      ) 
    ) 
  ) 
  (princ) 
)

iLisp · 发表于 2014-11-21 21:41:18

本帖最后由 iLisp 于 2014-11-21 21:59 编辑

st788796 发表于 2014-11-21 17:05
画线的时候把块也选上，要求选点是块的插入点且这个插入点处要有实体（块为圆，中心为插入点时无法选中） ...

可以搜索“最小路径覆盖”问题及算法，正向找还要反向检查无交叉

grs432 · 发表于 2014-11-24 09:59:12

st788796 发表于 2014-11-21 16:27
你试试这个选择一个回路上的块自动连线，对有尖角的地方会有交叉
算法虽不高效，数量不多的时候能够接受 ...

这个自动连线的我试了，块与块的自动连线没有问题。。但是一般连线的话，都是规则的多段线弧线，且是隔1个块连1个块的。

grs432 · 发表于 2014-11-24 10:05:38

st788796 发表于 2014-11-21 17:05
画线的时候把块也选上，要求选点是块的插入点且这个插入点处要有实体（块为圆，中心为插入点时无法选中） ...

试过回退功能，，真的很棒的。。
如果在画回路号时能每画1个回路，回路的尾号可以自动增加就好了。。
如画AL1-WL01 ，，AL1-WL02，。。。。。AL1-WL10 要换成AL2-WL01，AL2-WL02，。。。。。AL2-WL10。
其实效果和前缀编号的程序一样。指定1个前缀，就自动增加。

另外，还有上次说的，组内的统计的是（回路号数量），不知道能否增加块名？组内的统计为（回路号块名数量）

st788796 · 发表于 2014-11-24 10:19:48

grs432 发表于 2014-11-24 10:05
试过回退功能，，真的很棒的。。
如果在画回路号时能每画1个回路，回路的尾号可以自动增加就好了。。
...

用哪个继续写呢？

grs432 · 发表于 2014-11-24 11:06:28

st788796 发表于 2014-11-24 10:19
用哪个继续写呢？

块自动连线的那个就算了，不讨论了，那个没有通用性，还是手动布置线吧，平时好多块不是常规布置。。

程序就在支持回退功能上写吧，我测试了，很好的。。
1、我觉得现在就支持回路编号自动增加。

2、组内统计那个帖子
组内统计把块名加入就足够用了。统计数据如下（回路号，线经过的块名，多段线顶点数量）

3、另外功能增强的工具
就是在原来打好的组中加入或减少多段线顶点，此功能是为了修改或增加作用的。

grs432 · 发表于 2014-11-24 17:19:49

st788796 发表于 2014-11-24 12:07
先写个去点的

我今天刚想试程序，，这CAD的组不能用了，不显示组了。。疯了的节奏。。
又出现下面这个对话框。。唉！造什么孽了。
QQ图片20141124171808.jpg

st788796 · 发表于 2014-11-24 17:30:06

ctrl + h 组开关，值为 1 是开

grs432 · 发表于 2014-11-25 11:10:24

st788796 发表于 2014-11-24 17:30
ctrl + h 组开关，值为 1 是开

问题解决了，谢谢st788796 程序减点测试完美，方便很多呀！差点瞬间的事呀！

通过这一轮的交流和问答，，真的是学到了好多的知识！再次感谢st788796 的帮助

一步步接近了完美，，真的是好高兴呀！

现在真希望组内加线和组内统计加入块名（或文本标注名）的功能实现。

grs432 · 发表于 2014-11-25 11:19:18

st788796 发表于 2014-11-21 17:05
画线的时候把块也选上，要求选点是块的插入点且这个插入点处要有实体（块为圆，中心为插入点时无法选中） ...

我现在有个思路，可以更方便一些，希望st88796您考虑一下。

就是在支持回退的那个程序中，，在最后引出标注前加入1个识别块名的命令，
就是用鼠标再点任意1个连线经过的块，取它的名称，再引出标注，将回路和标注一起引出并打在组中。

这样子在组中就可以统计了。。

自动递增编号还请你考虑一下。。

st788796 · 发表于 2014-11-25 12:33:28

grs432 发表于 2014-11-25 11:19
我现在有个思路，可以更方便一些，希望st88796您考虑一下。

绘制过程有选取块功能，顶点数就是块数量，可以将块名记录到组内的，可以最后有个判断是否选择上了块而且选择的块是否一致，否则就提示指定块

初步加入odcl界面，可以管理多个前缀和编号，连续绘制编号自动+1，选点时也可以随时更改设置，主体已经完成，测试好后将发布插件

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

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

点评

点评

点评

点评

点评

点评