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

xyp1964 · 发表于 2023-1-18 23:45:26

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 · 发表于 2023-1-18 23:46:44

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

muai2010 · 发表于 2023-10-15 13:55:59

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

uualice2020 · 发表于 2023-10-16 15:14:46

谢谢院长大人分享

xyp1964 · 发表于 2023-11-5 10:20:34

本帖最后由 xyp1964 于 2024-1-3 12:53 编辑

小结：

第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 · 发表于 2023-11-6 09:04:58

院长的源码那是必须学习

clm840917 · 发表于 2023-11-12 04:15:01

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

ZJKUSO · 发表于 2023-11-12 10:49:22

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

magicheno · 发表于 2023-12-6 01:08:37

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

ywhz · 发表于 2023-12-6 09:37:17

支持院长

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

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