[求助]已知直线a，怎样求其长度？

xstlf · 发表于 2004-12-21 17:11:00

已知直线a，怎样求其长度？其子函数怎么写呀？

meflying · 发表于 2004-12-21 17:46:00

命令：lengthen

xstlf · 发表于 2004-12-21 18:35:00

我查了查没有这命令的呀，试了试，出现这样的提示。

no function definition: LENGTHEN

这是什么地方的函数呀，要怎么才能用呀？是不是要加载

(vl-load-com)呀。

meflying · 发表于 2004-12-21 18:54:00

命令！不是函数

直接使用，不用编程。。。。。。。。。。

xstlf · 发表于 2004-12-21 19:26:00

呵呵，我现在才反映过来，原来meflying老师说的是CAD的命令呀。我现在知道怎么在lisp里用了，真是一言惊醒梦中人呀。哈哈。谢谢。

sieben · 发表于 2004-12-22 16:38:00

(vlax-curve-getDistAtParam curve-obj param) (vlax-curve-getEndParam curve-obj) 用这两个函数组合应该更好一些

xstlf · 发表于 2004-12-22 17:00:00

(setq name1 (entget ent1))
(setq ptstart (cdr (assoc 10 name1))
ptend (cdr (assoc 11 name1))
)
(distance ptstart ptend) 我自已搞出来了，呵呵，传上来让大家看看。

xyp1964 · 发表于 2004-12-22 17:10:00

(vla-get-Length (vlax-ename->vla-object(car(entsel))))

xstlf · 发表于 2004-12-22 17:12:00

哎，VLA开头的，只有它认识我，我不认识它呀。什么意思根本不懂呀。不知在CAD中能不能找到它的用法。

sieben · 发表于 2004-12-23 08:02:00

Vla开头的是Visual Lisp里面的,你若不会vb最好先不管它,你那个方法就很好!但只能用于Line类型的直线,而我那个方法还可以用于LwPolyline,Polyline类型的直线,甚至多段线组成的多义线也可以

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