获得曲线的长度

lisp_beginner

我要求一个曲线的长度，我用的是

(command "area" "o" e)
(getvar "perimeter")

还有更快更好的方法吗？

Lisphk

(vla-get-length (vlax-ename->vla-object e))

marting

1. (defun _getcurvelength (ent / par)
   
2.   (if (not (vl-catch-all-error-p (setq par (vl-catch-all-apply 'vlax-curve-getendparam
   
3.                                                                (list ent)
   
4.                                            )
   
5.                                  )
   
6.            )
   
7.       )
   
8.     (vlax-curve-getdistatparam ent par)
   
9.   )
   
10. )

(defun _getcurvelength (ent / par)<br />   (if (not (vl-catch-all-error-p (setq par (vl-catch-all-apply 'vlax-curve-getendparam<br />                                                                (list ent)<br />                                            )<br />                                  )<br />            )<br />       )<br />     (vlax-curve-getdistatparam ent par)<br />   )<br /> )

1. (_getcurvelength (car (entsel)))
   

(_getcurvelength (car (entsel)))<br />

/db_自贡黄明儒_

marting 发表于 2016-10-24 16:42

(nentselp)行不行？

marting

/db_自贡黄明儒_ 发表于 2016-10-24 16:55

netnselp怎么得到？