怎么获得二维多段线的顶点坐标

_chaogang

请教各位  我怎么不能像查多段线那样查询到二维多段线的坐标

guosheyang

(vlax-safearray->list(vlax-variant-value(vla-get-coordinates(vlax-ename->vla-object en))))

dcl1214

(defun $读取二维多段线顶点$ (e / ed pts)
  (if (AND E
           (= (TYPE E) 'ENAME)
           (eq (cdr (assoc 0 (entget e))) "POLYLINE")
      )
    (progn
      (while (and
               (setq e (entnext e))
               (/= (cdr (assoc 0 (setq ed (entget e)))) "SEQEND")
             )
        (setq pts (cons (cdr (assoc 10 ed)) pts))
      )
    )
  )
  (reverse pts)
)

_chaogang

dcl1214 发表于 2024-5-4 08:46
(defun $读取二维多段线顶点$ (e / ed pts)
  (if (AND E
           (= (TYPE E) 'ENAME)

请问二维多段线的基本属性和顶点在数据库中是单独存放的吗？

dcl1214

_chaogang 发表于 2024-5-4 21:42
请问二维多段线的基本属性和顶点在数据库中是单独存放的吗？

你用的哪个数据库？  mysql   sqlite  sqlserver?

_chaogang

dcl1214 发表于 2024-5-5 00:25
你用的哪个数据库？  mysql   sqlite  sqlserver?

我是想问它在cad中是怎么保存的  我用entget 和entnext 发现它的顶点有单独的图元名  也是有了新发现

llsheng_73

1. (defun plxyz(e fun / pt p n);多段线节点坐标(适用于所有类型的多段线，返回结果为三维坐标点表)，连续重合点只取一个，根据fuz阀值过滤接近点
   
2.   (or(=(type e)'vla-object)(setq e(vlax-ename->vla-object e)))
   
3.   (cond((=(setq n(vlax-get-property e'objectname))"AcDbLine")
   
4.         (list(vlax-curve-getstartpoint e)(vlax-curve-getendpoint e)))
   
5.        ((WCMATCH n"*Polyline")
   
6.         (repeat(setq n(fix(+(vlax-curve-getendparam e)(if(=(vlax-get-property e'Closed):vlax-true)0 1))))
   
7.           (or(equal(setq n(1- n)p(vlax-curve-getpointatparam e n))(car pt)fun)
   
8.              (setq pt(cons p pt))))
   
9.         (if(equal(car pt)(last pt)fun)
   
10.           (reverse(cdr(reverse pt)))pt))))

(defun plxyz(e fun / pt p n);多段线节点坐标(适用于所有类型的多段线，返回结果为三维坐标点表)，连续重合点只取一个，根据fuz阀值过滤接近点<br />   (or(=(type e)'vla-object)(setq e(vlax-ename->vla-object e)))<br />   (cond((=(setq n(vlax-get-property e'objectname))"AcDbLine")<br />         (list(vlax-curve-getstartpoint e)(vlax-curve-getendpoint e)))<br />        ((WCMATCH n"*Polyline")<br />         (repeat(setq n(fix(+(vlax-curve-getendparam e)(if(=(vlax-get-property e'Closed):vlax-true)0 1))))<br />           (or(equal(setq n(1- n)p(vlax-curve-getpointatparam e n))(car pt)fun)<br />              (setq pt(cons p pt))))<br />         (if(equal(car pt)(last pt)fun)<br />           (reverse(cdr(reverse pt)))pt))))

cchessbd

llsheng_73 发表于 2024-5-5 17:48

大侠真乃神人也。