[求助]：急 ！实现类似用pline命令绘制一个封闭多边形的函数！！！

ankea

求程序  

我们知道 在autocad里  可用pline命令画一个封闭的多边形。如何编程来实现啊？？
或者怎样获得有pline命令画的多边形的顶点坐标呢？？？
我想可以分几步：
  提示用户用pline命令画一个多边形。
  用acedensel（） 获得该多边形的名字。
  用acdbgetobjectid（）获得它的id。
  但是怎么样通过它的id获得 他的顶点坐标呢》》》
急   ！  请斑竹帮忙！

maplesu

我没有明白楼主的意思
pline在程序中和平常一样呀
(command "pline" pt1 pt2 pt3......ptn "")
这样不就可以画出来了吗？？
如果你是要查询一个多边形的各个顶点的坐标用
用循环然后取出所有群码为10的值就可以了

ankea

(command "pline" pt1 pt2 pt3......ptn "")

用这个命令的时候不是要获得  各个顶点的坐标吗？  但是我们事先并不知道用户点多少个点来构造这个多边形啊 ？

你说的“群码为10的值”  是什么意思啊？   能不能给出点代码看看   

最好是用ARX写的！！！！

eachy

最初由 ankea 发布
[B](command "pline" pt1 pt2 pt3......ptn "")

用这个命令的时候不是要获得  各个顶点的坐标吗？  但是我们事先并不知道用户点多少个点来构造这个多边形啊 ？

你说的“群码为10的值”  是什么意思啊？   能不能?.. [/B]

需要的点表用 While  获得

2. 
   
3. (while (setq pt (getpoint "\nPoint: "))
   
4.    (setq ptl (cons pt ptl))
   
5. )

<br /> (while (setq pt (getpoint "\nPoint: "))<br />    (setq ptl (cons pt ptl))<br /> )

获得点表后画线用

2. (apply 'command (cons ".pline" ptl))
   
3. (command)
   

(apply 'command (cons ".pline" ptl))<br /> (command)<br />

maplesu

我被楼主搞的越发晕了
你要画多边形当然要知道顶点了，方法按斑竹的就可以了
要是想知道已经知道的多边形的顶点
用(assoc 10 (entget (car en)))得到

ankea

感谢两位关注！
你们说的都是用lisp写的，请问在arx的程序里应该怎么写啊？  可以把lisp程序段嵌套在arx程序里吗？

我需要的是这样一个功能：
    有一个管线图层
    当用户画一个多边形区域时，可以高亮显示在这个多边形区域里的管线！！

所以当执行命令的时候，应该让用户画一个区域  以表示范围。然后获得这个区域的顶点坐标用来判断线与多边形区域的关系。

请问我的思路正确吗？？？