小懒人CAD工具箱  LISP插件

首页 >> 精选插件 >>代码分享 >> CAD快速标注面积单位亩_小懒人CAD工具箱_CAD插件_CASS插件_LISP代码
详细内容

CAD快速标注面积单位亩_小懒人CAD工具箱_CAD插件_CASS插件_LISP代码

时间:2019-01-31     作者:逆流而上的鱼   阅读

CAD快速标注面积单位亩_小懒人CAD工具箱_CAD插件_CASS插件_LISP代码

CAD插件,CASS插件,面积标注亩

CAD面积标注

CASS面积标注

CAD标注亩

CASS标注亩

亩积标注.gif

(defun c:tt();;;;亩积标注

  (if (setq ss (ssget (list (cons 0 "*POLYLINE"))))

    (repeat (setq k (sslength ss))

      (setq ent (ssname ss (setq k (1- k))))

      (setq mj (rtos (*(xlr_get_area ent) 0.0015) 2 2))

      (setq pt (xlr_plzxd ent))

      (xlr_put_text (strcat mj  "") pt 1 2 "面积标注" 3)

      )

    )

  )

电话直呼
在线客服
在线留言
发送邮件
联系我们:
15126824036
小懒人1号
点击这里给我发消息
小懒人2号
点击这里给我发消息
还可输入字符250(限制字符250)
技术支持: 建站ABC | 管理登录
×

联系电话:151  2682  4036(段)
联系QQ:736188807
联系微信:151  2682  4036
承接CAD、CASS插件开发定制出售

扫一扫加微信

关注微信公众号

小懒人CAD工具箱,拥有功能950个,免费功能400个,下载免费使用。关注微信公众号,里面分享一些插件代码及插件使用视频等CAD技能。