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))
)
)
(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)
)
能否提供下函数xyp-SsEntnext和xyp-Sort，3q
谢谢院长大人分享
本帖最后由 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)
;;
院长的源码那是必须学习{:1_1:}
xyp-get-DXF这个函数什么作用
院长技术没得说，e派也装过，很多很牛的功能
感谢院长大大分享，学习了
支持院长:victory: