注册 发表于 2014-4-30 07:57 static/image/common/back.gif
请问，如果制图是以毫米为单位的，比如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 发表于 2014-4-30 11:44 static/image/common/back.gif
请楼主加入在图中写入统计图表：
如下：
谢谢你，因为我不会写，恕不能满足你的要求，敬请谅解。
香田里浪人 发表于 2014-4-30 11:48
谢谢你，因为我不会写，恕不能满足你的要求，敬请谅解。
不写那是您的权力……我只是提了下仅此而已……
flytoday 发表于 2014-4-30 18:03 static/image/common/back.gif
不写那是您的权力……我只是提了下仅此而已……
误会了，我不是不想写，而是不知道怎么写。
支持源码，谢谢楼主分享
springwillow 发表于 2014-4-29 14:45 static/image/common/back.gif
好，我也整个示意的!
不错的
不过运行起来两个人都有报错
谢谢楼主的慷慨，下载学习