[求助]：大侠帮我看看,为什么会有参数错误?

lyc3029 · 发表于 2005-9-9 08:48:55

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

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

×

;;;;取消重复的线条
(defun c:dcf(/ n i ss st st1 x1 x2 x3 x4 y1 y2 y3 y4 a b m)
(setq ss (ssget))
(setq n (sslength ss))
(setq i 0)(setq m 0)
(while (<= i (- n 1))
(setq a (ssname ss i))
(setq st (entget a))
(setq b (ssname ss (+ 1 i)))
(setq st1 (entget b))
(setq x1 (cadr (assoc 11 st)))
(setq y1 (caddr (assoc 11 st)))
(setq x2 (cadr (assoc 10 st)))
(setq y2 (caddr (assoc 10 st)))
(setq x3 (cadr (assoc 11 st1)))
(setq y3 (caddr (assoc 11 st1)))
(setq x4 (cadr (assoc 10 st1)))
(setq y4 (caddr (assoc 10 st1)))
(if
(and (= x1 x3) (= x2 x4) (= y1 y3) (= y2 y4))
(progn (command "ERASE" a "") (setq m (+ 1 m) ) )
(princ "\n此选择集无重复线条!")
)
(setq i (+ i 1))
)
(princ "\n") (princ m) (princ "条重复线被删除!")
(princ )
)

zxq0220 · 发表于 2005-9-9 11:00:03

将
(setq ss (ssget))
改为
(setq ss (ssget '((0 . "LINE"))))
限定选择的图线是直线。

xyp1964 · 发表于 2005-9-9 12:07:13

最初由 lyc3029 发布
[B];;;;取消重复的线条
(defun c:dcf(/ n i ss st st1 x1 x2 x3 x4 y1 y2 y3 y4 a b m)
(setq ss (ssget))
(setq n (sslength ss))
(setq i 0)(setq m 0)
(while (<= i (- n 1))
(setq a (ssname ss i))
(setq s... [/B]

线重合但不等长怎么办？

lyc3029 · 发表于 2005-9-9 13:01:29

斑竹讲了很有道理
没考虑到,
返回一条线的长度用什么函数?
to 2楼
好像还是不行,问题依旧!

zxq0220 · 发表于 2005-9-9 13:59:46

(while (<= i (- n 1))改为(while (< i (- n 1))。不然最后一个实体没有了，(ssname ss (+ 1 i))取不到东西。
另：如果线的起点和终点颠倒了怎么办？

xyp1964 · 发表于 2005-9-9 14:37:12

试试：“清理重线”程序

lyc3029 · 发表于 2005-9-9 18:31:50

斑主如果可以把源程序贴出来就好了,让大家欣赏一下

我的QQ:26035511,欢迎加我!

ynjzlzd · 发表于 2006-2-23 12:22:54

在使用清理重线程中,出现如下问题,
确定被清理层任一元素 :
正在清理重线, 请稍候...
.......; 错误: 没有为参数定义函数: -1402.77
不知是什么问题,

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

[求助] [求助]：大侠帮我看看,为什么会有参数错误?

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

相关帖子

Re: [求助]：大侠帮我看看,为什么会有参数错误?