社区 › Auto Lisp › 多段线的面积

nnutting 发表于 2022-7-6 08:40:10

多段线的面积

我在论坛上找到了其他一些我想做的事情。。。但并不完全如此。
 
我想输入“ara”并能够选择闭合多段线，然后发生以下情况：
 
-命令提示请求插入点以插入显示多段线（1234平方英尺）面积的文本
-我希望文本与选定的多段线位于同一层
 
提前感谢！

alanjt 发表于 2022-7-6 08:46:17

这个话题已经被提到无数次了。我确信你想要的东西已经存在，或者足够接近，可以调整以满足你的需要。你试过自己编码吗？不会太难。

Tharwat 发表于 2022-7-6 08:51:09

这
 

(defun c:TesT (/ ss p)
;; Tharwat 18. Nov. 2011 ;;
(if (and (setq ss (car (entsel "\n Select a closed polyline :")))
          (vlax-curve-IsClosed ss)
          (setq p (getpoint "\n Specify Text loacation :"))
   )
   (entmakex
   (list
       '(0 . "TEXT")
       (cons 10 (trans p 1 0))
       (cons 40 (getvar 'textsize))
       (assoc 8 (entget ss))
       (cons 1
             (strcat
               (rtos (cvunit (vla-get-area (vlax-ename->vla-object ss)) "inch" "ft")
                                           2 2
               )
               "sf"
             )
       )
   )
   )
   (princ)
)
(princ)
)

nnutting 发表于 2022-7-6 08:58:20

谢谢

Tharwat 发表于 2022-7-6 09:01:30

 
不客气

nnutting 发表于 2022-7-6 09:04:45

一个小问题。。。这可能不是Lisp程序。。。但是面积计算错误。
ie：我做了一个10英尺x 10英尺的盒子。面积应该是100，但当我使用例程时。。。面积为47.2441平方英尺。请帮忙。

Tharwat 发表于 2022-7-6 09:10:13

 
没问题，代码已更新。

nnutting 发表于 2022-7-6 09:15:41

作品但它列出的是平方英寸而不是平方英尺。。。因此，10’x 10’框显示为14400.000000sf。
而且我怎样才能四舍五入到最近的sf？
 
很抱歉我对编程是新手。

Tharwat 发表于 2022-7-6 09:19:11

已更新。。。

nnutting 发表于 2022-7-6 09:22:04

仍然不工作。。。不确定我是否只是做错了什么。我画了同样的10’x 10’盒子，现在面积变成“1200.00sf”

查看完整版本: 多段线的面积