求将线首尾相连成封闭多线

品茗新秀

求将线首尾相连成封闭多线

ysq101

那线不是封闭了吗？？

xuyajun1979

2. (defun c:merge(/ ss1)
   
3.    (setvar "cmdecho" 0)
   
4.    (command "_.undo" "_BE")
   
5.      (setq ss1 (ssget "X" (list (cons 0 "*Line"))))
   
6.    (command "_pedit" "m" ss1 "" "y" "j" "" "" )
   
7.      (princ)
   
8.    (command "_.undo" "_E")
   
9.        (princ)
   
10. )

(defun c:merge(/ ss1)<br />    (setvar "cmdecho" 0)<br />    (command "_.undo" "_BE")<br />      (setq ss1 (ssget "X" (list (cons 0 "*Line"))))<br />    (command "_pedit" "m" ss1 "" "y" "j" "" "" )<br />      (princ)<br />    (command "_.undo" "_E")<br />        (princ)<br /> )

品茗新秀

xuyajun1979 发表于 2014-2-25 00:06

测试了一下，你帮看一下

品茗新秀

能不能不在当前层也有效

726613

品茗新秀

726613 发表于 2014-2-26 09:46

源码放出来让大家学习一下

xyp1964

基本功问题：(command"pedit")