品茗新秀 发表于 2014-2-24 20:03:41

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

本帖最后由 品茗新秀 于 2014-2-24 20:04 编辑

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


ysq101 发表于 2014-2-24 21:27:54

那线不是封闭了吗？？

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

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

品茗新秀 发表于 2014-2-25 00:19:26

xuyajun1979 发表于 2014-2-25 00:06 static/image/common/back.gif


测试了一下，你帮看一下

品茗新秀 发表于 2014-2-25 20:06:40

能不能不在当前层也有效

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


品茗新秀 发表于 2014-3-3 11:49:30

726613 发表于 2014-2-26 09:46 static/image/common/back.gif


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

xyp1964 发表于 2014-3-3 12:39:01

基本功问题：(command"pedit")
页: [1]
查看完整版本: 求将线首尾相连成封闭多线