在cad图上框选两个数字，再点击生成乘积 lisp怎么写，求高手

在cad图上框选两个数字，再点击生成乘积lisp怎么写，想学学，再搞一个工作中用的到的复杂一点的算术懂得的大师麻烦帮忙写一下啊，学生谢过了... 在cad图上框选两个数字，再点击生成乘积 lisp怎么写，想学学，再搞一个工作中用的到的复杂一点的算术
懂得的大师麻烦帮忙写一下啊，学生谢过了展开

 我来答

1个回答

#合辑# 机票是越早买越便宜吗？

dnbc1
2012-04-19 · TA获得超过977个赞

知道小有建树答主

回答量：1235

采纳率：92%

帮助的人：404万

我也去答题访问个人页

关注

展开全部

;by DnBc1
;在cad图上框选两个数字生成它们的乘积
(defun c:cc()
(if (setq ssa (ssget ":S" '((0 . "text") (1 . "#*#"))))
(if (setq ssb (ssget ":S" '((0 . "text") (1 . "#*#"))))
(progn
(setq ent1 (ssname ssa 0)
zfc1 (cdr (assoc 1 (entget ent1)))
sz1 (read zfc1)
ent2 (ssname ssb 0)
zfc2 (cdr (assoc 1 (entget ent2)))
sz2 (read zfc2)
cj (* sz1 sz2)
zfc (strcat zfc1 "*" zfc2 "=" (rtos cj ))
)
(princ "\n")(princ zfc)
(if (setq pt (getpoint "\n指定计算结果写入点:"))
(command "_text" pt 2.5 0 zfc)
)
)
)
)
(princ)
)