社区 › AutoLISP/Visual LISP 编程技术 › 返回选定对象的长度或周长

flyfox1047 发表于 2013-12-1 22:55:06

返回选定对象的长度或周长

(defun c:lengthOfObject (/ en curve len)
(if (setq en (entsel))
    (progn
      (setq curve (vlax-ename->vla-object (car en)))
      (if (vl-catch-all-error-p
            (setq len (vl-catch-all-apply
                        'vlax-curve-getDistAtParam
                        (list curve
                              (vl-catch-all-apply
                              'vlax-curve-getEndParam
                              (list curve)
                              )
                        )
                      )
            )
          )
      nil
      len
      )
    )
)
)

haotaer 发表于 2016-1-27 20:16:25

能否批量标出建筑图的房间面积与周长 能否批量标出建筑图的房间面积与周长

查看完整版本: 返回选定对象的长度或周长