[原创]怎样得到多根PL线的点LISP

lzy9788 · 发表于 2004-3-25 12:03:00

怎么样得到多根PL线的点，分别得出一列表

如：

（setq ss (ssget '((0 . "LWPOLYLINE"))))

(setq num (sslength ss) m 0)

(while (< m num))

(setq nam (ssname ss m)

ent (entget nam)

这样后怎么样求出PL上的各点，并得出一列表。

我知道其组码为10，可有很多个点我不知道怎么样得出来

请高手指点。

alin · 发表于 2004-3-25 12:28:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=437&replyID=1532&skin=1

lzy9788 · 发表于 2004-3-25 14:24:00

能用1楼的思路做出来吗，用

(SETQ P1 (CDR (ASSOC 10 ENT)))

再将其它的点一一求出，有什么方法没

二楼说的那个程序我不太清楚思路

不好意思，我是生手，请大侠帮忙

meflying · 发表于 2004-3-25 14:39:00

关于求顶点，一楼并没有任何思路，只是做到了到选择集中提取pline对象而已。

给了你一个完全符合要求的程序，你还想要什么？2楼给的程序就是通过组码10求LWPOLYLINE的顶点的，只不过它还能求POLYLINE的顶点

lzy9788 · 发表于 2004-3-25 15:09:00

为什么用不了，我用了提示参数太少

是用GETPLVTX这个函数吗

没太明白，请指点

meflying · 发表于 2004-3-25 15:32:00

你怎么用的，看提示你应该是这样用的(getplvtx)，看看函数定义，有个参数E，你这样，程序怎么知道你要求谁的顶点？

(getplvtx nam)

lzy9788 · 发表于 2004-3-25 15:43:00

多谢了，我许多不懂，多谢指教

雅明 · 发表于 2004-3-26 13:44:00

这样：(GETPLVTX (CAR (ENTSEL)))

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