[试用]：晓东工具箱中的曲线长度测量命令不好用

morecs

测单个圆时都不准，老出现1.111e＋99的长度，
当有直线、曲线时，出来的长度都很大，
直线测不出来。不知是不是我没用对还是命令本身有问题。谢谢！！！

eachy

最初由 morecs 发布
[B]测单个圆时都不准，老出现1.111e＋99的长度，
当有直线、曲线时，出来的长度都很大，
直线测不出来。不知是不是我没用对还是命令本身有问题。谢谢！！！ [/B]

不知道你用的是那个版本、哪个命令？

命令: _circle 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)]:
命令:
命令:
命令: _line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:

命令: '_xscrmnu

命令:
命令:
命令:
命令: _XDTB_CurveLength
正在初始化...
请选取计算长度的曲线实体[多选-M]<退出>:

命令:
命令:  _XDTB_CURVELENGTH
请选取计算长度的曲线实体[多选-M]<退出>:m
选择对象: 指定对角点: 找到 2 个

选择对象:
曲线长度值: 367.28
命令:
命令:  _XDTB_CURVELENGTH
请选取计算长度的曲线实体[多选-M]<退出>:
曲线间第一点<结束取总长>:
曲线长度值: 256.92
命令:
命令:  _XDTB_CURVELENGTH
请选取计算长度的曲线实体[多选-M]<退出>:
曲线间第一点<结束取总长>:
曲线长度值: 110.36
命令:
命令: li LIST
选择对象: 指定对角点: 找到 1 个

选择对象:
                  LINE      Layer: "0"
                            Space: Model space
                   Handle = 2C
              from point, X= 211.3170  Y=  93.4596  Z=   0.0000
                to point, X= 296.3891  Y= 163.7587  Z=   0.0000
          Length = 110.3595,  Angle in XY Plane =     40
                  Delta X =  85.0721, Delta Y =   70.2991, Delta Z =   0.0000

命令:  LIST
选择对象: 找到 1 个

选择对象:
                  CIRCLE    Layer: "0"
                            Space: Model space
                   Handle = 2B
            center point, X= 180.2329  Y= 162.1239  Z=   0.0000
            radius   40.8905
     circumference  256.9227
              area 5252.8510

morecs

我用的时cad2000,晓东工具是2003－9－3下载的，用法同你的一样，谢谢！！！（结束取总长）错误，有第一点和第二点就没问题，（是单个曲线或直线）
  如是多个，如n个，总长会是(1。11×n)E+99

eachy

最初由 morecs 发布
[B]我用的时cad2000,晓东工具是2003－9－3下载的，用法同你的一样，谢谢！！！（结束取总长）错误，有第一点和第二点就没问题，（是单个曲线或直线）
  如是多个，如n个，总长会是(1。11×n)E+99 [/B]

在CAD2000下，有些API函数不支持，请在CAD2002下使用，2002和2000都是R15，而且2002比2000更稳定。

lwtacxk

3434343434

lsjjm

这个函数测任意曲线的长度:
(defun curvelength (ent)
  (setq obj (vlax-ename->vla-object ent))
  (setq len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
  len
)