求单根多段线偏移变封闭多段线轮廓的lisp

tianying307 · 发表于 2019-5-18 21:54:32

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

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

×

本帖最后由 tianying307 于 2019-5-19 22:28 编辑

将单线四周向外偏移得到一条封闭的多段线

王鹏_pBZlo · 发表于 2019-6-15 16:35:27

本帖最后由王鹏_pBZlo 于 2020-2-7 07:56 编辑

以下源码
[sell=2](defun c:tt( / py ent ent1 ent2 p0 p1 p2 p3 p4 )
      (setvar "peditaccept" 1)
      (setq py (getreal "\n指定偏移距离:"))
      (while       (setq ent (car (entsel "\n选择要偏移的对象:")))
            (setq p0 (getpoint "\n选择偏移侧的一点:"))
            (command "offset" py ent p0 "")
            (command "pedit" (entlast) "")
            (setq ent1 (entlast))
            (setq p1 (vLax-Curve-getStartPoint ent))
            (setq p2 (vLax-Curve-getEndPoint ent))
            (setq p3 (vLax-Curve-getStartPoint ent1))
            (setq p4 (vLax-Curve-getEndPoint ent1))
            (if (< (distance p4 p1) (distance p3 p1)) (setq p0 p3 p3 p4 p4 p0))
            (entmake (list (cons 0 "LINE") (cons 10 p1) (cons 11 p3))) (setq ent2 (entlast))
            (entmake (list (cons 0 "LINE") (cons 10 p2) (cons 11 p4)))
            (command "pedit" ent1 "j" ent2 ent (entlast) "" "")
      )
      (princ)
)[/sell]

zhystar · 发表于 2019-5-19 09:11:54

用偏移命令不行么？

tianying307 · 发表于 2019-5-19 09:25:29

zhystar 发表于 2019-5-19 09:11
用偏移命令不行么？

一根不封闭的单根的多段线，偏移怎么生成封闭的多段线？图片没有上传成功，如果简化来说两个点的多段线，即一根直线，偏移怎么生成矩形？

jddjdd · 发表于 2019-6-8 21:50:49

你偏移后用多段线轮廓插件可以实现

王鹏_pBZlo · 发表于 2019-6-15 07:42:19

偏移后把对应端点用直线连上，然后让原多段线+新多段线+2条直线，变成一个封闭多段线吗？
来自: 微社区

xfange · 发表于 2019-7-11 15:48:02

王鹏_pBZlo 发表于 2019-6-15 16:35
111111111111111111

非常有用，谢谢，不过这玩意怎么更改命令呀，好多都是tt

王鹏_pBZlo · 发表于 2019-7-11 20:53:57

xfange 发表于 2019-7-11 15:48
非常有用，谢谢，不过这玩意怎么更改命令呀，好多都是tt

把第一句的tt改成你想要的
来自: 微社区

xfange · 发表于 2019-7-12 09:52:32

王鹏_pBZlo 发表于 2019-7-11 20:53
把第一句的tt改成你想要的

这个文件用记事本打开不是乱码的么？还是用其它什么程序打开？

Trouble12138 · 发表于 2020-1-8 15:12:47

xfange 发表于 2019-7-11 15:48
非常有用，谢谢，不过这玩意怎么更改命令呀，好多都是tt

你可以用吗？我输入tt不行啊

moto1986 · 发表于 2020-1-31 20:25:31

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上

DASDASA · 发表于 2020-4-8 15:06:13

不太实用，只能一条一条线偏移，如果能把两条以上的相交线条偏移并修剪就更好了。

tianying307 · 发表于 2020-4-13 23:29:56

王鹏_pBZlo 发表于 2019-6-15 16:35
以下源码
**** 本内容需购买可见 ****

非常感谢啊，不过当时需要的是向四周方向偏移，不是单一方向，不过也非常感谢您的积极回复，不好意思当时没注意到，现在才给您回复。时间好快，感觉时没多久提的申请，没想到快一年了

newer · 发表于 2020-6-29 00:43:32

tianying307 发表于 2020-4-13 23:29
非常感谢啊，不过当时需要的是向四周方向偏移，不是单一方向，不过也非常感谢您的积极回复，不好意思当时 ...

http://bbs.xdcad.net/thread-726191-1-1.html

登录/注册后可看大图

tianying307 · 发表于 2020-7-27 21:57:13

感谢版主的回复

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

[编程申请] 求单根多段线偏移变封闭多段线轮廓的lisp

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

点评

点评

点评

点评

点评