统计曲线的长度及曲线的总和

myfrankie · 发表于 2013-7-17 09:30:12

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

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

×

以下程序是网上找的。但不理想，用后得出如：总长 = 15025.49073 总面积 = 20587387.01017 我想将总长小数点往左移三位，总面积小数点往左移六位并且只保留小数位两位且标出单位。如：（总长 = 15，03  总面积 = 20，59）
(defun C:TT1 (/ E I LEN LENLIST SS AREA AREALIST SSLEN)
  (princ "\n统计曲线的长度及曲线的总和")
  (setq       SS (ssget
         '((0 . "SPLINE,POLYLINE,LWPOLYLINE,ARC,CIRCLE,ELLIPSE"))
         )
  )
  (setq SSLEN (sslength SS))
  (repeat (setq I SSLEN)
(setq E (ssname SS (setq I (1- I))))
(setq LENLIST (cons       (vlax-curve-getdistatparam
                        E
                        (vlax-curve-getendparam E)
                     )
                     LENLIST
               )
)
(setq AREALIST (cons (vlax-curve-getarea E)
                     AREALIST
               )
)
  )
  (setq LEN (apply '+ LENLIST))
  (setq AREA (apply '+ AREALIST))
  (princ
(strcat "\n"
         "总长 = "
         (rtos LEN 2 5)
         " 总面积 = "
         (rtos AREA 2 5)
)
  )
  (princ)
)

XMAN2013 · 发表于 2013-7-17 09:36:27

(strcat "\n"
         "总长 = "
         (rtos LEN 2 2)
         " 总面积 = "
         (rtos AREA 2 2)
)

XMAN2013 · 发表于 2013-7-17 09:45:42

谢谢版主加分。

newer · 发表于 2013-7-17 09:50:00

XMAN2013 发表于 2013-7-17 09:36
(strcat "\n"
"总长 = "
(rtos LEN 2 2)

要除以1000，100000后，在用你这个才行。

XMAN2013 · 发表于 2013-7-17 09:51:18

哦。明白了没看清楚问题。

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

[求助] 统计曲线的长度及曲线的总和

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

相关帖子

点评

评分