[求助]：大家看看我这个程序那里错了

Alick · 发表于 2004-11-9 15:20:58

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

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

×

想编一个统计总管长的程序，但加载后总是有错，麻烦大家帮我分析一下。

;;;统计管道总长程序;;;
(defun c:rzc ()
  (setvar "cmdecho" 0)
  (setq n 0)
  (setq zc 0)
  (princ "\n 请选择要统计的管线：")
  (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  (setq a (sslength ss))
  (repeat a
(setq c (getvar (command "lengthen" (ssname ss n) "")))
(setq zc (+ zc c))
(setq n (1+ n))
  )
  (princ "\n 管线总长为：" zc)
  (prin1)
)

Alan8088 · 发表于 2004-11-9 19:04:40

*****(setq c (getvar (command "lengthen" (ssname ss n) "")))***
此處錯誤，不可取得圖形長度

zxq0220 · 发表于 2004-11-10 12:29:55

更改后的程序如下：
(defun c:rzc ()
(setvar "cmdecho" 0)
(setq n 0)
(setq zc 0)
(princ "\n 请选择要统计的管线：")
(setq ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
(setq a (sslength ss))
(repeat a
(command "lengthen" (ssname ss n) "")
(setq zc (+ zc (getvar "perimeter")))
(setq n (1+ n))
)
(princ "\n 管线总长为：" zc)
(prin1)
)

Alick · 发表于 2004-11-10 14:22:10

最初由 Alan8088 发布
[B]*****(setq c (getvar (command "lengthen" (ssname ss n) "")))***
此處錯誤，不可取得圖形長度 [/B]

试验过，可以得到长度。

zxq0220 ：
照你的方法试过，还是有问题啊！老出现error: bad argument type。

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

[求助] [求助]：大家看看我这个程序那里错了

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

相关帖子