jpg102329 发表于 2017-8-16 10:33:10

;图框块排序，左大右小

本帖最后由 jpg102329 于 2017-8-21 08:13 编辑


;图框块排序，左大右小
【管理员】大海<tryhi@sina.cn> 9:47:28
(defun c:tt (/ box box4i box4i-1 box4s boxs dist ens i l p0 p1 ss ss0 ssn zo)
(setq ssn nil
dist(getdist"距离")
zo(try-box-zoom)
)
(setq ss(ssget '((2 . "Fsxm_TK_A4_HN.简约.国标细")))
ens(try-ss2EnList ss)
ens(vl-sort ens '(lambda(a b)(> (try-get-dxf a 41)(try-get-dxf b 41))))
box(mapcar 'try-getbox ens)
)
(foreach n box
(try-zoom (car n)(cadr n))
(setq ss0(ssget "C" (car n)(cadr n))
SSN(cons ss0 ssn)
)
)
(setq
ssn(reverse ssn)
boxs(mapcar 'try-getbox ssn)
box4s(mapcar '(lambda(x)(try-pt2-to-pt4(car x)(cadr x)))boxs)
i 0
p1 (caar box4s)
)

(command "UNDO""BE")
(repeat (1-(length ssn))
(setq
i(1+ i)
box4i(nth i box4s)
box4i-1(nth (1- i) box4s)
)
(setq
p0(car box4i)
L(-(car(last box4i-1))(caar box4i-1))
p1 (try-Pt+X p1 (+ L dist))
)
(try-move (nth i ssn)p0 p1)
)
(try-zoom (car zo)(cadr zo))
(command "UNDO""END")
)

<以上内容出自《大海语录》不代表本人观点>欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！




love_cq 发表于 2020-7-4 22:47:30

软件提示“参数太多”？楼主可否完善下？

行天下 发表于 2022-9-28 16:28:06

回帖是一种美德！感谢楼主的无私分享 谢谢

stardelet7777 发表于 2019-6-5 10:08:53

回帖是一种美德！感谢楼主的无私分享 谢谢

1028882406@qq.c 发表于 2017-8-27 15:48:29

谢谢楼主，支持下

LIULISHENG 发表于 2017-9-23 17:58:00

我来支持一下顶

maxli 发表于 2017-10-1 20:09:46

不能用啊。。没函数

pengfei2010 发表于 2017-10-7 22:58:42

回帖是一种美德！感谢楼主的无私分享 谢谢

逍遥天下 发表于 2017-10-8 10:15:54

支持一下，顶顶顶

pengfei2010 发表于 2017-10-9 14:36:57

回帖是一种美德！感谢楼主的无私分享 谢谢

sowin 发表于 2017-11-3 08:46:48


回帖是一种美德！

xudongchu 发表于 2017-11-25 11:47:16

不能用，不知道是怎么回事

马甲 发表于 2017-11-27 12:32:40


不能用，不知道是怎么回事
页: [1] 2
查看完整版本: ;图框块排序，左大右小