.....................................

贱人 · 发表于 2004-12-25 13:17:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由贱人于 2025-4-18 07:33 编辑

.....................................

xyp1964 · 发表于 2004-12-25 20:34:48

这样更好：
[php];;;代替pedit连接多线
(defun c:test (/ ss s1 entype)
  (princ "\n请选择需要连接的线段: ")
  (setq ss  (ssget '((0 . "LINE,*POLYLINE,ARC")))
S1 (ssname ss 0)
  )
  (if S1
(progn
   (setq entype (cdr (assoc 0 (entget S1))))
   (if (or (= entype "LINE") (= entype "ARC"))
(command "pedit" S1 "y" "j" ss "" "w" "0" "")
(command "pedit" S1 "j" ss "" "w" "0" "")
   )
)
  )
  (princ)
)[/php]

贱人 · 发表于 2004-12-25 21:40:36

本帖最后由贱人于 2025-4-18 07:33 编辑

.....................................

aeo · 发表于 2004-12-26 00:58:28

最初由 xyp1964 发布
[B]这样更好：
[php];;;代替pedit连接多线
(defun c:test (/ ss s1 entype)
  (princ "\n请选择需要连接的线段: ")
  (setq ss  (ssget '((0 . "LINE,*POLYLINE,ARC")))
S1 (ssname ss 0)
  )
  (if S1
(p... [/B]

不全面，闭合线呢?

梦断江南 · 发表于 2004-12-26 23:48:29

我认为程序应该没有问题，对闭合线，pedit 处理的时候会自动跳过

账号		自动登录	找回密码
密码			立即注册

[研讨] .....................................

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块