悬赏高手写个统计周长面积输出excel。

香田里浪人

注册 发表于 2015-1-9 09:22
图中正方形边长1000mm，要求得出面积是1m2，如何实现啊

将面积除以1000000即可。即将m2 (rtos (vla-get-area obj)  2 2)改为m2 (rtos (/(vla-get-area obj) 1000000) 2 2)相应单位名称mm2改为m2即可。

注册

香田里浪人 发表于 2015-1-9 14:55
将面积除以1000000即可。即将m2 (rtos (vla-get-area obj)  2 2)改为m2 (rtos (/(vla-get-area obj) 10 ...

多谢，面积的已经解决，那个周长到m的怎么解决呢，谢谢啊

香田里浪人

注册 发表于 2015-1-10 09:17
多谢，面积的已经解决，那个周长到m的怎么解决呢，谢谢啊

同理，将周长除以1000即可。

将d (rtos (vla-get-perimeter obj) 2 2)改为d (rtos(/ (vla-get-perimeter obj) 1000) 2 2)相应单位名称mm改为m即可。

注册

香田里浪人 发表于 2015-1-10 18:37
同理，将周长除以1000即可。 将d (rtos (vla-get-perimeter obj) 2 2)改为d (rtos(/ (vla-get-perimete ...

多谢，已经搞定！！！

dingtiedt

langjs，hao3ren高人也是好人，学习了，这个lisp还是蛮好的。香田里浪人也是好人。都值得好好敬佩和称赞。
曾经下载了一个类似的mjlb.vlx。但不是源码。

冒个烟圈

langjs 发表于 2012-7-3 09:49
既然发消息给我那就编一个。使用时不保证100％正确。
;;; 框选封闭区域面积到excel    by:langjs
;;; ＝＝ ...

好用。。支持一个。。

K_猫叔

太厉害了，刚开始学习lisp，还有很多要学习，程序内容有的地方还不是很懂

K_猫叔

langjs 发表于 2012-7-3 09:49
既然发消息给我那就编一个。使用时不保证100％正确。
;;; 框选封闭区域面积到excel    by:langjs
;;; ＝＝ ...

是不是不封闭的区域就不行啊？测量房屋面积的时候，测量单位给的图有的话的比较粗糙不是封闭的。。。

K_猫叔

langjs 发表于 2012-7-3 09:49
既然发消息给我那就编一个。使用时不保证100％正确。
;;; 框选封闭区域面积到excel    by:langjs
;;; ＝＝ ...

(setq lst (vl-sort lst (function (lambda (x y)(< (car (car x)) (car (car y)))))))这句不是很懂，请问< (car (car x)) (car (car y))表示什么啊？

K_猫叔

hao3ren 发表于 2012-7-4 00:01
;;; 框选封闭区域面积到excel    by:langjs
;;; ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
(defun c:qq (/ d ...

(setq lst (vl-sort lst (function (lambda (x y)(< (car (car x)) (car (car y)))))))这句不是很懂，请问< (car (car x)) (car (car y))表示什么啊？