面域面积和表周长输出

梨子·桃

哪位大佬有没有类似的插件，将面域的面积和表周长输出到屏幕

弥勒

(defun c:mmm()
      (setq pt(getpoint "\n 选取点："))
      (command "bpoly" pt  "" )
      (setq en (entlast))
        ( if ( /= en nil )
          (progn
               (command "area" "o" en)
               (setq aa( getvar "area" ) )
               (setq bb ( getvar "perimeter"))
               (redraw en 3)
               (setq tt (strcat  (rtos aa 2 3 )  "  " (rtos bb 2 3   )))
               (entmake (list '(0 . "TEXT") (cons 1 tt) (cons 10 pt) (cons 40 2)))
            )
        )


)

梨子·桃

弥勒 发表于 2024-3-4 11:43
(defun c:mmm()
      (setq pt(getpoint "\n 选取点："))
      (command "bpoly" pt  "" )

感谢分享，面积不对我想要面域面积和表周长，这个还打乱面域生成重复的线段

xyp1964

梨子·桃

xyp1964 发表于 2024-3-4 22:09

对对对，感谢！不要内周长可以吗？我看了一下，周长是面域周长的总和，铝型材客户只要表面周长

shirker

支持一下，学习了