社区 › AutoLISP/Visual LISP 编程技术 › 【e派】工具箱函数再揭秘及应用实例

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

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

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

xyp1964 发表于 2012-7-22 00:28 static/image/common/back.gif
多个单行文本（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))
    )
)
)

查看完整版本: 【e派】工具箱函数再揭秘及应用实例