adc 发表于 2012-8-22 20:10:10

请教院长这个函数xyp-sc能公开吗？

726613 发表于 2012-8-26 10:43:02

感谢楼主分享好东西

海盗曹 发表于 2012-8-28 15:07:50

来支持院长~

成仔 发表于 2012-9-1 10:39:25

很强大，占位学习

露水2 发表于 2012-9-1 12:01:59

支持看门的

cheng5276 发表于 2012-9-6 11:24:04

好东西啊，三角函数帮了我大忙，数学差啊，多谢院长

004 发表于 2012-10-16 23:42:52

哈哈，终于见到了院长的真源码，太好了。感谢院长。

xyp1964 发表于 2012-10-17 17:50:03

本帖最后由 xyp1964 于 2017-11-20 21:59 编辑

;; 直线批量等分
(defun c:test1146 ()
(CMDLA0)
(setq int (Uint 7 "" "整数" int)
ss(ssget '((0 . "line")))
lst (xyp-Sort-Plist (xyp-Sort ss 10 "x-min") 6)
lst (mapcar 'cdr lst)
i   0
)
(while (and (setq s1 (nth i lst))
       (setq s2 (nth (setq i (1+ i)) lst))
)
    (setq s1   (xyp-Line-DtFormat s1)
   s2   (xyp-Line-DtFormat s2)
   ptn1 (xyp-get-CurveDivNumPtlst s1 int)
   ptn2 (xyp-get-CurveDivNumPtlst s2 int)
    )
    (mapcar '(lambda (x y) (xyp-line x y)) ptn1 ptn2)
)
(CMDLA1)
)


xyp1964 发表于 2012-10-17 17:59:03

本帖最后由 xyp1964 于 2017-11-20 21:59 编辑

;; xyp-SortListSub 以表内某子项为首重新排序 (xyp-SortListSub lst sub)
;; (xyp-SortListSub '(1 2 3 4 5 6 7 8 9 10) 5)→(5 6 7 8 9 10 1 2 3 4)
(defun xyp-SortListSub (lst sub / a n i new)
(if (setq a (member sub lst))
    (progn
      (setq n (- (length lst) (length a))
            i   0
            new'()
      )
      (while (< i n)
      (setq new (cons (nth i lst) new)
            i(1+ i)
      )
      )
      (append a (reverse new))
    )
)
)

crazylsp 发表于 2012-10-17 23:38:32

这个排序很简洁。
页: 3 4 5 6 7 8 9 10 11 12 [13] 14 15 16 17 18 19 20 21 22
查看完整版本: 【e派】工具箱函数再揭秘及应用实例