[求助]：懒人用mpedit

HLB_Konan

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

andyhua5240

mpedit，为未知命令呀？
好像CAD中有个PEDIT命令。

真正的菜鸟

(defun c:mp ()
  (command "_pedit" "m" (ssget) "" "j" "0" "")
  (princ)
)

HLB_Konan

mpedit 是et 工具里面的命令呀 如果不装et工具 肯定是未知命令 另外三楼的 你的命令我试过了 在我这个版本里面不行 我用的是08版的 仍谢谢三楼的

andyhua5240

2. 
   
3.   [FONT=courier new]
   
4. (defun pd_err (s)
   
5.   (setvar "peditaccept" pe)
   
6.   (setvar "cmdecho" cm)
   
7.   (command "_.undo" "_e")
   
8. )
   
9. 
   
10. (defun c:p (/ sg)
    
11.   (princ "\n选择要连接成 Pline 的对象(line,arc,pline) <退出>:"
    
12.   )                                       
    
13.   (setq pe (getvar "peditaccept"))       
    
14.   (setq cm (getvar "cmdecho"))
    
15.   (setq *error* pd_err)                       
    
16.   (setvar "peditaccept" 1)               
    
17.   (setvar "cmdecho" 0)
    
18.   (setq sg (ssget))                       
    
19.   (if sg
    
20.     (progn
    
21.       (command ".pedit" "m" sg "" "j" "j" "b" "300" "")
    
22.                                        
    
23.     )
    
24.   )
    
25.   (setvar "peditaccept" pe)               
    
26.   (setvar "cmdecho" cm)
    
27.   (princ)                               
    
28. )
    
29.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun pd_err (s)<br />   (setvar "peditaccept" pe)<br />   (setvar "cmdecho" cm)<br />   (command "_.undo" "_e")<br /> )<br /> <br /> (defun c:p (/ sg)<br />   (princ "\n选择要连接成 Pline 的对象(line,arc,pline) <退出>:"<br />   )                                        <br />   (setq pe (getvar "peditaccept"))        <br />   (setq cm (getvar "cmdecho"))<br />   (setq *error* pd_err)                        <br />   (setvar "peditaccept" 1)                <br />   (setvar "cmdecho" 0)<br />   (setq sg (ssget))                        <br />   (if sg<br />     (progn<br />       (command ".pedit" "m" sg "" "j" "j" "b" "300" "")<br />                                         <br />     )<br />   )<br />   (setvar "peditaccept" pe)                <br />   (setvar "cmdecho" cm)<br />   (princ)                                <br /> )<br />   [/FONT]<br />

andyhua5240

2. 
   
3.   [FONT=courier new]
   
4. (defun pd_err (s)
   
5.   (setvar "peditaccept" pe)
   
6.   (setvar "cmdecho" cm)
   
7.   (command "_.undo" "_e")
   
8. )
   
9. 
   
10. (defun c:p (/ sg)
    
11.   (princ "\n选择要连接成 Pline 的对象(line,arc,pline) <退出>:"
    
12.   )                                       
    
13.   (setq pe (getvar "peditaccept"))       
    
14.   (setq cm (getvar "cmdecho"))
    
15.   (setq *error* pd_err)                       
    
16.   (setvar "peditaccept" 1)               
    
17.   (setvar "cmdecho" 0)
    
18.   (setq sg (ssget))                       
    
19.   (if sg
    
20.     (progn
    
21.       (command ".pedit" "m" sg "" "j" "j" "b" "300" "")
    
22.                                        
    
23.     )
    
24.   )
    
25.   (setvar "peditaccept" pe)               
    
26.   (setvar "cmdecho" cm)
    
27.   (princ)                               
    
28. )
    
29. 
    
30.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun pd_err (s)<br />   (setvar "peditaccept" pe)<br />   (setvar "cmdecho" cm)<br />   (command "_.undo" "_e")<br /> )<br /> <br /> (defun c:p (/ sg)<br />   (princ "\n选择要连接成 Pline 的对象(line,arc,pline) <退出>:"<br />   )                                        <br />   (setq pe (getvar "peditaccept"))        <br />   (setq cm (getvar "cmdecho"))<br />   (setq *error* pd_err)                        <br />   (setvar "peditaccept" 1)                <br />   (setvar "cmdecho" 0)<br />   (setq sg (ssget))                        <br />   (if sg<br />     (progn<br />       (command ".pedit" "m" sg "" "j" "j" "b" "300" "")<br />                                         <br />     )<br />   )<br />   (setvar "peditaccept" pe)                <br />   (setvar "cmdecho" cm)<br />   (princ)                                <br /> )<br /> <br />   [/FONT]<br />

HLB_Konan

楼上的程序 已经达到了完美  呵呵  顺便再问你个问题
(defun pd_err (s)
  (setvar "peditaccept" pe)
  (setvar "cmdecho" cm)
  (command "_.undo" "_e")
)
  和(setq *error* pd_err)       

你的这段程序 是表达 如果中途退出 以前的设置依然有效 是这个意思吧 我知道编程的人 遇到最郁闷的事 就是设置osmode=0时 esc退出时不能还原osmdoe的内容 加上这段程序后 能不能改变这个问题

HLB_Konan

楼上的程序 已经达到了完美  呵呵  顺便再问你个问题
(defun pd_err (s)
  (setvar "peditaccept" pe)
  (setvar "cmdecho" cm)
  (command "_.undo" "_e")
)
  和(setq *error* pd_err)       

你的这段程序 是表达 如果中途退出 以前的设置依然有效 是这个意思吧 我知道编程的人 遇到最郁闷的事 就是设置osmode=0时 esc退出时不能还原osmdoe的内容 当然这个程序不用osmode 这个问题 不知道楼上是怎么解决的？

HLB_Konan

楼上的程序 已经达到了完美  呵呵  顺便再问你个问题
(defun pd_err (s)
  (setvar "peditaccept" pe)
  (setvar "cmdecho" cm)
  (command "_.undo" "_e")
)
  和(setq *error* pd_err)       

你的这段程序 是表达 如果中途退出 以前的设置依然有效 是这个意思吧 我知道编程的人 遇到最郁闷的事 就是设置osmode=0时 esc退出时不能还原osmdoe的内容 当然这个程序不用osmode 这个问题 不知道楼上是怎么解决的？

andyhua5240

一样的道理，程序在运行前先储存osmode的值，执行玩后，或者用户中途退出，利用出错函数，恢复过来就行了。
具体可以参见peditaccept系统变量定义。
还有就是上面的合并距离我是设置的为300，你如果要是其它值，也是可以的，不过建议不要太大。

HLB_Konan

osmode在这程序中用是没有问题的 但我
(defun pd_err (s)
(setvar "cmdecho" cm)
(command "_.undo" "_e")
)
和
(setq *error* pd_err)
加在我其它的程序上就不可以了 不知道为什么？我对程序不懂，希望再次赐教，对于其它程序如何能够中途退出时，保存osmode的值，再次感谢cad界的华仔

haungjing0987

将medit写为pedit