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

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

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

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

自己顶个希望路过的高手不是打酱油

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

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

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

;; 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:27

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

LLXXZZ 发表于 2012-11-29 12:42 http://bbs.mjtd.com/static/image/common/back.gif
下载所得,
题目本身不是难题,所以没人过问很正常.

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

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

在顶顶

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



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

gzxl 发表于 2012-12-4 11:22 static/image/common/back.gif


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

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

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



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

不过别介意，收点币

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

gzxl 发表于 2012-12-4 12:28 static/image/common/back.gif
可以，留着代码也没用，周长你自己修改代码

不过别介意，收点币

测试未成功，边线没按绕过柱子生成。
页: [1] 2
查看完整版本: 给高手出个难题，路过的高手进来看看，谢谢