[LISP函数]：帮忙修改一下算面积程序

coco25825 · 发表于 2008-8-30 09:28:07

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

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

×

面积标准
(DEFUN C:EA(/ OLDOS PT STA QAREA)
;;
  (setq olderr *error*)
  (setq *error* myerr)
  (SETVAR "CMDECHO" 0)
  (SETQ OLDOS (GETVAR "OSMODE"))
;;
  (SETVAR "OSMODE" 0)
  (SETQ STA (CAR (ENTSEL)))
  (COMMAND "AREA" "E" STA)
  (SETQ QAREA (RTOS (GETVAR "AREA") 2 2))
  (SETQ PT (GETPOINT"\nPick the point you want to write area:"))
  (COMMAND "TEXT" PT "" "" QAREA)
;;
  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CMDECHO" 1)
  (setq *error* olderr)
  (PRINC)
)
面积是精确到毫米平方，可以修改到米平方，小数点后二位?[/COLOR]

cy956 · 发表于 2008-8-31 00:53:00

(SETQ QAREA (RTOS (* 0.000001 (GETVAR "AREA") ) 2 2))

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

[LISP函数]：帮忙修改一下算面积程序

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

相关帖子