Question

用CADlisp程序，如何获取面域图形的外周长？

比如说如何用lisp程序获取这个 扁管的 外周长？这个扁管是创建了面域的。

Answer 1

如果是单根的四条直线的话要先把合并成一条多段线，如果本身画的是矩形一条多段线的话，直径查看特性就可以了，里面可以看到长度（长度就是周长），面积等。

也可以不用合并，即单根的线长加在一起也就等于周长。

追问

我是想用lisp程序获取。不是你说的这种。而且我说的是面域的图形，你看下我贴出来的那个图。

Answer 2

(defun c:REGIONlist()
(setq en(car(entsel)))
(setq pt(vla-get-Centroid (vlax-ename->vla-object en)))
(setq x-pt (vlax-safearray-get-element (vlax-variant-value pt) 0))
(setq y-pt (vlax-safearray-get-element (vlax-variant-value pt) 1))
(setq pt1(list x-pt y-pt 0.0))
(command "BOUNDARY" pt1 "")
(setq en1(entlast))
(setq en1get(entget en1))
(setq 10list nil)
(foreach n en1get(if (= 10 (car n))
(setq 10list(cons (cdr n) 10list ))))
(entdel en1)
10list
)

追问

能顺便再解释一下代码吗？我想获取外周长，可是代码并没实现这个功能呀！