谁能帮我改尚一下程序

烛光 · 发表于 2002-8-3 18:52:00

这是一个自动串接的程序，但是如果图形中有重复线和没有闭合的线时它不会提示用户。
程序如下：
（defun c:j()
(setvar "Cmdecho" 0)
(setq ss(ssget))
(setq n 0 )
(setq c 0 )
(while (<= c (- (sslength ss) 1))
(setq e(ssname ss c))
(if (= "LINE" (cdr (assoc 0 (entget e))))
(command "pedit" e "y" "j" ss "" "")
(princ)
)
(if (= "ARC" (cdr (assoc 0 (entget e))))
(command "pedit" e "y" "j" ss "" "")
(princ)
)
(setq c (+ 1 c))
)
(princ)
)
谁写过删重复线的程序吗？

烛光 · 发表于 2002-8-17 19:44:00

你说的这个是命令吗？我回去试一下。

谁能帮我改尚一下程序

发表回复

精选推荐