[求助]：能不能帮写个lisp，点击两个数字，让它们相乘得出结果

degucn · 发表于 2008-6-17 15:41:48

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

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

×

在平时算面积的时候经常要相乘两个数，计算器比较麻烦，帮忙编个lisp让已经两个数相乘

zxq0220 · 发表于 2008-6-17 19:10:10

(defun c:tt ()
(if (and (setq s1 (entsel "\nSelect first Text :"))
      (setq ent1 (entget(car s1)))
      (= (cdr(assoc 0 ent1)) "TEXT")
      (setq s2 (entsel "\nSelect second Text :"))
      (setq ent2 (entget(car s2)))
      (= (cdr(assoc 0 ent2)) "TEXT"))
  (princ (* (read(cdr(assoc 1 ent1))) (read(cdr(assoc 1 ent2)))))
)
(print)
)

degucn · 发表于 2008-6-17 20:34:18

谢谢楼上的

zscy · 发表于 2008-7-4 13:06:07

我也在找，谢谢LZ

zml84 · 发表于 2008-7-4 16:21:11

[PHP]
(defun SS-TEXT-GETREAL (SS / LST I)
(setq LST '()
I 0
)
(repeat (sslength SS)
(setq LST (cons (read (cdr (assoc 1 (entget (ssname SS I))))) LST))
(setq I (1+ I))
)
(reverse LST)
)

(defun C:++ ()
(if (setq SS (ssget '((0 . "TEXT"))))
(princ (eval (cons '+ (SS-TEXT-GETREAL SS))))
)
(princ)
)
(defun C:-- ()
(if (setq SS (ssget '((0 . "TEXT"))))
(princ (eval (cons '- (SS-TEXT-GETREAL SS))))
)
(princ)
)
(defun C:** ()
(if (setq SS (ssget '((0 . "TEXT"))))
(princ (eval (cons '* (SS-TEXT-GETREAL SS))))
)
(princ)
)
(defun C:// ()
(if (setq SS (ssget '((0 . "TEXT"))))
(princ (eval (cons '/ (SS-TEXT-GETREAL SS))))
)
(princ)
)
[/PHP]

linhui12 · 发表于 2008-7-5 19:17:27

谢谢分享,功能很实用

gmyuyu · 发表于 2008-7-8 09:05:21

谢谢，我也正在找！！！！！！！！！！好安逸！

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

[求助] [求助]：能不能帮写个lisp，点击两个数字，让它们相乘得出结果

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

相关帖子

浏览过的版块