测绘lisp注记面积下载

weixin_39821228 2019-08-13 10:30:12
测绘面积(defun c:zmj()
(setvar "cmdecho" 0)
(setq zg(getvar "ltscale"))
(setq zg1(* zg 3))
(command "layer" "m" "mj" "")
(setq en(car (entsel)))
(setq zmj1 0)
(setq j 1)

(while en
(redraw en 3)
(setq kk(command "area" "o" en))
(setq kk1(getvar "area" ))
(setq kk2(rtos kk1 2 0)
相关下载链接://download.csdn.net/download/han7359/4865546?utm_source=bbsseo
...全文
26 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

13,656

社区成员

发帖
与我相关
我的任务
社区描述
CSDN 下载资源悬赏专区
其他 技术论坛(原bbs)
社区管理员
  • 下载资源悬赏专区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧