hhaoma 发表于 2014-8-26 20:43:04

帮忙解决下由两个方形组成的图形，点击内部列出计算公式

本帖最后由 Gu_xl 于 2014-8-26 21:40 编辑

求大家帮忙看看，小弟在这里谢谢大家了！

Atsai 发表于 2014-8-26 20:43:05

hhaoma 发表于 2014-8-28 18:23 static/image/common/back.gif
高手啊！求代码~





指令：adbmz

qincccken 发表于 2014-8-26 21:14:31

计算面积吗？这有点用啊!等大牛出手

hhaoma 发表于 2014-8-26 21:16:50

是啊！期待大神的出现！

ZZXXQQ 发表于 2014-8-26 21:49:05

;仅对附图有效(defun c:tt ()
(setvar "CMDECHO" 0)
(if (and (princ "\n选择尺寸: ") (setq ss (ssget '((0 . "DIMENSION"))))) (progn
(setq dimlst (list))
(repeat (setq i (sslength ss))
(setq ent (entget(ssname ss (setq i (1- i)))))
(setq dimlst (cons(cdr(assoc 42 ent)) dimlst))
)
(setq dimlst (vl-sort dimlst '(lambda (a b) (> a b))))
(setq dimlst (mapcar '(lambda (x) (rtos x 2 1)) dimlst))
(setq txt (strcat (car dimlst) "x" (cadr dimlst) "+" (caddr dimlst) "x" (last dimlst)))
(command "TEXT" "M" PAUSE "" "" txt)
))
(setvar "CMDECHO" 1)
(princ)
)

hhaoma 发表于 2014-8-26 21:55:36

ZZXXQQ 发表于 2014-8-26 21:49 static/image/common/back.gif
;仅对附图有效

不好意思 我要实现的时候点图中一点 列出面积的
点标注的，不需要 谢谢啊！能再帮忙想想吗？

xyp1964 发表于 2014-8-26 23:20:48


hhaoma 发表于 2014-8-27 04:30:27

只有图，没代码……坐等真正的大神来解答

hhaoma 发表于 2014-8-27 20:43:48

哎 帖子马上就要沉没了 真心希望能找到一位愿意帮助我的大神

Atsai 发表于 2014-8-28 16:55:41

功能类似是这样的吧， 目前只能改到这样！


页: [1] 2
查看完整版本: 帮忙解决下由两个方形组成的图形，点击内部列出计算公式