求助：如何获得曲线上的等分点？

JerryGPS · 发表于 2003-11-6 10:34:00

ThisDrawing.SendCommand "MEASURE" & vbCr & CommandSTR & vbCr & CStr(ds) & vbCr
SsetPoint.Select acSelectionSetAll, , , groupCode, dataCode
这条语句有点问题，如果在图中除了这条曲线外还有别的AcadPoint，怎么办，也会把别的AcadPoint选择上去，不知道gyl怎么解决这个问题？

gyl · 发表于 2003-11-6 22:32:00

你可以新建一个图层，专门存放measure命令生成的点图元，一条曲线处理完之后，就删除这个图层上的所有点，然后再进行另一条曲线的处理工作，全部曲线处理完之后，把这个图层删除即可。

wjfling · 发表于 2003-11-8 17:34:00

楼，问题怎么解决的？

mccad · 发表于 2003-11-8 21:29:00

其它做measure前先统计当前的图元数量，measure后再统计当前的图元数量，多出来的部分就是新的对象了。

Ea · 发表于 2003-11-10 12:48:00

zshuling发表于2003-10-26 8:43:00求助：如何获得曲线上的等分点？
想通过程序自动找到样条曲线上的等分点，在绘图时可以用divide命令进行等分，但VBA里好像没有divide命令，不知道该怎么办：(请哪位高手指点一下，急，多谢了。

(defun ea:divpl (n obj / len sp ep pam dis div ptl)
(setq len (vla-get-length obj)
sp (vlax-curve-getstartpoint obj)
ep (vlax-curve-getendpoint obj)
)
(if (> n 1)
(progn
(setq dis 0.
div (/ len n)
)
(while (< dis len)
(setq pam (vlax-curve-getParamAtDist obj dis)
dis (+ dis div)
)
(setq ptl (cons (vlax-curve-getpointatparam obj pam) ptl))
)
(setq ptl (reverse ptl))
)
(setq ptl (list ep sp))
)
ptl
)

zzz8662 · 发表于 2004-6-10 09:39:00

本帖最后由作者于 2004-6-12 8:50:06 编辑

想问gyl一个问题：如果我的取点间隔是10，但是在这些曲线中大部分线长度达不到10，我又不想减小取点间隔，我还想在上面取等分点，怎么办？

我想这样做：当在某一条曲线上取点时，发现这个曲线长度不足。用divide命令取一些点。这里，有一个问题，怎样判断MEASURE命令执行错误？

029LH · 发表于 2013-2-3 14:46:54

学习学习，谢谢

清风明月名字 · 发表于 2013-3-4 19:33:04

8楼的代码好极了，很实用啊

bshkl · 发表于 2014-5-3 23:07:50

标记好帖子

账号		自动登录	找回密码
密码			注册