个人图纸方面的问题，希望高手可以解决？

grs432

XDSoft

把DWG图贴上来吧。

排序，tablesort，奇数点表，偶数点表，函数库都有现成函数还有即将发布的EXCEL库，应该容易写，会有朋友帮你的。

Free-Lancer

1 最右侧和其它竖向的规则不一样

2 图块数量怎么定的?

/db_自贡黄明儒_

不明白，曲线是块还是红圆为块；已知什么，然后希望程序做什么？最好附一个dwg说明之。

grs432

/db_自贡黄明儒_ 发表于 2014-10-30 09:22
不明白，曲线是块还是红圆为块；已知什么，然后希望程序做什么？最好附一个dwg说明之。

如附件是我画的示例图，这个问题主要是和天正电气的回路相似，但是我们画的不是那样专业方向的，用多段线将灯具或设备连接到一起后，再标注1条回路出来，最后将各回路的灯具或设备统计的EXCEL表格中。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:示例图纸.rar 
下载次数:8  文件大小:34.72 KB 
下载权限: 不限 以上  [免费赚D豆]

grs432

XDSoft 发表于 2014-10-30 01:20
把DWG图贴上来吧。

排序，tablesort，奇数点表，偶数点表，函数库都有现成函数还有即将发布的EXCEL库， ...

希望您 给我个框架的思路，要不是真一点路子没有！！

auva

斜着方向的排序我是利用座标转换，
1.θ：为斜向(排序方向)与水平的夹角
2.x，y为原来物件的座标，x'及y'是转换后的座标
   x'=xcosθ+ysinθ
   y'=-xsinθ+ycosθ
3.若要水平排就对x'排序，垂直就对y'排序，其馀的排序就跟一般的作法是一样的。

st788796

你这随意情况太多，描点方法

1. (defun c:tt (/ pts p pl i)
   
2.   (xdrx_sysvar_push '("osmode" 64))
   
3.   (setq i 0)
   
4.   (while (setq p (if pts
   
5.                    (getpoint (car pts) "\npoint: ")
   
6.                    (getpoint "\nPoint: ")
   
7.                  )
   
8.          )
   
9.     (if        pts
   
10.       (progn
    
11.         (setq pts (cons p pts))
    
12.         (if (> (length pts) 1)
    
13.           (if pl
    
14.             (progn
    
15.               (xdrx_polyline_setpointat pl (setq i (1+ i)) (car pts))
    
16.               (xdrx_polyline_addvertexat pl i (cadr pts))
    
17.               (xdrx_polyline_setbulgeat pl i 0.3)
    
18.             )
    
19.             (progn
    
20.               (setq pl (xdrx_polyline_make (cadr pts) (car pts)))
    
21.               (xdrx_polyline_setbulgeat pl 0 0.3)
    
22.             )
    
23.           )
    
24.         )
    
25.       )
    
26.       (setq pts (list p))
    
27.     )
    
28.   )
    
29.   (xdrx_sysvar_pop)
    
30.   (princ)
    
31. )

(defun c:tt (/ pts p pl i)<br />   (xdrx_sysvar_push '("osmode" 64))<br />   (setq i 0)<br />   (while (setq p (if pts<br />                    (getpoint (car pts) "\npoint: ")<br />                    (getpoint "\nPoint: ")<br />                  )<br />          )<br />     (if        pts<br />       (progn<br />         (setq pts (cons p pts))<br />         (if (> (length pts) 1)<br />           (if pl<br />             (progn<br />               (xdrx_polyline_setpointat pl (setq i (1+ i)) (car pts))<br />               (xdrx_polyline_addvertexat pl i (cadr pts))<br />               (xdrx_polyline_setbulgeat pl i 0.3)<br />             )<br />             (progn<br />               (setq pl (xdrx_polyline_make (cadr pts) (car pts)))<br />               (xdrx_polyline_setbulgeat pl 0 0.3)<br />             )<br />           )<br />         )<br />       )<br />       (setq pts (list p))<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (princ)<br /> )

grs432

st788796 发表于 2014-11-2 22:32
你这随意情况太多，描点方法

我想实现的效果如下：

指定块上的第1点。

挪动鼠标，多段线和上标的数量动态显示。

鼠标移动，，且动态显示多段线的数量，通过这个数量可以知道连了多少个块。

确认自己的连接数量为5后，点下鼠标完成。

完成时，多段线的数没有了，再点鼠标引出回路标注和多段线经过的块的数量

其它回路的回路号可以自动递增。

最后可通过回路层和数量层输出到EXCEL表

shasow

没看明白~~~