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

linear · 发表于 2004-3-26 17:44:00

alin · 发表于 2004-3-26 18:56:00

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

linear · 发表于 2004-3-27 16:42:00

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 · 发表于 2004-3-28 09:32:00

不行.首先好象extrude不适用于polygonMesh, 即使能,也只能拉伸en,而不是m
其次,(command...)会返回nil,要得到path,可以在画完线后用(entlast)来得到. 同样,
setq so (command "extrude" m "" "p" path ""))即使成功,so还是nil
参考:
指定要拉伸的对象。可以拉伸平面三维面、封闭多段线、多边形、圆、椭圆、封闭样条曲线、圆环和面域。不能拉伸包含在块中的对象,也不能拉伸具有相交或自交线段的多段线。

linear · 发表于 2004-3-29 13:29:00

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

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

发表回复

精选推荐