两条线 所夹区域面积 标注程序

zyfh

两条线 所夹区域面积 标注程序如图,
两条多段线或直线并不相交,让两条直线在程序中自动相连接,组成一个封闭面积,标注所夹区域面积
这样,选择两条直线后,就能得到他们所夹区域面积,

谢谢
网上找到的一个类似程序:


;;;功能：点取内部一点，测量封闭区域的面积（可分别设置XY比例）       *
;;;日期：zml84 于 2009-06-07                                        *
(defun C:mj (/ X Y SIZE PT EN AREA STR TMP)
    ;; 0 初始化
    (or        *TEST_TMP*
        (setq *TEST_TMP* '(1 1 2.5))
    )
    (setq X    (nth 0 *TEST_TMP*)
          Y    (nth 1 *TEST_TMP*)
          SIZE (nth 2 *TEST_TMP*)
    )

    ;; 1
    (while
        (progn
            (princ
                (strcat
                    "\n当前设置：X比例="
                    (rtos X)
                    "，X比例="
                    (rtos Y)
                    "，字高="
                    (rtos SIZE)
                )
            )
            (initget "X Y Size")
            (princ
                "\n点取要测量的位置，或 [X比例(X)/Y比例(Y)/字高(S)]: "
            )
            (setq PT (getpoint ""))
        )
           (cond ((= PT "X")
                  (if (and (setq TMP (getreal "\n设置X向比例: "))
                           (> TMP 0)
                      )
                      (setq X TMP)
                  )
                 )
                 ((= PT "Y")
                  (if (and (setq TMP (getreal "\n设置Y向比例: "))
                           (> TMP 0)
                      )
                      (setq Y TMP)
                  )
                 )
                 ((= PT "Size")
                  (if (and (setq TMP (getreal "\n设置字体高度: "))
                           (> TMP 0)
                      )
                      (setq SIZE TMP)
                  )
                 )
                 ((and
                      (setq EN (bpoly PT))
                      (setq
                          AREA (vla-get-area
                                   (vlax-ename->vla-object EN)
                               )
                      )
                      ;;(progn (command "REGEN") (redraw EN 3) t)
                      (entdel EN)

                      (setq AREA (/ AREA 1.0 X Y)
                            STR         (rtos AREA 2 3)
                      )
                      (princ (strcat "\n所点击区域面积 = " STR))
                  )
                 (setq smj (strcat "S=" STR "m2"))
                (command "text" "s" "MJ" "j" "BC" pt "" smj "")  
              ;(command "_.TEXT" " " PT SIZE 0 STR)
                 )
           )

    )

    ;; 2
    (setq *TEST_TMP* (list X Y SIZE))

    (princ)
)

牢固

Array，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数为

lifenwei

不错。。谢谢分享啦！

逐月飞鸿

厉害啊,谢谢,二楼

逐月飞鸿

下载了,适用了,请问二楼的楼主,能不能把区域给封闭起来后,填充一下用颜色给区别一下,或者把围成的面域外围用红线给显示出来,就更好了

守望生活

看看怎么样

150154906

:):) 看看怎么样看看怎么样看看怎么样看看怎么样:)

wujie1635

看看使用不！

zbwei120

G版的东西就是好，

yilook123

想看下高手们是怎么处理的