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

xyp1964

qazxswk 发表于 2022-12-21 11:44
院长，能提供一下xyp-Fillet0函数源码吗？

(defun xyp-Fillet0 (s1 s2)
"两直线0长圆角"
(setvar"FILLETRAD"0)
(command "fillet"
(list s1 (xyp-CurveMidPoint s1))
(list s2 (xyp-CurveMidPoint s2))
)
)

xyp1964

1. (defun xyp-List-DivFB (lst n / b i tmp)
   
2.   "xyp-List-DivFB 表首尾连续取值生成新表 (xyp-List-DivFB lst表 n子表内数量)"
   
3.   "(xyp-List-DivFB '(1 2 3 4 5 6) 7) → ((1 2 3) (2 3 4) (3 4 5) (4 5 6) (5 6 1) (6 1 2))"  
   
4.   (setq        i   0
   
5.         tmp '()
   
6.   )
   
7.   (repeat (1- n)
   
8.     (setq lst (append lst (list (nth i lst)))
   
9.           i   (1+ i)
   
10.     )
    
11.   )
    
12.   (while (>= (length lst) n)
    
13.     (setq i 0
    
14.           b '()
    
15.     )
    
16.     (repeat n
    
17.       (setq b (cons (nth i lst) b)
    
18.             i (1+ i)
    
19.       )
    
20.     )
    
21.     (setq tmp (cons (reverse b) tmp)
    
22.           lst (cdr lst)
    
23.     )
    
24.   )
    
25.   (reverse tmp)
    
26. )

(defun xyp-List-DivFB (lst n / b i tmp)<br />   "xyp-List-DivFB 表首尾连续取值生成新表 (xyp-List-DivFB lst表 n子表内数量)"<br />   "(xyp-List-DivFB '(1 2 3 4 5 6) 7) → ((1 2 3) (2 3 4) (3 4 5) (4 5 6) (5 6 1) (6 1 2))"  <br />   (setq        i   0<br />         tmp '()<br />   )<br />   (repeat (1- n)<br />     (setq lst (append lst (list (nth i lst)))<br />           i   (1+ i)<br />     )<br />   )<br />   (while (>= (length lst) n)<br />     (setq i 0<br />           b '()<br />     )<br />     (repeat n<br />       (setq b (cons (nth i lst) b)<br />             i (1+ i)<br />       )<br />     )<br />     (setq tmp (cons (reverse b) tmp)<br />           lst (cdr lst)<br />     )<br />   )<br />   (reverse tmp)<br /> )

muai2010

能否提供下函数xyp-SsEntnext和xyp-Sort，3q

uualice2020

谢谢院长大人分享

xyp1964

小结：

第1页
;; xyp-SubUpd 更改图元DXF组码以修改实体属性 (xyp-SubUpd ename code newvalue)
;; xyp-DXF 实体dxf数据 (xyp-DXF code ename)
;; xyp-Put VL方式修改 (xyp-Put keyname ename value)

2
;; CheckPtn 删除重复点表 (CheckPtn ptn 500)

3
;; xyp-CheckPtn 点表集含fuzz的处理 (xyp-CheckPtn ptn fuzz mode) mode:>=<等
;; xyp-get-Vertexs多义线顶点集 (xyp-get-Vertexs ename mode)

6
;; xyp-Entmake-lwPolyline 建立多段线 (xyp-Entmake-lwPolyline 点集 闭合参数)
三角函数类

7
;; ★U序列函数★

8
;; xyp-get-MidPoint 两点之中点 (xyp-get-MidPoint p1 p2)
;; xyp-get-MidPointUP 垂直平分线上定点-波峰 (xyp-get-MidPointUP p1 p2 dd)
;; xyp-get-MidPointDN 垂直平分线上定点-波谷 (xyp-get-MidPointDN p1 p2 dd)
;; xyp-SsdelLayer 选择集中删除特定图层 (xyp-SsdelLayer sss "1")


9
;; xyp-Ssdel 选择集中删除特定类实体 (xyp-Ssdel sss "1")
;; xyp-R2D 弧度转角度 (xyp-R2D rad)
;; xyp-D2R 角度转弧度 (xyp-D2R ang)
;; xyp-get-tblnext 获得特定符号表的列表 (xyp-get-tblnext "Block")
;; xyp-Join-Line 直线消重 (xyp-Join-Line ename1 ename2)
;; XYP-3PointAtLine 3点共线 (XYP-3PointAtLine p1 p2 p3)
;; xyp-Sort-ptnByXYZ 点表按照xyz从小到大排序 (xyp-Sort-ptnByXYZ ptn)

11
;; xyp-CircleLineDim 圆轴线标注 (xyp-CircleLineDim s1 dx dy)

13
;; xyp-SortListSub 以表内某子项为首重新排序 (xyp-SortListSub lst sub)

14
;; xyp-SS2LayerList 选择集图层表 (xyp-SS2LayerList ss)
;; xyp-Str2List 将一行字符串拆分转为单独字符表 (xyp-Str2List str)

15
;; xyp-ScaleEntity 缩放实体或选择集 (xyp-ScaleEntity ename point sc)1

16
;; xyp-Line vl方式画线(点与点、点集与点、点与点集、点集与点集) (xyp-Line p1 p2)

17
;; xyp-SsSort-Dxf 选择集依据dxf码值分类 (xyp-SsSort-Dxf ss mode)

18
;; xyp-Sort-PList 实体点集表排序 (xyp-Sort-PList lst mode)

19
;; xyp-9Pt 实体9点坐标 (xyp-9Pt ename site)

23
xyp-mkLaCo
xyp-Pt2XY
xyp-SselEntnext
xyp-CircleCR

24
xyp-SS2List

25
;; xyp-Pline 建立多段线 (xyp-Pline 点集 闭合参数)
;; xyp-Erase 删除 (xyp-Erase ss)

27
;; xyp-Strcat 字符串表的连接 (xyp-Strcat lst 连接符)
;; xyp-SerialNumber 正整数或文本表 (xyp-SerialNumber nn数量 Num-TNil整数)

28
;; 表按子表第n位归类 (Count-Nth lst表 n位置)

29
;; xyp-Sort-PList 点集实体排序 (xyp-Sort-Plist lst mode) mode 1~10

30
;; xyp-Div3DistWith2Pt 沿两点3种距离等分的最优组合 (xyp-Div3DistWith2Pt p1起点 p2终点 d1距离1 d2距离2 d3距离3)
;; xyp-List-Del 删除表内子项 (xyp-List-Del 表 表内删除子项位置列表)

31
;; xyp-get-Layers 获得所有layer层名的列表 (xyp-get-Layers)

32
;; xyp-MinPolBox 点集逆时针凸包点集 (xyp-MinPolBox ptn)

33
;; xyp-Fillet0 两直线0长圆角 (xyp-Fillet0 s1 s2)
;; xyp-List-DivFB 表首尾连续取值生成新表 (xyp-List-DivFB lst表 n子表内数量)

34
;; xyp-StrSubst 在字符串中进行字符串替换 (xyp-StrSubst new old string)
;; xyp-StrSpr 以指定分解符分解字符串 (xyp-StrSpr string sub)


;;

ninja37

院长的源码那是必须学习

clm840917

xyp-get-DXF  这个函数什么作用

ZJKUSO

院长技术没得说，e派也装过，很多很牛的功能

magicheno

感谢院长大大分享，学习了

ywhz

支持院长