给高手出个难题，路过的高手进来看看，谢谢

lpl · 发表于 2012-11-28 19:58

能否批量标出建筑图的房间面积与周长

lpl · 发表于 2012-11-28 20:55

自己顶个

希望路过的高手不是打酱油

lpl · 发表于 2012-11-29 11:26

快沉了，难道没有哪位高手愿意挑战下吗

LLXXZZ · 发表于 2012-11-29 12:42

;; write area value of a close polygon to drawing
(DEFUN C:EA(/ OLDOS PT STA QAREA aa dd )
;;
;(setq olderr *error*)
;(setq *error* myerr)
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
;;
(SETVAR "OSMODE" 0)
(while (not(SETQ STA (CAR (ENTSEL"\n选择对象:")))))
(COMMAND "AREA" "E" STA)
(SETQ QAREA (GETVAR "AREA") )
(setq aa (getreal "\n输入密度:<1.0>"))
(if (null aa) (setq aa 1.0))
(setq dd (/ (* aa QAREA) 1000))
(while (not(SETQ PT (GETPOINT"\n拾取放置点:"))))
(COMMAND "TEXT" PT 12.0 "" (strcat "面积:"(RTOS QAREA 2 2)))
(COMMAND "TEXT" (list (car PT)(+ 18(cadr PT))) 12.0 "" (strcat "线密度:"(RTOS dd 2 2)))
;;
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
;(setq *error* olderr)
(PRINC)
)

下载所得,
题目本身不是难题,所以没人过问很正常.

lpl · 发表于 2012-11-29 14:28

本帖最后由 lpl 于 2012-11-29 14:30 编辑

LLXXZZ 发表于 2012-11-29 12:42
下载所得,
题目本身不是难题,所以没人过问很正常.

你这个根本实现不了测试图的功能，要求框选左图，能自动判断房间门窗线断开的墙线形成房间边界线，并标注面积周长

lpl · 发表于 2012-11-29 19:34

在顶顶

gzxl · 发表于 2012-12-4 11:22

lpl · 发表于 2012-12-4 11:39

gzxl 发表于 2012-12-4 11:22

厉害，周长没标出来，代码能否开源学习学习

gzxl · 发表于 2012-12-4 12:28

lpl 发表于 2012-12-4 11:39
厉害，周长没标出来，代码能否开源学习学习

可以，留着代码也没用，周长你自己修改代码

不过别介意，收点币

lpl · 发表于 2012-12-4 13:48

gzxl 发表于 2012-12-4 12:28
可以，留着代码也没用，周长你自己修改代码

不过别介意，收点币

测试未成功，边线没按绕过柱子生成。

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