请教segcoord函数

zxy9108

;; 返回多义线所点击子段的端点坐标
(defun coordsofsegbypick (ename p)
(setq obj (vlax-ename->vla-object ename)
pp (vlax-curve-getclosestpointto obj (trans p 1 0))
n (fix (vlax-curve-getparamatpoint obj pp)))
(segcoord obj n)
) 上面这个函数是网站上的，我想请问一下，segcoord函数是个什么函数，有没有兄弟可以告诉我它的代码

ljpnb

是个子函数，可能是用来取得obj物体的第n 个顶点的坐标。

zxy9108

应该是这样的，谢谢LJPNB 。


我借用上面的函数做了一个绘制冲模冲头挂台的程序，有兴趣的兄弟可以发QQ：308629570 希望和VLISP学习者交朋友