[求助]：lisp编程高手请进来

hwdong007 · 发表于 2006-5-25 22:46:57

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

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

×

程序功能：当用鼠标点击直线或多线段的时候，程序会对他们的长度进行累加，最后在cad命令栏里显示他们的长度之和。

zxq0220 · 发表于 2006-5-25 23:31:38

(DEFUN C:ADDL ()
(SETVAR "CMDECHO" 0)
(SETQ SUML 0.0)
(WHILE (SETQ SS (SSGET '((0 . "*LINE,ARC,CIRCLE"))))
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
(SETQ EN (SSNAME SS (SETQ I (1+ I))))
(COMMAND "LENGTHEN" EN "")
(SETQ SUML (+ (GETVAR "PERIMETER") SUML))
  )
)
(SETVAR "CMDECHO" 1)
(PRINC "\nTotal Length is ") (PRINC SUML)
(PRINC)
)

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

[求助] [求助]：lisp编程高手请进来

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

相关帖子