【已解决】4条相交或断开的直线串连在一起，变成多段线/多义线

lizhaojun45 · 发表于 2019-3-18 23:50:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 lizhaojun45 于 2019-3-19 23:15 编辑

输入命令，之后，按顺时针，或者逆时针方向，一个一个的选择好对象（需要串连在一起的直线），程序自动执行倒尖角，或者程序自动执行相关的其它类似操作，如：该修剪的地方，修剪好，该延长的位置自动延长，最后自动的把这些编辑过的线，串连在一起成多段线/多义线。
（需要串连在一起的这些直线，基本上都是和X轴平行，或者和Y轴平行的直线）

注：修剪过后，相交的地方，必须是尖角，而且每条直线，只需选择一次就行了。

coverne · 发表于 2019-3-19 08:30:58

arcgis有类似的功能，这个怎么定义

王鹏_pBZlo · 发表于 2019-3-19 08:56:46

本帖最后由王鹏_pBZlo 于 2019-3-19 13:05 编辑

2对平行线(水平+垂直)构建矩形

lizhaojun45 · 发表于 2019-3-19 21:34:34

不错，解决了一个老大难的问题了，王鹏大哥。在哪上班呢。专业编程还是架构师。

lizhaojun45 · 发表于 2019-3-19 21:36:17

不是我要求高，实在是，每次绘图，要重复好多次，这样的步骤。

sdlyjc · 发表于 2019-3-19 21:43:35

谢谢！老铁分享

newer · 发表于 2019-3-19 21:56:06

(defun c:tt ()
(xdrx_begin)
(if (not #xd_var_global_dist_tol)
(setq #xd_var_global_dist_tol 1.0)
)
(if (setq tol (getreal (xdrx_prompt
"\n输入距离容差<"
#xd_var_global_dist_tol
">:"
t
)
)
)
(setq #xd_var_global_dist_tol tol)
)
(xdrx_document_setprec #xd_var_global_dist_tol 1.0)
(if (and (xdrx_initssget "\n选择处理的曲线<退出>:")
(setq ss (xdrx_ssget '((0 . "line,*polyline"))))
)
(progn
(xdrx_curve->polyline ss)
(xdrx_prompt "\n处理完毕.")
)
)
(xdrx_end)
(princ)
)

王鹏_pBZlo · 发表于 2019-3-19 22:10:51

lizhaojun45 发表于 2019-3-19 21:34
不错，解决了一个老大难的问题了，王鹏大哥。在哪上班呢。专业编程还是架构师。

船舶设计，cad是绘图工具，爱好编程而已
来自: 微社区

lizhaojun45 · 发表于 2019-3-19 22:56:00

本帖最后由 lizhaojun45 于 2019-3-19 23:03 编辑

谢谢王哥，两次的代码都很好用的。第一次的代码，是专门对付4根直线的，我加载进去，试了试，很好用。

第二次的代码是专门对付多条线的。

两份程序，都是好用之极。

lizhaojun45 · 发表于 2019-3-20 20:41:00

谢谢，newer兄弟。插件都很好用的。

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

[已解决] 【已解决】4条相交或断开的直线串连在一起，变成多段线/多义线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。