本帖最后由 香田里浪人 于 2015-1-9 15:29 编辑
注册 发表于 2015-1-9 09:22 http://bbs.mjtd.com/static/image/common/back.gif
图中正方形边长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 static/image/common/back.gif
将面积除以1000000即可。即将m2 (rtos (vla-get-area obj)2 2)改为m2 (rtos (/(vla-get-area obj) 10 ...
多谢，面积的已经解决，那个周长到m的怎么解决呢，谢谢啊
本帖最后由 香田里浪人 于 2015-1-10 18:44 编辑
注册 发表于 2015-1-10 09:17 http://bbs.mjtd.com/static/image/common/back.gif
多谢，面积的已经解决，那个周长到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 static/image/common/back.gif
同理，将周长除以1000即可。 将d (rtos (vla-get-perimeter obj) 2 2)改为d (rtos(/ (vla-get-perimete ...
多谢，已经搞定！！！
langjs，hao3ren高人也是好人，学习了，这个lisp还是蛮好的。香田里浪人也是好人。都值得好好敬佩和称赞。
曾经下载了一个类似的mjlb.vlx。但不是源码。
langjs 发表于 2012-7-3 09:49 static/image/common/back.gif
既然发消息给我那就编一个。使用时不保证100％正确。
;;; 框选封闭区域面积到excel by:langjs
;;; ＝＝ ...
好用。。支持一个。。
太厉害了，刚开始学习lisp，还有很多要学习，程序内容有的地方还不是很懂
langjs 发表于 2012-7-3 09:49 static/image/common/back.gif
既然发消息给我那就编一个。使用时不保证100％正确。
;;; 框选封闭区域面积到excel by:langjs
;;; ＝＝ ...
是不是不封闭的区域就不行啊？测量房屋面积的时候，测量单位给的图有的话的比较粗糙不是封闭的。。。
langjs 发表于 2012-7-3 09:49 static/image/common/back.gif
既然发消息给我那就编一个。使用时不保证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))表示什么啊？
hao3ren 发表于 2012-7-4 00:01 static/image/common/back.gif
;;; 框选封闭区域面积到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))表示什么啊？