[LISP程序]：如何将直线offset成宽度30的pline？？

zippo11 · 发表于 2005-9-1 14:09:25

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

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

×

如题。

leochen · 发表于 2005-9-1 14:45:42

用光标抓取直线，获取直线两端点，删除直线，再画通过两端点的宽度为30的pline线

zippo11 · 发表于 2005-9-1 15:23:48

能否给个程序阿？

LADESIGNER · 发表于 2005-9-1 19:40:39

最初由 zippo11 发布
[B]如题。 [/B]

(defun c:test()
(setq en(car(entsel"\n选择要offset的直线:")))
(command "offset" pause en pause "" "pedit" (entlast) "y" "w" 30 "")

zippo11 · 发表于 2005-9-2 09:20:16

补充一点，要是同时想改变到OFFSET后的线到其他图层（例如“1”），谁能帮我解决一下？？感激不尽！！

蓝云 · 发表于 2005-9-2 11:24:57

(command "change" (entlast) "" "p" "la" "1" "")

zippo11 · 发表于 2005-9-2 12:04:30

(defun c:test()
(setq en(car(entsel"\n选择要offset的直线:")))
(command "offset" "60" en pause "" "pedit" (entlast) "y" "w" 30 "")
(command "change" (entlast) "" "p" "la" "GJ" "")
)
好像对多义线偏移后没效果。

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

[LISP程序]：如何将直线offset成宽度30的pline？？

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

相关帖子

Re: [LISP程序]：如何将直线offset成宽度30的pline？？