框选封闭区域面积到excel

香田里浪人

注册 发表于 2014-4-30 07:57
请问，如果制图是以毫米为单位的，比如1米在cad中输入的是1000，请问修改哪一句可以使得出的面积结果是真实 ...

将 (rtos (/ ObjArea 1)2 2) 改为 (rtos (/ ObjArea 1000000)2 2) 即可。如果小数点后要保留3位，将2 2改为2 3，保留4位，将2 2改为2 4，余类推。

香田里浪人

原程序修改一下将(command "style" "tukou" "黑体" "0" "" "0" "" "")
(setvar"dimzin"0);;保留小数位数时如果位数不足可以补零
(defun maketext (txt pt)  ; 生成文字子函数
    (entmake (list '(0 . "TEXT") (cons 10 pt) (cons 40 TextHeight) (cons 1 txt) '(41 . 0.8)'(7 . "BG_ST")))改为
(command "style" "tukou" "黑体" "0" "0.7" "0" "" "")；；0.7为高宽比
下面文字可删除
(defun maketext (txt pt)  ; 生成文字子函数
    (entmake (list '(0 . "TEXT") (cons 10 pt) (cons 40 TextHeight) (cons 1 txt) '(41 . 0.8)'(7 . "BG_ST")))-----实际没有用。
  )

  )

香田里浪人

原程序修改一下将(command "style" "tukou" "黑体" "0" "" "0" "" "")
(setvar"dimzin"0);;保留小数位数时如果位数不足可以补零
(defun maketext (txt pt)  ; 生成文字子函数
    (entmake (list '(0 . "TEXT") (cons 10 pt) (cons 40 TextHeight) (cons 1 txt) '(41 . 0.8)'(7 . "BG_ST")))改为
(command "style" "tukou" "黑体" "0" "0.7" "0" "" "")；；0.7为高宽比
下面文字可删除
(defun maketext (txt pt)  ; 生成文字子函数
    (entmake (list '(0 . "TEXT") (cons 10 pt) (cons 40 TextHeight) (cons 1 txt) '(41 . 0.8)'(7 . "BG_ST")))-----实际没有用

flytoday

请楼主加入在图中写入统计图表：
如下：

这样程序就完美了

香田里浪人

flytoday 发表于 2014-4-30 11:44
请楼主加入在图中写入统计图表：
如下：

谢谢你，因为我不会写，恕不能满足你的要求，敬请谅解。

flytoday

香田里浪人 发表于 2014-4-30 11:48
谢谢你，因为我不会写，恕不能满足你的要求，敬请谅解。

不写那是您的权力……我只是提了下仅此而已……

香田里浪人

flytoday 发表于 2014-4-30 18:03
不写那是您的权力……我只是提了下仅此而已……

误会了，我不是不想写，而是不知道怎么写。

用户4ug2iurcno

支持源码，谢谢楼主分享

shikey

springwillow 发表于 2014-4-29 14:45
好，我也整个示意的!

不错的
不过运行起来两个人都有报错

feng83

谢谢楼主的慷慨，下载学习