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

onemax01

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

生活丨好无奈

好代码，谢谢院长

xyp1964

http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTExODQzfGQyNTc2Mzk4NDkyMDExOTViODYyZTNmNzAwMTNmMjRifDE3Mzg4MjE2NzI%3D&request=yes&_f=.gif

1. (defun c:tt () ; tt(单线变双分解动作)
   
2.   (xyp-Start)
   
3.   (setq ss (ssget '((0 . "*pol*")))
   
4.         lst1 (xyp-Ss2List ss)
   
5.         s0   (entlast)
   
6.   )
   
7.   (foreach s1 lst1
   
8.     (xyp-Offset s1 200 nil t nil)
   
9.     (setq s2 (entlast))
   
10.     (setq ss1 (ssget "c" (xyp-9pt s1 1) (xyp-9pt s1 9)))
    
11.     (setq ss1 (ssdel s1 ss1))
    
12.     (setq lst2 (xyp-Ss2List ss1))
    
13.     (xyp-delay 1000)
    
14.     (foreach x lst2
    
15.       (xyp-delay 1000)
    
16.       (xyp-Curve-Offset x 100)
    
17.     )
    
18.     (setq ss (xyp-SSelEntnext s2))
    
19.     (xyp-erase ss1)
    
20.     (setq lst (xyp-Ss2List ss))
    
21.     (foreach a (xyp-Ss2List ss)
    
22.       (xyp-delay 1000)
    
23.       (xyp-Boolean s2 a 2)
    
24.       (setq s2 (entlast))
    
25.     )
    
26.   )
    
27.   (xyp-ExplodeQf s2)
    
28.   (xyp-delay 1000)
    
29.   (xyp-ExplodeQf (xyp-SSelEntnext s0))
    
30.   (setq ss (xyp-SSelEntnext s0))
    
31.   (xyp-PeditJoin ss 0)
    
32.   (xyp-delay 1000)
    
33.   (xyp-SubUpd (xyp-SSelEntnext s0) 62 4)
    
34.   (xyp-End)
    
35. )

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

子长

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

受教了！谢谢院长！

xyp1964

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

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

magicheno

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

未来的迷茫

想看过滤延伸那个源码

cxjcqu

先收藏了，后面学习

xyp1964

1. (defun xyp-MinPolBox (ptn / mode p0 p1 p2 tmp rr)
   
2.   "点集逆时针凸包点集"
   
3.   (setq  ptn  (vl-sort ptn '(lambda (x y) (< (cadr x) (cadr y))))
   
4.         p0   (car ptn)
   
5.         ptn  (vl-sort (cdr ptn) '(lambda (x y) (< (angle p0 x) (angle p0 y))))
   
6.         rr   (angle p0 (car ptn))
   
7.         tmp  (list p0)
   
8.         p1   p0
   
9.         mode t
   
10.   )
    
11.   (while mode
    
12.     (setq ptn (vl-remove-if '(lambda (x) (< (angle p1 x) rr)) ptn)
    
13.           ptn (vl-sort ptn '(lambda (x y) (< (angle p1 x) (angle p1 y))))
    
14.           p2  (car ptn)
    
15.           rr  (angle p1 p2)
    
16.           ptn (vl-remove p2 ptn)
    
17.           ptn (if (not (member p0 ptn)) (cons p0 ptn) ptn)
    
18.     )
    
19.     (if (not (equal p2 p0 1e-3))
    
20.       (setq tmp(cons p2 tmp)
    
21.             p1 p2
    
22.       )
    
23.       (setq mode nil)
    
24.     )
    
25.   )
    
26.   (reverse tmp)
    
27. )
    

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

qazxswk

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