[求助]：求助图层中同种颜色线段求总长

wwxxyy11 · 发表于 2003-9-10 10:10:47

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

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

×

;;;计算图中蓝色线条的长度

(defun c:zc(/ a n t cd ent1 b c d e)
  (setq a (ssget "X" '((0 . "line") (62 . 5))))
  (setq n 0)
  (setq t 1)
  (setq cd 0)
  (setq zs (sslength a))
  (while t
  (setq  ent1 (ssname a n))
  (setq b (entget ent1))
  (setq c (cdr (assoc 10 b)))
  (setq d (cdr (assoc 11 b)))
  (setq e (distance c d))
  (setq cd (+ cd e))
  (setq n (+ n 1))
  (if (= n zs) (setq t nil))
  )
  (prompt "长度为") (princ cd) (prompt"米。")
)

运行后提示Command: zc
; error: incorrect object to bind: T

LUCAS · 发表于 2003-9-10 12:24:07

R2000+ 不能用 T 作為變數

nuance · 发表于 2003-9-10 12:32:12

如果你是用LISP编辑器编辑你的程序，变成蓝色的都是保留函数名，不能作为变量名，包括T。

cy956 · 发表于 2003-9-10 23:13:56

用颜色过滤应考虑随层、块内等情况。

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

[求助] [求助]：求助图层中同种颜色线段求总长

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

相关帖子

[求助] [求助]：求助 图层中同种颜色线段求总长

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

相关帖子

[求助] [求助]：求助图层中同种颜色线段求总长