图框排齐,源码参考.1128更新3.7

鱼与熊掌

/********************************************************
矩形图框对齐3.6

1.qx,先图框左对齐在进行图框的上下对齐,请注意顺序.
2.qx1,图框左对齐.
2.qx2.图框右对齐,请查看文件中的fuzz,偏差值.
  !.详解:qx2如果没有没有先试用qx1,(也就是左对齐.)
    那么就只能对齐最左边的那个图框的那一排.注意计算方式.
3.qx3.加入等距对齐,命令是先使用getdist的,如果想用固定距离可以自己改代码.
      !请注意,如果大距离对齐到小距离不会出错.
      !请注意,如果小距离变成大等距对齐就出错.请看error的演示.
      !了解对齐的算法,从左向右对齐.
4.优化move,调用cx-move函数.
5.加入几个函数在cxapi.
6.程序打包了.233333.
.2014-10-28.by 鱼与熊掌.QQ:775452144
;演示如果等距,排序顺序,左到右,如果从小到大出错,如何出错

fuzz偏差值,范围外面的不上下对齐


/.**************************分隔.**************************

更新px3.6, 2014-10-27
1,(vl-load-com),加入这个东西，你们报错的。我在别的电脑测试了一下，发现少了这个东西。-。-
2.稍等。



更新px3.5,2014-10-24
1.附件加入cxapi 里面全是支持函数.我比较懒.
2.加入优化代码.
3.没加入等距对齐.




PX 3.0
------------------------------------------------
1.分裂成qx qx1 qx2 qxx.
2.qx(左对齐后 上下对齐.)
3.qx1 ,左对齐.
4.qx2.上下对齐.
5.支持多图框对齐.
6.保存变量在c:盘.不用每次启动去选择,也不必每次去选择图框对齐.
7.qxx选择需要对齐的图框.
8.提示多了几行.
ps.1.暂时关闭等距对齐,因为要支持多图框,算法得重写;..!!!蛋疼.
    2.关于图框重合,请注意偏差值. 太黏的图框将合体,注意.(或者自己调偏差值)
    3.请下载支持函数.
    4.开放下载不收钱.
    5.期待优化.
    6.哎.
    7.接下去打算只支持单排对齐,也就是误差无限大.上下对齐就只对齐选中的.
      或者误差值将偏大. 总之待定.







------------------------2014-10-18更新------------------------
px 2.5
1.图框内物体移动
2.加入横向对齐加入间距.
3.新思路准备加上匹配多图框.(图上不只是有一个图框的情况下)
4.求助,希望大家一起完善一下. 写好注释便于维护.
5.分裂成两个命令应该比较好用

------------------------2014-10-18更新------------------------




------------------------2014-10-14更新------------------------
1.加入左边图框对齐.
2.加入过滤图框选项.
3.所需要的函数都在这个帖子里面有
------------------------2014-10-14更新------------------------


欢迎谈论,仅供参考
引用:
http://bbs.mjtd.com/thread-111326-1-1.html
http://bbs.mjtd.com/thread-107489-1-1.html

依然小小鸟

paulpipi 发表于 2018-8-26 08:59
(defun a(pt dst /)
(polar pt pi dst)
)

这是？  新手看不懂呢 能融合后 放出完整的代码吗

依然小小鸟

不同大小的图框排序有问题  会出现重合在一起  另外 能不能增加等距排序功能 可以自己设置距离大小

依然小小鸟

不同大小的图框排序有问题  会出现重合在一起  另外 能不能增加等距排序功能 可以自己设置距离大小

鱼与熊掌

2. ;newnth i j list 取表一部分 来自 老黄
   
3. ;(newnth 2 3 '(1 2 3 4 5))=(3 4)
   
4. (defun newnth (from to lst / L X)
   
5.   (repeat from (setq lst (cdr lst)))
   
6.   (repeat (1+ (- to from)) (setq l (cons (car lst) l)) (setq lst (cdr lst)))
   
7.   (REVERSE l)
   
8. )
   
9. (defun xnth(to lst)
   
10. (car(newnth  to to lst))
    
11. )
    
12. 
    
13. ;来自  老黄
    
14. ;ssPts: 1 选择集，返回图元列表
    
15. ;;           2 点表(1到n维 1维时key只能是x或X)，返回点表
    
16. ;;          3 图元列表，返回图元列表
    
17. ;;Key: "xyzXYZ"任意组合,例如"yX",y在前表示y坐标优先，小y表示从小到大(注:二维点时，不能有z)
    
18. ;;FUZZ: 允许误差
    
19. ;;注:点表可以1到n维混合,Key长度不大于点的最小维数。
    
20. ;;示例1 (HH:ssPts:Sort (ssget) "YxZ" 0.5);返回(<Entity name: 7ef7b3a8> <Entity name: 7ef7b3a0>)
    
21. ;;示例2 (HH:ssPts:Sort (list '(2 3) '(3 5)) "Yx" 0.5);返回((3 5) (2 3))
    
22. ;;示例3 (HH:ssPts:Sort '(<Entity name: 7ef79a28> <Entity name: 7ef79a10>) "YxZ" 0.5)
    
23. ;;示例4 (HH:ssPts:Sort (list "DF" "ZX" "A" "DD" "A") "X" 1)=>("ZX" "DF" "DD" "A" "A")
    
24. ;;示例5 (HH:ssPts:Sort (list 5 8 5 9) "X" 1)=>(9 8 5)
    
25. ;;本程序是在fsxm的扩展 自贡黄明儒 2014年3月22日
    
26. (defun HH:ssPts:Sort (ssPts KEY FUZZ / E EN FUN LST N)
    
27.   ;;1 点列表排序
    
28.   (defun sortpts (PTS FUN xyz FUZZ)
    
29.     (vl-sort pts
    
30.              '(lambda (a b)
    
31.                 (if (not (equal (xyz a) (xyz b) fuzz))
    
32.                   (fun (xyz a) (xyz b))
    
33.                 )
    
34.               )
    
35.     )
    
36.   )
    
37.   ;;2 排序
    
38.   (defun sortpts1 (PTS KEY FUZZ)
    
39.     (setq Key (vl-string->list Key))
    
40.     (foreach xyz (reverse Key)
    
41.       (cond ((< xyz 100)
    
42.              (setq fun >)
    
43.              (setq xyz (nth (- xyz 88) (list car cadr caddr)))
    
44.             )
    
45.             (T
    
46.              (setq fun <)
    
47.              (setq xyz (nth (- xyz 120) (list car cadr caddr)))
    
48.             )
    
49.       )
    
50.       (setq Pts (sortpts Pts fun xyz fuzz))
    
51.     )
    
52.   )
    
53.   ;;3 本程序主程序
    
54.   (cond
    
55.     ((= (type ssPts) 'PICKSET)
    
56.      (repeat (setq n (sslength ssPts))
    
57.        (if (and        (setq e (ssname ssPts (setq n (1- n))))
    
58.                 (setq en (entget e))
    
59.            )
    
60.          (setq lst (cons (append (cdr (assoc 10 en)) (list e)) lst))
    
61.        )
    
62.      )
    
63.      (mapcar 'last (sortpts1 lst KEY FUZZ))
    
64.     )
    
65.     ((Listp ssPts)
    
66.       (cond
    
67.         ((vl-consp (car ssPts)) (sortpts1 ssPts KEY FUZZ))
    
68.         ((= (type (car ssPts)) 'ENAME)
    
69.          (foreach e ssPts
    
70.            (if (setq en (entget e))
    
71.              (setq lst (cons (append (cdr (assoc 10 en)) (list e)) lst))
    
72.            )
    
73.          )
    
74.          (mapcar 'last (sortpts1 lst KEY FUZZ))
    
75.         )
    
76.         (T
    
77.          (cond ((equal key "X") (vl-sort ssPts '>))
    
78.                (T (vl-sort ssPts '<))
    
79.          )
    
80.         )
    
81.       )
    
82.     )   
    
83.   )
    
84. )
    
85. ;;*****************************************************************************通用点表排序
    
86. 
    
87. 
    
88. ;******************************************************
    
89. (defun get-box            ;返回最大外型两对角点的表
    
90. (SS1 / get-ssbox get-enbox get-Extents)
    
91. (defun get-ssbox        ;返回集最大外框两对角点的表
    
92. (ss / boxlst maxlst minlst objlst)
    
93.   (setq objlst (mapcar 'vlax-ename->vla-object (ss-enlst ss)))
    
94.   (setq boxlst (mapcar 'get-enbox objlst))
    
95.   (setq minlst (mapcar 'car boxlst))
    
96.   (setq maxlst (mapcar 'cadr boxlst))
    
97.   (list
    
98.     (apply 'mapcar (cons 'min minlst))
    
99.     (apply 'mapcar (cons 'max maxlst))
    
100.   )
     
101. )
     
102. (defun get-enbox (obj) ;返回对象最大外框两对角点的表
     
103.   (if (= (type obj) 'ENAME) (setq obj (vlax-ename->vla-object obj)))
     
104.   (vla-getboundingbox obj 'Minp 'Maxp)
     
105.   (mapcar 'vlax-safearray->list (list Minp Maxp))
     
106. )
     
107. (defun get-Extents(lst);返回点表最大外框两对角点的表
     
108.   (list
     
109.     (apply 'mapcar (cons 'min lst))
     
110.     (apply 'mapcar (cons 'max lst))
     
111.   )
     
112. )
     
113. 
     
114. (cond
     
115.   ((= (type SS1) 'PICKSET) (get-ssbox SS1))  ;集
     
116.   ((= (type SS1) 'ENAME) (get-enbox SS1))    ;图元
     
117.   ((= (type SS1) 'LIST) (get-Extents SS1))   ;点表
     
118.   (t nil)
     
119. )
     
120. )
     
121. 
     
122. (defun ss-enlst           ;选择集与对象名表互转
     
123. (ss / enlst)
     
124. (cond
     
125.   ((= (type ss) 'PICKSET)
     
126.     (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
     
127.   )
     
128.   ((= (type ss) 'LIST)
     
129.     (setq enlst (ssadd))
     
130.     (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
     
131.   )
     
132. )
     
133. )

;newnth i j list 取表一部分 来自 老黄<br /> ;(newnth 2 3 '(1 2 3 4 5))=(3 4)<br /> (defun newnth (from to lst / L X)<br />   (repeat from (setq lst (cdr lst)))<br />   (repeat (1+ (- to from)) (setq l (cons (car lst) l)) (setq lst (cdr lst)))<br />   (REVERSE l)<br /> )<br /> (defun xnth(to lst)<br /> (car(newnth  to to lst))<br /> )<br /> <br /> ;来自  老黄<br /> ;ssPts: 1 选择集，返回图元列表<br /> ;;           2 点表(1到n维 1维时key只能是x或X)，返回点表<br /> ;;          3 图元列表，返回图元列表<br /> ;;Key: "xyzXYZ"任意组合,例如"yX",y在前表示y坐标优先，小y表示从小到大(注:二维点时，不能有z)<br /> ;;FUZZ: 允许误差<br /> ;;注:点表可以1到n维混合,Key长度不大于点的最小维数。<br /> ;;示例1 (HH:ssPts:Sort (ssget) "YxZ" 0.5);返回(<Entity name: 7ef7b3a8> <Entity name: 7ef7b3a0>)<br /> ;;示例2 (HH:ssPts:Sort (list '(2 3) '(3 5)) "Yx" 0.5);返回((3 5) (2 3))<br /> ;;示例3 (HH:ssPts:Sort '(<Entity name: 7ef79a28> <Entity name: 7ef79a10>) "YxZ" 0.5)<br /> ;;示例4 (HH:ssPts:Sort (list "DF" "ZX" "A" "DD" "A") "X" 1)=>("ZX" "DF" "DD" "A" "A")<br /> ;;示例5 (HH:ssPts:Sort (list 5 8 5 9) "X" 1)=>(9 8 5)<br /> ;;本程序是在fsxm的扩展 自贡黄明儒 2014年3月22日<br /> (defun HH:ssPts:Sort (ssPts KEY FUZZ / E EN FUN LST N)<br />   ;;1 点列表排序<br />   (defun sortpts (PTS FUN xyz FUZZ)<br />     (vl-sort pts<br />              '(lambda (a b)<br />                 (if (not (equal (xyz a) (xyz b) fuzz))<br />                   (fun (xyz a) (xyz b))<br />                 )<br />               )<br />     )<br />   )<br />   ;;2 排序<br />   (defun sortpts1 (PTS KEY FUZZ)<br />     (setq Key (vl-string->list Key))<br />     (foreach xyz (reverse Key)<br />       (cond ((< xyz 100)<br />              (setq fun >)<br />              (setq xyz (nth (- xyz 88) (list car cadr caddr)))<br />             )<br />             (T<br />              (setq fun <)<br />              (setq xyz (nth (- xyz 120) (list car cadr caddr)))<br />             )<br />       )<br />       (setq Pts (sortpts Pts fun xyz fuzz))<br />     )<br />   )<br />   ;;3 本程序主程序<br />   (cond<br />     ((= (type ssPts) 'PICKSET)<br />      (repeat (setq n (sslength ssPts))<br />        (if (and        (setq e (ssname ssPts (setq n (1- n))))<br />                 (setq en (entget e))<br />            )<br />          (setq lst (cons (append (cdr (assoc 10 en)) (list e)) lst))<br />        )<br />      )<br />      (mapcar 'last (sortpts1 lst KEY FUZZ))<br />     )<br />     ((Listp ssPts)<br />       (cond<br />         ((vl-consp (car ssPts)) (sortpts1 ssPts KEY FUZZ))<br />         ((= (type (car ssPts)) 'ENAME)<br />          (foreach e ssPts<br />            (if (setq en (entget e))<br />              (setq lst (cons (append (cdr (assoc 10 en)) (list e)) lst))<br />            )<br />          )<br />          (mapcar 'last (sortpts1 lst KEY FUZZ))<br />         )<br />         (T<br />          (cond ((equal key "X") (vl-sort ssPts '>))<br />                (T (vl-sort ssPts '<))<br />          )<br />         )<br />       )<br />     )    <br />   )<br /> )<br /> ;;*****************************************************************************通用点表排序<br /> <br /> <br /> ;******************************************************<br /> (defun get-box            ;返回最大外型两对角点的表<br /> (SS1 / get-ssbox get-enbox get-Extents)<br /> (defun get-ssbox        ;返回集最大外框两对角点的表<br /> (ss / boxlst maxlst minlst objlst)<br />   (setq objlst (mapcar 'vlax-ename->vla-object (ss-enlst ss)))<br />   (setq boxlst (mapcar 'get-enbox objlst))<br />   (setq minlst (mapcar 'car boxlst))<br />   (setq maxlst (mapcar 'cadr boxlst))<br />   (list<br />     (apply 'mapcar (cons 'min minlst))<br />     (apply 'mapcar (cons 'max maxlst))<br />   )<br /> )<br /> (defun get-enbox (obj) ;返回对象最大外框两对角点的表<br />   (if (= (type obj) 'ENAME) (setq obj (vlax-ename->vla-object obj)))<br />   (vla-getboundingbox obj 'Minp 'Maxp)<br />   (mapcar 'vlax-safearray->list (list Minp Maxp))<br /> )<br /> (defun get-Extents(lst);返回点表最大外框两对角点的表<br />   (list<br />     (apply 'mapcar (cons 'min lst))<br />     (apply 'mapcar (cons 'max lst))<br />   )<br /> )<br /> <br /> (cond<br />   ((= (type SS1) 'PICKSET) (get-ssbox SS1))  ;集<br />   ((= (type SS1) 'ENAME) (get-enbox SS1))    ;图元<br />   ((= (type SS1) 'LIST) (get-Extents SS1))   ;点表<br />   (t nil)<br /> )<br /> )<br /> <br /> (defun ss-enlst           ;选择集与对象名表互转<br /> (ss / enlst)<br /> (cond<br />   ((= (type ss) 'PICKSET)<br />     (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br />   )<br />   ((= (type ss) 'LIST)<br />     (setq enlst (ssadd))<br />     (last (mapcar '(lambda (x) (ssadd x enlst)) ss))<br />   )<br /> )<br /> )

spp_wall

好像没反应！！！！

鱼与熊掌

spp_wall 发表于 2014-10-13 20:49
好像没反应！！！！

需要函数支持 ,函数没有缺吧.     排齐的东西需要是个图块.
  然后看一下排齐思路

鱼与熊掌

spp_wall 发表于 2014-10-13 20:49
好像没反应！！！！

  目前支持的是这样的  左边的图框需要X轴已经对齐了.
然后 右边的这些图框   左下角的点必须在左边的图框高度内,那么他们就会被对齐.
  然后如果你想添加新功能,  就可以自己添加了

spp_wall

鱼与熊掌 发表于 2014-10-13 20:55
需要函数支持 ,函数没有缺吧.     排齐的东西需要是个图块.
  然后看一下排齐思路

是块 函数是你放的吧
令: tt
选择对象: 指定对角点: 找到 5 个
选择对象:
move
选择对象:   找到 1 个
选择对象:
指定基点或 [位移(D)] <位移>:  _non 指定第二个点或 <使用第一个点作为位移>: _non no function definition:
S指定第二个点或 <使用第一个点作为位移>: *取消*

鱼与熊掌

spp_wall 发表于 2014-10-13 20:57
是块 函数是你放的吧
令: tt
选择对象: 指定对角点: 找到 5 个

年少的时候写了这四个.
(defun a(pt dst /)
(polar pt pi dst)
)
(defun w(pt dst /)
(polar pt (/ pi 2) dst)
)
(defun s(pt dst /)
(polar pt (+ pi (/ pi 2)) dst)
)
不好意思 加上.

spp_wall

鱼与熊掌 发表于 2014-10-13 21:01
年少的时候写了这四个.
(defun a(pt dst /)
(polar pt pi dst)

可以了  谢谢分享！！！！！！

LPACMQ

赞一个~~

zzyong00

允许误差 建议调整为图块高度的一半或和图块大小相关的值，而不是固定的值，更好一些