请问如何获取mesh的一片的四个顶点坐标，谢谢！

linear

请问如何获取mesh的一片的四个顶点坐标，谢谢！

alin

是PolyMesh 吗? (vlax-safearray->list (vlax-variant-value
(vla-get-coordinates (vlax-ename->vla-object (car (entsel))))))

linear

alin,谢谢你。 结果是一长串数字，共12 个，估计是四个点的坐标。请问如何获取单个点坐标呢？ 还有一种方法：(setq pp1x (car (cdr (assoc 12 m))))
(setq pp2x (car (cdr (assoc 13 m)))) 还有一问，想请问你： ................................... (repeat (sslength meshes)
(setq en (ssname meshes i))
(setq m (entget en)) ............................... (setq path (command "line" mp ptcc "")) (setq so (command "extrude" m "" "p" path "")) 请问上面m是不是不能这么用 在这个位置？想extrude一个mesh.请问该怎样改？谢谢！

alin

不行.首先好象extrude不适用于polygonMesh, 即使能,也只能拉伸en,而不是m


其次,(command...)会返回nil,要得到path,可以在画完线后用(entlast)来得到. 同样,


setq so (command "extrude" m "" "p" path ""))即使成功,so还是nil


参考:


指定要拉伸的对象。可以拉伸平面三维面、封闭多段线、多边形、圆、椭圆、封闭样条曲线、圆环和面域。不能拉伸包含在块中的对象,也不能拉伸具有相交或自交线段的多段线。

linear

谢谢alin给我指出这个错误。