[求助]：懒人用mpedit

HLB_Konan · 发表于 2007-6-20 08:37:16

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

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

×

(defun C:mp (/ pt1)
(setq pt1 (ssget))
(command "mpedit" pt1 "" "y" "j" "0" "")
(princ)
)
想不明白问题在那？

firstintimate · 发表于 2007-6-20 08:58:13

(vl-cmdf ".pedit" "m" (ssget) "" "y" "j" 0 "")

它山之石 · 发表于 2007-6-20 09:15:56

PEDITACCEPT 系统变量

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

抑制在使用PEDIT时，显示"选取的对象不是多段线"的提示。该提示会显示“是否将其转换为多段线？”输入 y 可将选定对象转换成多段线。当该提示被抑制时，选定对象将自动转换成多段线。

0 显示提示

1 抑制提示

HLB_Konan · 发表于 2007-6-20 10:35:59

(defun C:mp (/ pt1 pt2)
(setq pt1 (ssget))
(setq pt2 (getvar peditaccept))
(setvar "peditaccept" "1")
(command "_pedit" "m" pt1 "" "j" "0" "")
(setvar "peditaccept" pt2)
(princ)
)
它山你说是这个意思吗？我试过了还是不行呀

eobser · 发表于 2007-6-20 18:00:23

(setq pt2 (getvar peditaccept));少了引号
(setvar "peditaccept" "1");多了引号

yshf · 发表于 2007-6-20 23:15:56

(defun C:mp (/ pt1 pt2)
(setvar "cmdecho" 0)
(setq pt1 (ssget))
(setq pt2 (getvar "peditaccept"))
(setvar "peditaccept" 1)
(command "_pedit" "m" pt1 "" "j" "0" "")
(setvar "peditaccept" pt2)
(princ)
)

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

[求助] [求助]：懒人用mpedit

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

相关帖子