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

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

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

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

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

hhaoma 发表于 2014-8-28 18:23
高手啊！求代码~

指令：adbmz

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

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

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

是啊！期待大神的出现！

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

;仅对附图有效

(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

ZZXXQQ 发表于 2014-8-26 21:49
;仅对附图有效

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

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

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

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

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

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

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

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

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

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