没说清楚啊，要的什么功能？

我也需要，发给我一个QQ:619687465

发个我们单位用的，有些地方需要改进。
桩所在的图层名设为zhuang
命令：aubh

(defun xybyx(L1 / x y x1 y1 Lyx)
(setq x (car L1))
(setq y (cadr L1))
(setq Lyx ’ ())
(setq Lyx (cons x Lyx))
(setq Lyx (cons y Lyx))
;(setq Lyx (cons Lyx))
)
(defun so2(L1 / Item1 Vmin1 Vmax1 L21 L11 Lt1 Ayx Yen C1)
;sort2
(setq C1 (caar L1))
(setq Item1 (mapcar ’ cadr L1))
(setq Vmin1 (- 1 (apply ’min Item1)))
(while (< Vmin1 (setq Vmax1 (apply ’ max Item1)))
(setq L11 L1 Item1 (subst Vmin1 Vmax1 Item1))
(while (setq L21 (assoc Vmax1 (mapcar ’ cdr L11)))
(setq L11 (cdr (member L21 L11)))
(setq Lt1 (cons L21 Lt1))
)
)
;(setq L1 Lt1)
)


(defun so1(L / Item Vmin Vmax L2 L1 Ltz mn Lt)
;sort1.lsp
(setq Item (mapcar ’ car L))
(setq Vmin (- 1 (apply ’ min Item)))
(while (< Vmin (setq Vmax (apply ’ max Item)))
(setq L1 L)
(setq Item (subst Vmin Vmax Item))
(setq Ltz ’ ())
(setq mn 0)
(while (setq L2 (assoc Vmax L1))
(print L2)
(setq mn (+ 1 mn))
(setq L1 (cdr (member L2 L1)))
(setq Ltz (cons L2 Ltz))
)
(cond ((> mn 1)
;(load "sort2")
(setq zz (so2 Ltz))
;(setq zz ltz)
(repeat (length zz)
(setq ayx (append (list Vmax) (car zz)))
(setq zz (cdr zz))
(setq Lt (cons ayx Lt))
))
((= mn 1)
(setq Lt (append Ltz Lt))
)
)
)
)

(defun c:aubh()
;aubh.lsp 智能桩基编号程序
(setq xzj (ssget "x" ’ ((0 . "circle") (8 . "zhuang"))))
;将图层zhuang中的所有桩基绘图参数扫描并赋予xzj
(setq d 0)
;将d赋值为0
(setq ssn (sslength xzj))
;计算桩个数并将赋值于ssn
(print ssn)
(repeat ssn
;开绐循环次
(setq el (entget (ssname xzj d)))
(setq dj (cdr (assoc 10 el)))
;(print dj)
(setq dj (xybyx dj))
;(print dj)
(setq yxj (cons dj yxj))
(setq d (+ 1 d))
)
(setq pxj (so1 yxj))
;(print pxj)
(setq bh 0)
(setq npxj ’ ())
(repeat ssn
(setq dg (car pxj))
(setq npxj (cons dg npxj))
(setq pxj (cdr pxj))
)
(setq pxj npxj)
(repeat ssn
(setq qpb (car pxj))
(setq bh (+ 1 bh))
(setq qpb (xybyx qpb))
(setq pxj (cdr pxj))
(setq pb (mapcar ’ + qpb ’(0 200 0)))
(print pb)
(command "text" pb "200" "0.0" bh)
)
(setq qpb nil)
(setq pb nil)
(setq yxj nil)
(setq pxj nil)
(setq xzj nil)
)

谢谢无私奉献

这里强人云集啊，继续淘宝呵呵

怎么用，没看懂，4#楼的说明白一下

下载吧，各位兄弟，:victory:

这里强人云集啊，继续淘宝呵呵

我就不会用了,请楼主详细说明一下

此程序不能用，希望楼主核查一下