用这个标注面积LSP加周长一起标

2016-11-19/ 站务签到杂烩/ 拓者帮帮/ 只看大图 阅读模式
仅供分享不做任何商业用途,版权归原作者所有,谢谢配合。

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
(defun c:mj()
(if *error*
(command "_boundary" (setq p1 (getpoint "\n点取要标注的封闭区域内部一点:"))  "")
)
(setq EN (entlast))
(command "area" "o" EN)
(setq smj (getvar "area"))
(setq imj smj)
(setq smj (/ smj 1000000))
(setq smj (* smj 1))
(setq smj (rtos smj 2 2))
(setq smj (strcat "S=" smj "㎡"))
  (if (=  htxt nil)
    (progn
      (setq htxt (/ (sqrt imj) 15))
      )
    )
(setq htxt1 (getdist (strcat "\n输入字体的高度<" (rtos htxt 2 1) ">:")))
  (if  htxt1
    (setq htxt htxt1)
    )
(setq Pt (getpoint "\n 文字标注位置:"))
(command "style" "MJ" "txt.shx" htxt 0.8 "" "n" "" "")
(command "text" "s" "MJ" "j" "BC" pt "" smj "")
'(COMMAND "TEXT" Pt ffsize 0 smj)
)
精华推荐
换一换

发表评论1

用这个标注面积LSP加周长一起标
拓者推荐
  • 自媒体特训营丨广州站
  • 拓者-户型优化总监内训课
  • 拓者年费会员,十大福利!
  • 小红书/抖音双平台获客实操课
  • 拓者丨风水布局与设计必修课