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

onemax01 发表于 2020-3-14 19:59:50

求教院长这几个函数 xyp-Xline-Inters、 xyp-curve-check、 xyp-ZB

生活丨好无奈 发表于 2020-6-18 22:44:54

好代码，谢谢院长

xyp1964 发表于 2020-11-19 23:19:00

本帖最后由 xyp1964 于 2020-11-19 23:21 编辑

attach://111843.gif

(defun c:tt () ; tt(单线变双分解动作)
(xyp-Start)
(setq ss (ssget '((0 . "*pol*")))
      lst1 (xyp-Ss2List ss)
      s0   (entlast)
)
(foreach s1 lst1
    (xyp-Offset s1 200 nil t nil)
    (setq s2 (entlast))
    (setq ss1 (ssget "c" (xyp-9pt s1 1) (xyp-9pt s1 9)))
    (setq ss1 (ssdel s1 ss1))
    (setq lst2 (xyp-Ss2List ss1))
    (xyp-delay 1000)
    (foreach x lst2
      (xyp-delay 1000)
      (xyp-Curve-Offset x 100)
    )
    (setq ss (xyp-SSelEntnext s2))
    (xyp-erase ss1)
    (setq lst (xyp-Ss2List ss))
    (foreach a (xyp-Ss2List ss)
      (xyp-delay 1000)
      (xyp-Boolean s2 a 2)
      (setq s2 (entlast))
    )
)
(xyp-ExplodeQf s2)
(xyp-delay 1000)
(xyp-ExplodeQf (xyp-SSelEntnext s0))
(setq ss (xyp-SSelEntnext s0))
(xyp-PeditJoin ss 0)
(xyp-delay 1000)
(xyp-SubUpd (xyp-SSelEntnext s0) 62 4)
(xyp-End)
)

子长 发表于 2020-11-20 09:48:01

xyp1964 发表于 2015-10-26 19:52


受教了！谢谢院长！

xyp1964 发表于 2020-11-23 23:52:22

;; tt(搜索引擎参考实例)
(defun c:tt ()
(setq lst '("xyp-SubUpd 更换图元 (xyp-SubUpd 实体名 DXF码 新值)"
              "xyp-DXF 实体dxf数据 (xyp-DXF code码 ename实体)"
              "xyp-9Pt 实体或选择集9点坐标 (xyp-9Pt 实体 site1~9码)"
             )
)
(xyp-search lst)
(princ)
)

magicheno 发表于 2021-2-8 22:37:00

求教院长这几个函数xyp-get-HzEngNum,xyp-HzEngNumAll

未来的迷茫 发表于 2021-8-18 19:59:24

想看过滤延伸那个源码

cxjcqu 发表于 2021-8-18 21:33:33

先收藏了，后面学习

xyp1964 发表于 2022-12-19 22:42:52

本帖最后由 xyp1964 于 2022-12-19 22:43 编辑


(defun xyp-MinPolBox (ptn / mode p0 p1 p2 tmp rr)
"点集逆时针凸包点集"
(setqptn(vl-sort ptn '(lambda (x y) (< (cadr x) (cadr y))))
      p0   (car ptn)
      ptn(vl-sort (cdr ptn) '(lambda (x y) (< (angle p0 x) (angle p0 y))))
      rr   (angle p0 (car ptn))
      tmp(list p0)
      p1   p0
      mode t
)
(while mode
    (setq ptn (vl-remove-if '(lambda (x) (< (angle p1 x) rr)) ptn)
          ptn (vl-sort ptn '(lambda (x y) (< (angle p1 x) (angle p1 y))))
          p2(car ptn)
          rr(angle p1 p2)
          ptn (vl-remove p2 ptn)
          ptn (if (not (member p0 ptn)) (cons p0 ptn) ptn)
    )
    (if (not (equal p2 p0 1e-3))
      (setq tmp(cons p2 tmp)
            p1 p2
      )
      (setq mode nil)
    )
)
(reverse tmp)
)

qazxswk 发表于 2022-12-21 11:44:03

本帖最后由 qazxswk 于 2022-12-21 12:22 编辑

院长，能提供一下xyp-Fillet0函数源码吗？

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