[求助]：怎么将转换多线段的命令PE简化?

tchthong

1. pedit，回车。
2. m，回车。
3. 选择希望合并的线。
4. 如原来的是直线，y,回车，转为多段线。
5. j，回车。
6. OK.

有没可以将上述步骤用一个LSP或者编程就可以完成?

次次操作这么多步骤,很麻烦...

凉鼎鼎

*-*9
用FILTER过滤所有直线,然后再PEDIT,选择多段线,按P;再选择多段线,按M;选择对象,按P;选择对象,回车;再Y.这样所有直线变为多段线了

tchthong

楼上的方法太麻烦了，我就是想编一个命令把所有的步骤一下完成

zhynt

[php]
(DEFUN C:J (/ l1 ls1) (princ "连接多义线命令 :")
       (setq l1 (car (entsel "\n 选择一条用于连接的线 :")))
       (while (= l1 nil)
           (princ "\n没有选中")
           (setq l1 (car (entsel "\n 选择一条用于连接的线 :")))
       )
       (prompt "\n 选择需要连接的多义线:")
       (setq ls1 (ssget))
       (setvar "cmdecho" 0)
           (setq e0 (entget l1))
           (setq e (cdr (assoc  0 e0)))
           (if (/= e "LWPOLYLINE")
               (progn
                   (COMMAND "PEDIT" l1 "Y" "J" ls1 "" "X")
               )
           )
          (if (= e "LWPOLYLINE")
              (progn
                  (COMMAND "PEDIT" l1 "J" ls1 "" "X")
              )
          )
       (setvar "cmdecho" 1)
(PRINC)
)
[/php]