[求助]請問自動產生多邊形網面(AcDbPolygonMesh)各個頂點坐標的清單

wangyue · 发表于 2004-2-6 11:02:00

請問自動產生多邊形網面(AcDbPolygonMesh)各個頂點坐標的清單

wangyue · 发表于 2004-2-6 13:31:00

為什麼沒有人回，急！俠客們都到那裡去了，

meflying · 发表于 2004-2-6 14:10:00

它的类型其实是polyline类型，
这样获得就可以了
(defun GetVer(ent / pts ents)
   (while (/= (cdr (assoc 0 (setq ents (entget (setq ent (entnext ent)))))) "SEQEND")
   (setq pts (append pts (list (cdr (assoc 10 ents)))))
   )
   pts
)

wangyue · 发表于 2004-2-6 15:32:00

謝謝，不能用DFX中的10隻有一組數是死循環，並且隻是相同的一組數值，

wangyue · 发表于 2004-2-6 17:40:00

各位版主該上班了，在不上班我就急死了

meflying · 发表于 2004-2-6 17:42:00

恕我语文太差，看不懂你是什么意思
另：各位版主都在上班，所以才没有回答你的问题，如果上班时间专门给你回答问题，被老板看见会扣奖金的。。

wangyue · 发表于 2004-2-6 19:29:00

噢，知道了，看來是我錯了
用edgesurf这指令产生的多边形网面的各个顶点的坐标值
下面程序中10的值只有一个值(0,0,0 )(defun GetVer(ent / pts ents)
   (while (/= (cdr (assoc 0 (setq ents (entget (setq ent (entnext ent)))))) "SEQEND")
   (setq pts (append pts (list (cdr (assoc 10 ents)))))
   )
   pts
)
还请您帮帮忙了，浪费点时间吗?

无痕 · 发表于 2004-2-7 00:16:00

我这里正常啊

wangyue · 发表于 2004-2-7 08:00:00

選擇多邊形網面就不形，不信試試

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:ufy0iv1fz1y.dwg
下载次数:0 文件大小:36.43 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

无痕 · 发表于 2004-2-7 09:14:00

我这里还是正常，cad2002环境。
用你发的图测的
Command: (getver (car(entsel)))
Select object: ((61.9654 277.502 0.0) (62.132 277.502 0.0) (62.2987 277.502
0.0) (62.4654 277.502 0.0) (62.632 277.502 0.0) (62.7987 277.502 0.0) (62.9654
277.502 0.0) (61.9654 277.336 0.0) (62.132 277.336 0.0) (62.2987 277.336 0.0)
(62.4654 277.336 0.0) (62.632 277.336 0.0) (62.7987 277.336 0.0) (62.9654
277.336 0.0) (61.9654 277.169 0.0) (62.132 277.169 0.0) (62.2987 277.169 0.0)
(62.4654 277.169 0.0) (62.632 277.169 0.0) (62.7987 277.169 0.0) (62.9654
277.169 0.0) (61.9654 277.002 0.0) (62.132 277.002 0.0) (62.2987 277.002 0.0)
(62.4654 277.002 0.0) (62.632 277.002 0.0) (62.7987 277.002 0.0) (62.9654
277.002 0.0) (61.9654 276.836 0.0) (62.132 276.836 0.0) (62.2987 276.836 0.0)
(62.4654 276.836 0.0) (62.632 276.836 0.0) (62.7987 276.836 0.0) (62.9654
276.836 0.0) (61.9654 276.669 0.0) (62.132 276.669 0.0) (62.2987 276.669 0.0)
(62.4654 276.669 0.0) (62.632 276.669 0.0) (62.7987 276.669 0.0) (62.9654
276.669 0.0) (61.9654 276.502 0.0) (62.132 276.502 0.0) (62.2987 276.502 0.0)
(62.4654 276.502 0.0) (62.632 276.502 0.0) (62.7987 276.502 0.0) (62.9654
276.502 0.0))

[求助]請問自動產生多邊形網面(AcDbPolygonMesh)各個頂點坐標的清單

发表回复

精选推荐