多段线的面积

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

我在论坛上找到了其他一些我想做的事情。。。但并不完全如此。

我想输入“ara”并能够选择闭合多段线，然后发生以下情况：

-命令提示请求插入点以插入显示多段线（1234平方英尺）面积的文本
-我希望文本与选定的多段线位于同一层

提前感谢！

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

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

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

这

copy


(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)
)