[求助]有没有测量曲线长度的小程序啊

sky3912

有没有测量曲线长度的小程序啊

王咣生

(defun c:test ( / en curve-obj name eparam len)
  (setq en (car (entsel "\n选择一条线:")))
  (if en
    (progn
      (setq curve-obj (vlax-ename->vla-object en))
      (setq name (vlax-get-property curve-obj 'ObjectName))
      (if (wcmatch (strcase name) "*LINE")
 (progn
   (setq eparam (vlax-curve-getEndParam curve-obj))
   (setq len (vlax-curve-getDistAtParam curve-obj eparam))
 )
 (princ "\n非曲线.")
      )
    )
  );if
)

sky3912

谢谢斑竹啊,呵呵

momokill

谢谢斑竹啊,呵呵