[求助]：求AutoCAD 2002版中直线经pedit命令生成"POLYLINE"后原直线的两端

qjcpj

AutoCAD 2002中由"LINE"命令生成的直线，经pedit命令编辑后会生成"POLYLINE"实体，使用pline命令所绘直线段也是"POLYLINE"实体；而在除AutoCAD 2002版以外的版本中生成的实体为"LWPOLYLINE"实体。
  在"LWPOLYLINE"实体中，求原"LINE"命令生成的直线的两端点可取"LWPOLYLINE"实体的dxf码中的“10"来生成；而在"POLYLINE"实体中，"POLYLINE"实体的dxf码中没有“10"这一项，我经过调试，发现使用:(entget (car (nentselp)))取出的组码可求出一端点，但另一端点就不知怎么求了！希望对"POLYLINE"实体有研究的各位发表高见，谢谢。

xiao_longxin

(DEFUN C:XX (/ E1 DXF XY )
  (SETQ E1 (CAR (ENTSEL)))
  (SETQ E1 (ENTNEXT E1))
  (SETQ DXF (ENTGET E1))

  (while (= (cdr (assoc 0 dxf)) "VERTEX")
    (setq XY (cdr (assoc 10 dxf)))
    (COMMAND "POINT" XY)
    (SETQ E1 (ENTNEXT E1))
    (SETQ DXF (ENTGET E1))
  )
)

xyp1964

[php]
两个vl函数：
vlax-curve-getstartPoint
vlax-curve-getEndPoint
[/php]
可参照“★线转多段线”程序。

qjcpj

谢谢3、4楼，我按两位意见再试试看！

狂刀

最初由 xyp1964 发布
[B][php]
两个vl函数：
vlax-curve-getstartPoint
vlax-curve-getEndPoint
[/php]
可参照“★线转多段线”程序。 [/B]

这个是求全段的起点终点，人家是要局部端点

应该用　[php]
(if (and (setq el (entsel))
         (setq e  (car el)
               pt (cadr el)))
  (list
    (vlax-curve-getpointatparam
      e
      (setq p (fix (vlax-curve-getparamatpoint
                     e
                     (vlax-curve-getclosestpointto e pt)))))
    (vlax-curve-getpointatparam e (1+ p))
  )
)
[/php]
这段代码对ｐｌ和ｌｗｐｌ均适用

qjcpj

谢谢狂刀，再问一下，上述代码不使用vl类函数又怎样写？

xyp1964

最初由 狂刀 发布
[B]

这个是求全段的起点终点，人家是要局部端... [/B]

按主题“原直线的两端点坐标”，应该是全段的起点和终点。
对于局部端点问题，在偶的“实用程序汇总”中有不少，如顶点坐标标注、顶点坐标输出到文件、顶点编号标注、局部线长标注……

qjcpj

1.按xyp1964提供的方法，我已能找出一段直线转化为lp实体后的原直线的两端点坐标。
2.狂刀程序片段对于多段连续直线转化为lp实体后求某一子段的局部端点很有效，极大拓宽了本人思路！
再次对xyp1964及狂刀两位楼主表示感谢。