[教学]：关于多义线编辑

chen10jing

求助：有没有办法让多义线编辑命令先选择再执行，为什么只能先发命令，然后才能选择呢？一点也不方便。

小不点儿

看看这帖：
http://www.xdcad.net/forum/showthread.php?s=&threadid=474813

chen10jing

可是还是不行，有没有什么好的方法。

eachy

因为Autodesk没有将 Pedit 列入可以先选后执行的命令。
这样好像没什么特别，只是在多选是还有点用途

2. 
   
3. ;;可以替代Pedit，增加了多选时的先选择后执行，其他同标准 Pedit 命令
   
4. (defun c:xpedit        (/ ss myerr olderr)
   
5.   (defun myerr (msg)
   
6.     (if        (/= msg "cancel")
   
7.       (princ "\n*Cancel*")
   
8.     )
   
9.     (setvar "cmdecho" 0)
   
10.     (setq *error* olderr)
    
11.     (princ)
    
12.   )
    
13.   (setq olderr *error*
    
14.         *error* myerr)
    
15.   (setvar "cmdecho" 1)
    
16.   (if (setq ss (cadr (ssgetfirst)))
    
17.     (if        (= (sslength ss) 1)
    
18.       (progn (vl-cmdf ".pedit" )
    
19.              (while (/= (getvar "cmdnames") "")
    
20.                (command pause)
    
21.              )
    
22.       )
    
23.       (progn (command ".pedit" "M" ss “”)
    
24.              (while (/= (getvar "cmdnames") "")
    
25.                (command pause)
    
26.              )
    
27.       )
    
28.     )
    
29.     (command ".pedit")
    
30.   )
    
31.   (setvar "cmdecho" 0)
    
32.   (setq *error* olderr)
    
33.   (princ)
    
34. )

<br /> ;;可以替代Pedit，增加了多选时的先选择后执行，其他同标准 Pedit 命令<br /> (defun c:xpedit        (/ ss myerr olderr)<br />   (defun myerr (msg)<br />     (if        (/= msg "cancel")<br />       (princ "\n*Cancel*")<br />     )<br />     (setvar "cmdecho" 0)<br />     (setq *error* olderr)<br />     (princ)<br />   )<br />   (setq olderr *error*<br />         *error* myerr)<br />   (setvar "cmdecho" 1)<br />   (if (setq ss (cadr (ssgetfirst)))<br />     (if        (= (sslength ss) 1)<br />       (progn (vl-cmdf ".pedit" )<br />              (while (/= (getvar "cmdnames") "")<br />                (command pause)<br />              )<br />       )<br />       (progn (command ".pedit" "M" ss “”)<br />              (while (/= (getvar "cmdnames") "")<br />                (command pause)<br />              )<br />       )<br />     )<br />     (command ".pedit")<br />   )<br />   (setvar "cmdecho" 0)<br />   (setq *error* olderr)<br />   (princ)<br /> )

梦断江南

;; 利用ssget,可以先选.
;; 可如下简化程序

2. 
   
3. ;;可以替代Pedit，增加了多选时的先选择后执行，其他同标准 Pedit 命令
   
4. (defun c:xped ( / ss)
   
5.   (setq ss (ssget '((0 . "*POLYLINE,LINE,ARC"))))
   
6.   (command ".pedit" "m" ss "")
   
7. )
   

<br /> ;;可以替代Pedit，增加了多选时的先选择后执行，其他同标准 Pedit 命令<br /> (defun c:xped ( / ss)<br />   (setq ss (ssget '((0 . "*POLYLINE,LINE,ARC"))))<br />   (command ".pedit" "m" ss "")<br /> )<br />