各种线取样提取坐标适用line,lwpolyline,polyline,spline,circle,arc,ellipse

cchessbd · 发表于 2022-12-13 20:59:26

本帖最后由 cchessbd 于 2022-12-13 21:00 编辑

老大，您这个程序有点问题。随手画了一个带圆弧的多段线，转换为多线精确度不够。
(outcurvept (car(entsel "\n选择线对象转为非曲线化多线段: "))) 点击图纸中多段线，得到一堆点表。

使用2楼的例子，转换的多线精度差太多了。
(command "pline" (foreach p (outcurvept (car(entsel "\n选择线对象转为非曲线化多线段: ")))(command p)))

wzg356 · 发表于 2022-12-13 22:55:03

cchessbd 发表于 2022-12-13 20:59
老大，您这个程序有点问题。随手画了一个带圆弧的多段线，转换为多线精确度不够。
(outcurvept (car(ents ...

可以调高精度的，精度高，取点就多，效率就慢

cchessbd · 发表于 2023-1-5 13:05:22

请问，如果要圆滑取点咋办呢？您这个取点非常精确，就是不够圆滑，当我画多段线的时候就很不好看。而且也不和图片一致。因为鼠标移动还是有抖动的。

wzg356 · 发表于 2023-1-5 17:40:42

cchessbd 发表于 2023-1-5 13:05
请问，如果要圆滑取点咋办呢？您这个取点非常精确，就是不够圆滑，当我画多段线的时候就很不好看。而且也不 ...

加一个9—————0.99999

菜冬瓜 · 发表于 2023-5-20 20:28:09

感谢大侠的程序 !!!!!

kzd2004 · 发表于 2023-12-27 21:10:11

请问怎样一次性选择并删除好多小于20ｍｍ的线段吗？

wzg356 · 发表于 2023-12-27 21:16:49

本帖最后由 wzg356 于 2023-12-27 21:27 编辑

kzd2004 发表于 2023-12-27 21:10
请问怎样一次性选择并删除好多小于20ｍｍ的线段吗？

http://bbs.mjtd.com/forum.php?mo ... 53&page=5#pid967354
加载上面工具
执行
(ssgetplus "" '((0 . "*LINE") ("<=" LENGTH . 20.0)) nil)

然后delete

duhan6401 · 发表于 2024-3-8 18:07:19

没看懂，还要多学习

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

[源码] 各种线取样提取坐标适用line,lwpolyline,polyline,spline,circle,arc,ellipse

本帖子中包含更多资源