[求助]：如何让LISP实现如下计算表达式

xbdx · 发表于 2006-2-27 12:26:12

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

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

×

如何让LISP实现如下计算表达式
选取一个字符串,如下:120x50x20x3
实现如下的计算结果（120+（50+20）x2）x3=780

yshf · 发表于 2006-2-27 12:45:48

[php](defun bdsjs(zfc)
(setq zfc (read (strcat "(" (vl-string-translate "x" " " zfc) ")")))
(* (last zfc) (+ (car zfc) (* 2.0 (+ (cadr zfc) (caddr zfc)))))
)[/php]
命令: (bdsjs "120x50x20x3")
780.0

xbdx · 发表于 2006-2-27 13:08:20

谢谢yshf ！我是想通过选取一个字符串实现计算功能，而不是输入一个字符串，应该怎么修改？

yshf · 发表于 2006-2-27 15:13:37

[php];试用以下程序
(defun c:cc()
(while (setq ent (car (entsel "\n请选择文本图元:")))
   (if (= (cdr (assoc 0 (entget ent))) "TEXT")
      (progn
         (setq zfc (cdr (assoc 1 (entget ent))))
         (if (wcmatch zfc "*x*x*x*")
         ;计算结果存入变量jg中
               (alert (strcat "计算结果为：" (rtos (setq jg (bdsjs zfc)))))
               (alert "选择文本不符合要求!!!")
         )
   )
   (alert "所选择不是单文本，请重新选择!")
   )
)
(princ)
)

(defun bdsjs(zfc)
(setq zfc (read (strcat "(" (vl-string-translate "x" " " zfc) ")")))
(* (last zfc) (+ (car zfc) (* 2.0 (+ (cadr zfc) (caddr zfc)))))
)[/php]

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

[求助] [求助]：如何让LISP实现如下计算表达式

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

相关帖子