（已解决）求一个超级measure工具

yangliucq

我先描述一下要求，看能说清楚不。

1条由很多根直线和圆弧组成的多段线，现在我想在每根直线的两个端点、每根弧线的两个端点以及中心点，定点阵列对象（图块，圆形，点，文字等等）。

加了一个附图，我只想在直线的端点跟圆弧的中点阵列对象。图中忘记标注了，整个线条是个整体。附图是已经完成后的一个结果，就是把小圆圈一次性插入到各个端点跟圆弧中心点（小圆圈是一个图块，基点为圆心）。为了修改方便，就只考虑对象是图块一种情况好了，其他对象都可以做成块的形式，这样就可以以图块的基点作为插入点。

newer

用屏幕录像，做个动画上来吧，说真的，真的没看懂。

st788796

保证节点处布置，每段间等分布置，是这样理解吧

yangliucq

newer 发表于 2013-11-15 11:14
用屏幕录像，做个动画上来吧，说真的，真的没看懂。

已添加附图

XDSoft

yangliucq 发表于 2013-11-15 14:37
已添加附图

你把结果的也做个图放上来， 块的一个，文字的一个。。。。

看看你定的规则，插入点放在哪。

yangliucq

XDSoft 发表于 2013-11-15 14:42
你把结果的也做个图放上来， 块的一个，文字的一个。。。。

看看你定的规则，插入点放在哪。

插入点就是线条上面小圆圈的位置啊，比如我现在想把一个小圆圈通过一个命令直接插入到如附图所示的那种效果，而不用我自己一个一个来复制。

XDSoft

yangliucq 发表于 2013-11-15 14:46
插入点就是线条上面小圆圈的位置啊，比如我现在想把一个小圆圈通过一个命令直接插入到如附图所示的那种效 ...

小圆圈你就说是圆心对齐端点了

块呢？ 是块的插入点对齐，还是块包络的中心点对齐，

文字呢？

yangliucq

XDSoft 发表于 2013-11-15 14:50
小圆圈你就说是圆心对齐端点了

块呢？ 是块的插入点对齐，还是块包络的中心点对齐，

这里确实没说清楚，为了修改方便，就只考虑对象是图块一种情况好了，其他对象都可以做成块的形式，这样就以图块的基点作为插入点，插入图块到各线的端点上以及圆弧的中点上。

newer

yangliucq 发表于 2013-11-15 15:04
这里确实没说清楚，为了修改方便，就只考虑对象是图块一种情况好了，其他对象都可以做成块的形式，这样就 ...

是不是一定要对齐的吧？

yangliucq

newer 发表于 2013-11-15 15:25
是不是一定要对齐的吧？

您说的对齐是指什么意思？cad里面用me的时候有沿圆弧对齐的选项，您说的是不是这个意思？是的话就跟cad一致，加一个对齐的开关让用户选择要不要对齐。

newer

yangliucq 发表于 2013-11-15 15:04
这里确实没说清楚，为了修改方便，就只考虑对象是图块一种情况好了，其他对象都可以做成块的形式，这样就 ...

1. (defun c:tt ( / e e1 from i mat num pj pts tf to x xaxis yaxis)
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\n选取要阵列的对象<退出>:" '((0 . "*TEXT,CIRCLE,INSERT")))))
   
4.         (setq e1 (car (xdrx_entsel "\n拾取一个多段线路径<退出>:" '
   
5.                                    ((0 . "LWPOLYLINE"))
   
6.                       )
   
7.                  )
   
8.         )
   
9.       )
   
10.     (progn
    
11.       (setq pts nil)
    
12.       (xdrx_setenttodb e)
    
13.       (setq pj (xdrx_getentdxf 10))
    
14.       (setq num (xdrx_getpropertyvalue e1 "numVerts"))
    
15.       (setq i 0)
    
16.       (repeat num
    
17.         (setq tf (xdrx_polyline_segtype e1 i))
    
18.         (cond
    
19.           ((= tf "kArc")
    
20.             (setq pts (append
    
21.                         (list i (/ (+ i (+ 1 i)) 2.0))
    
22.                         pts
    
23.                       )
    
24.             )
    
25.           )
    
26.           (t
    
27.             (setq pts (cons i pts))
    
28.           )
    
29.         )
    
30.         (setq i (1+ i))
    
31.       )
    
32.       (setq from (xdrx_entity_getecs e))
    
33.       (mapcar
    
34.         '(lambda (x)
    
35.            (setq xAxis (xdrx_curve_getfirstderiv e1 (float x))
    
36.                    yAxis (xdrx_vector_perpVector xAxis)
    
37.                    to (list (xdrx_curve_getPointAtParam e1 x) xAxis yAxis (xdrx_vector_crossproduct xAxis
    
38.                                                                   yAxis
    
39.                                         )
    
40.                     )
    
41.                  mat (xdrx_matrix_alignCoordSystem from to)
    
42.            )
    
43.            (xdrx_entity_transformedcopy e mat)
    
44.          )
    
45.         pts
    
46.       )
    
47.     )
    
48.   )
    
49.   (princ)
    
50. )
    
51. 
    

(defun c:tt ( / e e1 from i mat num pj pts tf to x xaxis yaxis)<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n选取要阵列的对象<退出>:" '((0 . "*TEXT,CIRCLE,INSERT")))))<br />         (setq e1 (car (xdrx_entsel "\n拾取一个多段线路径<退出>:" '<br />                                    ((0 . "LWPOLYLINE"))<br />                       )<br />                  )<br />         )<br />       )<br />     (progn<br />       (setq pts nil)<br />       (xdrx_setenttodb e)<br />       (setq pj (xdrx_getentdxf 10))<br />       (setq num (xdrx_getpropertyvalue e1 "numVerts"))<br />       (setq i 0)<br />       (repeat num<br />         (setq tf (xdrx_polyline_segtype e1 i))<br />         (cond<br />           ((= tf "kArc")<br />             (setq pts (append<br />                         (list i (/ (+ i (+ 1 i)) 2.0))<br />                         pts<br />                       )<br />             )<br />           )<br />           (t<br />             (setq pts (cons i pts))<br />           )<br />         )<br />         (setq i (1+ i))<br />       )<br />       (setq from (xdrx_entity_getecs e))<br />       (mapcar<br />         '(lambda (x)<br />            (setq xAxis (xdrx_curve_getfirstderiv e1 (float x))<br />                    yAxis (xdrx_vector_perpVector xAxis)<br />                    to (list (xdrx_curve_getPointAtParam e1 x) xAxis yAxis (xdrx_vector_crossproduct xAxis<br />                                                                   yAxis<br />                                         )<br />                     )<br />                  mat (xdrx_matrix_alignCoordSystem from to)<br />            )<br />            (xdrx_entity_transformedcopy e mat)<br />          )<br />         pts<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

eachy

没有重复吧
直线接弧段时按哪段？

yangliucq

newer 发表于 2013-11-15 16:05

好有效率，太感谢拉！！

newer

eachy 发表于 2013-11-15 16:10
没有重复吧
直线接弧段时按哪段？

遍历时候，都是保存的当前的 INDEX，除了KARC段，保存了当前顶点参数和中点参数。不会遗漏。

newer

yangliucq 发表于 2013-11-15 16:13
好有效率，太感谢拉！！

你这样阵列真不算超级阵列，是超级的缩水版。 另外，你什么专业，做什么要求这样的阵列？

如果你认为不需要完善了，就编辑下帖子， 前缀加上 已解决 吧。