[编程申请]：有没有将目标对象水平等距或垂直等距排列的程序呢？

小菜

有没有将目标对象水平等距或垂直等距排列的程序呢？

xiaping

最初由 小菜 发布
[B]有没有将目标对象水平等距或垂直等距排列的程序呢？ [/B]

CAD里面阵列复制就可以办到的。还有Wkai网友的动态复制程序也可以。

snsj

他的意思是类似于CORLDRAW中的选中物体水平对齐和垂直对齐还有水平等距离分布和垂直等距离分布，明经的老大用VBA写了一个，感觉不错，但有时候不知道怎么回事出现错误，希望咱们老大也带头用LISP和ARX写一个吧，其实就是增强CAD的互动性控制，弥补CAD本身互动性不强的缺点～～～

陌生人

你上传的是明经的程序么？

snsj

是呀

lsjjm

如果按照1楼题目理解, Array足够了.请snsj说说还有什么具体要求?

陌生人

是不是这个意思？

lsjjm

最初由 陌生人 发布
[B]是不是这个意思？ [/B]

我想是其中一个情况吧?
编程不难, 难是的没有充分的条件, 结果要求?

陌生人

对，实际中那几个圆可能代表外形不同的实体。这就是充分条件。
结果要求就是位置均分/间距均分

snsj

阵列的对象是同一个对象，如图所示,图中只做个水平方向上的例子，还有就是垂直方向上对齐和垂直方向上的均分，我上面贴的那个你测试下，但是缺点就是不支持组对象，只对块对象和单独的图员有效，对组不能当作一个整体，如果能把组当作一个整体处理就完美了，以前也想写一个，老是静不下心来，大家都来想想吧

lsjjm

"间距"是实体边界的距离, 还是中心点? 起点?

snsj

你看下那个程序，分四种情况，看图中的

snsj

还有这个

小菜

就是七楼和十楼那个意思，实体可能不是一种，可能有块、字等
等距的基准点可以是10插入点，也可以是下面程序中计算出的的中点。
我觉得大家编程序一开始总是想得太多，这样会觉得很难下手，其实实际应用中并不需要考虑得那么复杂，我想只要对选择集中的实体按X坐标或Y坐标排个序，然后进行move就可以了吧
试用了一个明经的程序，虽然功能强大，但感觉不是很好，实用性还不如下面这个程序，我想等距均布程序可以依照这个程序改一下吧

2. 
   
3.   [FONT=courier new]
   
4. ;;程序名称：对象水平对齐程序
   
5. ;;执行命令：ahobj
   
6. ;;程序功能：将选定的对象左对齐、右对齐或对中。
   
7. ;;
   
8. ;;
   
9. (defun c:ahobj (/ selobjs oldcmdecho)
   
10.   (setq oldcmdecho (getvar "cmdecho"))
    
11.   (setvar "cmdecho" 0)
    
12.   (setq selobjs (ssget))
    
13.   (if (or (not selobjs) (= (sslength selobjs) 1))
    
14.     (princ "\n你必须选定两个或两个以上的对象")
    
15.     (process selobjs)
    
16.   )
    
17.   (setvar "cmdecho" oldcmdecho)
    
18.   (princ)
    
19. )
    
20. (defun process (selobjs          /            amode     apnt        apnt_x
    
21.                 apnt_y          count            objname   vlaxobj        MinPoint
    
22.                 MaxPoint  minext    maxext    ext_l        ext_r
    
23.                 ext_m          tpnt
    
24.                )
    
25.   (initget "L M R")
    
26.   (setq        amode (getkword
    
27.                 "\n选择对齐方式[左对齐(L)/对中(M)/右对齐(R)]<左对齐>:"
    
28.               )
    
29.   )
    
30.   (if (not amode)
    
31.     (setq amode "L")
    
32.   )
    
33.   (initget 1)
    
34.   (setq apnt (getpoint "\n选择水平对齐方向的对齐点："))
    
35.   (setq        apnt_x (car apnt)
    
36.         apnt_y (cadr apnt)
    
37.   )
    
38.   (vl-load-com)
    
39.   (setq count 0)
    
40.   (repeat (sslength selobjs)
    
41.     (setq objname (ssname selobjs count))
    
42.     (setq vlaxobj (vlax-ename->vla-object objname))
    
43.     (setq MinPoint (vlax-make-variant))
    
44.     (setq MaxPoint (vlax-make-variant))
    
45.     (vla-GetBoundingBox vlaxobj 'MinPoint 'MaxPoint)
    
46.     (setq minext (vlax-safearray->list MinPoint))
    
47.     (setq maxext (vlax-safearray->list MaxPoint))
    
48.     (setq ext_l (car minext))
    
49.     (setq ext_r (car maxext))
    
50.     (setq ext_m (+ (/ (abs (- ext_l ext_r)) 2) ext_l))
    
51.     (cond
    
52.       ((= amode "L")
    
53.        (setq tpnt (list ext_l apnt_y))
    
54.       )
    
55.       ((= amode "M")
    
56.        (setq tpnt (list ext_m apnt_y))
    
57.       )
    
58.       ((= amode "R")
    
59.        (setq tpnt (list ext_r apnt_y))
    
60.       )
    
61.     )
    
62.     (if        tpnt
    
63.       (command "_move" objname "" "non" tpnt "non" apnt)
    
64.     )
    
65.     (setq count (1+ count))
    
66.   )
    
67. )
    
68. (princ "\n对象对齐程序已加载，输入ahobj命令执行。")
    
69.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;程序名称：对象水平对齐程序<br /> ;;执行命令：ahobj<br /> ;;程序功能：将选定的对象左对齐、右对齐或对中。<br /> ;;<br /> ;;<br /> (defun c:ahobj (/ selobjs oldcmdecho)<br />   (setq oldcmdecho (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq selobjs (ssget))<br />   (if (or (not selobjs) (= (sslength selobjs) 1))<br />     (princ "\n你必须选定两个或两个以上的对象")<br />     (process selobjs)<br />   )<br />   (setvar "cmdecho" oldcmdecho)<br />   (princ)<br /> )<br /> (defun process (selobjs          /            amode     apnt        apnt_x<br />                 apnt_y          count            objname   vlaxobj        MinPoint<br />                 MaxPoint  minext    maxext    ext_l        ext_r<br />                 ext_m          tpnt<br />                )<br />   (initget "L M R")<br />   (setq        amode (getkword<br />                 "\n选择对齐方式[左对齐(L)/对中(M)/右对齐(R)]<左对齐>:"<br />               )<br />   )<br />   (if (not amode)<br />     (setq amode "L")<br />   )<br />   (initget 1)<br />   (setq apnt (getpoint "\n选择水平对齐方向的对齐点："))<br />   (setq        apnt_x (car apnt)<br />         apnt_y (cadr apnt)<br />   )<br />   (vl-load-com)<br />   (setq count 0)<br />   (repeat (sslength selobjs)<br />     (setq objname (ssname selobjs count))<br />     (setq vlaxobj (vlax-ename->vla-object objname))<br />     (setq MinPoint (vlax-make-variant))<br />     (setq MaxPoint (vlax-make-variant))<br />     (vla-GetBoundingBox vlaxobj 'MinPoint 'MaxPoint)<br />     (setq minext (vlax-safearray->list MinPoint))<br />     (setq maxext (vlax-safearray->list MaxPoint))<br />     (setq ext_l (car minext))<br />     (setq ext_r (car maxext))<br />     (setq ext_m (+ (/ (abs (- ext_l ext_r)) 2) ext_l))<br />     (cond<br />       ((= amode "L")<br />        (setq tpnt (list ext_l apnt_y))<br />       )<br />       ((= amode "M")<br />        (setq tpnt (list ext_m apnt_y))<br />       )<br />       ((= amode "R")<br />        (setq tpnt (list ext_r apnt_y))<br />       )<br />     )<br />     (if        tpnt<br />       (command "_move" objname "" "non" tpnt "non" apnt)<br />     )<br />     (setq count (1+ count))<br />   )<br /> )<br /> (princ "\n对象对齐程序已加载，输入ahobj命令执行。")<br />   [/FONT]<br />

snsj

只是对齐就简单了，主要是均分和处理组为一个单体有待考虑