把选取到的LINE变成多段线

Lisphk · 发表于 2016-9-30 12:40:06

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

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

×

(defun c:tt (/ ss)
(if (setq ss (ssget "_:L" '((0 . "LINE"))))
(command "._pedit" "multiple" ss "" "y" "")
(prompt "\n** Nothing selected ** ")
)
(princ)
)

把选取到的LINE变成多段线。

lisp_beginner · 发表于 2016-9-30 17:02:26

谢谢楼主，学习了，如果能合并的合并到一起，代码怎么写呢？

Lisphk · 发表于 2016-9-30 18:09:13

lisp_beginner 发表于 2016-9-30 17:02

这样应该就行了

(defun c:tt (/ ss)
(if (setq ss (ssget "_:L" '((0 . "LINE"))))
(command "._pedit" "multiple" ss "" "y" "j" "" "")
(prompt "\n** Nothing selected ** ")
)
(princ)
)

lisp_beginner · 发表于 2016-10-1 00:00:53

Lisphk 发表于 2016-9-30 18:09

谢谢HK，试了你的代码，所有的直线都能直接转成多段线，能连接的也连到一起了。我试着修改你的代码，加入了对多段线的支持选择，想把LINE和多段线都能转化连接，

(defun c:tt (/ ss)
  (if (setq ss (ssget "_:L" '((0 . "LINE,*POLYLINE"))))
(command "._pedit" "multiple" ss "" "y" "j" "" "")
(prompt "\n** Nothing selected ** ")
  )
  (princ)
)

可是，如果有直线的情况下，没有问题，可是如果都是多段线的情况下，出错了，提示：

命令: TT
选择对象: 指定对角点: 找到 5 个

选择对象:

无效的选项关键字。

错误: 函数被取消

无效的选项关键字。

无效的选项关键字。

输入选项 [闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放弃(U)]:

我手动在命令行执行PEDIT，发现没LINE的时候，没有是否转换多段线（Y）的提示，如果我把代码里面的"Y"去掉，如果有LINE的时候又不对了，
请问怎么才能都兼顾呢？

Lispboy · 发表于 2016-10-1 00:57:45

lisp_beginner 发表于 2016-10-1 00:00

加入下系统变量PEDITACCEPT=1就行了，

PEDITACCEPT

类型:	整数
保存位置:	注册表
初始值:	0

禁止在 PEDIT 中显示“选定的对象不是多段线”提示。该提示后会显示“是否将其转换为多段线？”输入 y 可将选定对象转换为多段线。当该提示被禁止显示时，选定对象将自动转换为多段线。

0	显示提示
1	抑制提示

修改后，下面代码就是一个批量的 “线变复线”的工具了。

(defun c:tt (/ ss) (prompt "\n选取要连接成多段线的LINE,POLYLINE<退出>:")
(if (setq ss (ssget "_:L" '((0 . "line,*polyline"))))
(progn
(setq oldp (getvar 'peditaccept)
oldc (getvar 'cmdecho)
)
(setvar 'cmdecho 0)
(setvar 'peditaccept 1)
(command "._pedit" "multiple" ss "" "j" "" "")
(setvar 'peditaccept old)
(setvar 'cmdecho oldc)
)
)
(princ)
)

yoyoho · 发表于 2016-10-2 09:17:56

感谢分享程序!!!!

hhq5085 · 发表于 2016-10-2 22:24:57

这个很实用，谢谢

lisp_beginner · 发表于 2016-10-2 22:56:04

Lispboy 发表于 2016-10-1 00:57

谢谢LISPBOY，很好，又学习了一招，没问题。

sunshinejwt · 发表于 2017-5-13 23:40:25

(setvar 'peditaccept old)应该为(setvar 'peditaccept oldp)

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

[每日一码] 把选取到的LINE变成多段线

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