【e派】工具箱函数再揭秘及应用实例

wuxuloveguo · 发表于 2013-1-7 13:52:21

伪源码居多嘿嘿学习一下思路到是不错！

linshiyin2 · 发表于 2013-1-7 22:30:07

xyp1964 发表于 2012-7-22 00:28
多个单行文本（text）合并为多行文本（mtext）：

这个没有源码啊，正需要啊

有123 · 发表于 2013-2-3 09:33:31

顶一下，超棒

xyp1964 · 发表于 2013-2-3 09:52:37

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

;; 自定义函数下载: http://bbs.mjtd.com/thread-95673-1-1.html
;; 洞口线
;; 伪源码需要e派工具箱(XCAD)的支持
(defun c:tt ()
(CMDLA0)
(xyp-MkLaCo "洞口线" 1)
(setq int (Uint 1 "" "洞口线离左上角点的比例" int)) ;10
(setq i -1)
(if (setq ss (ssget '((0 . "*polyLINE"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq p1 (xyp-9pt s1 1)
p7 (xyp-9pt s1 7)
p9 (xyp-9pt s1 9)
p3 (xyp-9pt s1 3)
dl (/ (distance p1 p9) int 1.)
p7a (polar p7 (angle p7 p3) dl)
s2 (xyp-Entmake-lwPolyline (list p1 p7a p9) nil)
)
)
)
(CMDLA1)
)

无惢 · 发表于 2013-2-3 12:04:06

论坛有没有只看作者的功能啊。一页一页的翻，太多了

q530496591 · 发表于 2013-2-26 13:35:44

留个记号先！

wjl1014 · 发表于 2013-3-1 13:12:48

院长放水了。

wjl1014 · 发表于 2013-3-1 13:26:00

院长此贴应长久保存学习。

wjl1014 · 发表于 2013-3-1 13:27:00

每一个都是经典，算法简练，实用。刚学习lisp就能看到院长的源码实属一大幸事。

xyp1964 · 发表于 2013-3-2 08:54:19

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

;; xyp-SsSort-Dxf 选择集依据dxf码值分类 (xyp-SsSort-Dxf ss mode)
;; (xyp-SsSort-Dxf (ssget) 1)
(defun xyp-SsSort-Dxf (ss mode / lst-dxf i s1 lst-num a b lst dx)
(if (and ss (= (type ss) 'PICKSET) (> (sslength ss) 0))
(progn
(setq lst-dxf '()
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq dx (xyp-dxf mode s1)
lst-dxf (cons (list dx s1) lst-dxf)
)
)
(setq lst-dxf (vl-sort lst-dxf '(lambda (x y) (< (car x) (car y))))
lst-num '()
a (car lst-dxf)
lst-dxf (cdr lst-dxf)
lst (list (cadr a))
)
(while (setq b (car lst-dxf))
(setq lst-dxf (cdr lst-dxf))
(if (= (type (car a)) 'REAL)
(if (equal (car a) (car b) 1e-5)
(setq lst (cons (cadr b) lst))
(setq lst-num (cons (list (car a) (reverse lst)) lst-num)
lst (list (cadr b))
a b
)
)
(if (equal (car a) (car b))
(setq lst (cons (cadr b) lst))
(setq lst-num (cons (list (car a) (reverse lst)) lst-num)
lst (list (cadr b))
a b
)
)
)
)
(reverse (cons (list (car a) (reverse lst)) lst-num))
)
)
)

;; xyp-SsSort-Dxf 选择集依据dxf码值分类 (xyp-SsSort-Dxf ss mode) 
;; (xyp-SsSort-Dxf (ssget) 1) 
(defun xyp-SsSort-Dxf (ss mode / lst-dxf i s1 lst-num a b lst dx) 
  (if (and ss (= (type ss) 'PICKSET) (> (sslength ss) 0)) 
    (progn 
      (setq lst-dxf '() 
            i -1 
      ) 
      (while (setq s1 (ssname ss (setq i (1+ i)))) 
        (setq dx      (xyp-dxf mode s1) 
              lst-dxf (cons (list dx s1) lst-dxf) 
        ) 
      ) 
      (setq lst-dxf (vl-sort lst-dxf '(lambda (x y) (< (car x) (car y)))) 
            lst-num '() 
            a            (car lst-dxf) 
            lst-dxf (cdr lst-dxf) 
            lst            (list (cadr a)) 
      ) 
      (while (setq b (car lst-dxf)) 
        (setq lst-dxf (cdr lst-dxf)) 
        (if (= (type (car a)) 'REAL) 
          (if (equal (car a) (car b) 1e-5) 
            (setq lst (cons (cadr b) lst)) 
            (setq lst-num (cons (list (car a) (reverse lst)) lst-num) 
                  lst          (list (cadr b)) 
                  a          b 
            ) 
          ) 
          (if (equal (car a) (car b)) 
            (setq lst (cons (cadr b) lst)) 
            (setq lst-num (cons (list (car a) (reverse lst)) lst-num) 
                  lst          (list (cadr b)) 
                  a          b 
            ) 
          ) 
        ) 
      ) 
      (reverse (cons (list (car a) (reverse lst)) lst-num)) 
    ) 
  ) 
)

账号		自动登录	找回密码
密码			注册

[讨论] 【e派】工具箱函数再揭秘及应用实例

本帖子中包含更多资源