梨子·桃 发表于 2024-3-4 09:34:43

面域面积和表周长输出

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

弥勒 发表于 2024-3-4 11:43:20

(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 15:53:37

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


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

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


梨子·桃 发表于 2024-3-5 09:36:41

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


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

shirker 发表于 2024-3-6 22:02:52

支持一下，学习了

小鸟 发表于 2024-7-17 11:11:59

梨子·桃 发表于 2024-3-5 09:36
对对对，感谢！不要内周长可以吗？我看了一下，周长是面域周长的总和，铝型材客户只要表面周长

解决了吗我也需要这个功能
页: [1]
查看完整版本: 面域面积和表周长输出