;;.lsp
;;排序函数(HH:ssPts:Sort ssPts KEY FUZZ) 见黄老师的 http://bbs.mjtd.com/thread-107489-1-1.html
(defun c:tt()
;输入KEY值 默认"YX"
(setq keys (getstring "按照排序通用程序设定的方法输入KEY值: <YX> ") )
;选线;排序;
(setq list1(HH:ssPts:Sort (ssget ":S") keys 0.5))
;选箭头;排序
(setq list2(HH:ssPts:Sort (ssget) keys 0.5))
;移动箭头
(foreach stnen2 list2
;(setq stn1(ssget) n 0 stnl1(sslength stn1))
(vla-getboundingbox (vlax-ename->vla-object stnen2) 'p1 'p2)
(setq p1 (vlax-safearray->list p1))
(vla-getboundingbox (vlax-ename->vla-object (car list1)) 'pt1 'pt2)
(setq pt1 (vlax-safearray->list pt1))
(command "move" stnen2"" "non"p1 "non"pt1 )
(setq list1(cdr list1))
)
)