zoukankan      html  css  js  c++  java
  • AutoLISP自动标注圆,弧,直线,多段线长度

    AutoLISP自动标注圆,弧,直线,多段线长度,代码如下。

    (defun c:test()
      (setvar "cmdecho" 0)
      (setq en (entsel "\n选取圆、线、弧、多义线计算长度:"))
      (while en
        (setq en (car en))
        (command "lengthen" en "")
        (setq dd (getvar "perimeter"))
        (princ (strcat "\n长度=" (rtos dd 2)))
        (setq pt (getpoint "\n文字位置点:"))
        (setq old_hh (getvar "textsize"))
        (setq str_hh (strcat "\n高度<" (rtos old_hh 2) ">:"))
        (setq hh (getdist pt str_hh))
        (if (null hh) (setq hh old_hh))
        (command "text" pt hh 0 (strcat "长度=" (rtos dd 2)))
        (setq en (entsel "\n选取圆、线、弧、多义线计算长度:"))
        )
      (prin1)
      )

    代码完。

    作者:codee
    文章千古事,得失寸心知。


  • 相关阅读:
    异常及throw、与throws的介绍
    js数组
    正则表达式
    Date对象及toString方法
    js中函数与对象的使用
    js细节
    JavaScript介绍
    浮动、定位
    css背景样式
    盒子模型
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2502997.html
Copyright © 2011-2022 走看看