定点坐标

sxsmy

((-180.0 8210.0) (0.0 8210.0) (0.0 8021.0) (-180.0 8021.0))
多段线顶点坐标，怎样把他单独提出来

kozmosovia

(MAPCAR 'CDR (VL-REMOVE-IF (FUNCTION(LAMBDA(X)(/=(CAR X) 10))) (ENTGET (CAR(ENTSEL)))))

llsheng_73

1. (defun plxy(e / n pt)
   
2.   (repeat(setq n(fix(+(vlax-curve-getendparam e)1.0001)))
   
3.     (setq n(1- n)pt(cons(vlax-curve-getpointatparam e n)pt))))
   
4. (if(setq e(ssget":E:S"'((0 . "lwpolyline"))))
   
5.   (plxy(ssname e 0)))

(defun plxy(e / n pt)<br />   (repeat(setq n(fix(+(vlax-curve-getendparam e)1.0001)))<br />     (setq n(1- n)pt(cons(vlax-curve-getpointatparam e n)pt))))<br /> (if(setq e(ssget":E:S"'((0 . "lwpolyline"))))<br />   (plxy(ssname e 0)))

chslwj521

llsheng_73 发表于 2024-11-21 11:54

(plxy (S:tovla (car(entsel))))

Andyhon

acet-geom-pline-point-list
acet-geom-object-point-list
acet-ent-curvepoints
;(acet-ent-curvepoints <ename> <max-error>)

http://www.mjtd.com/thread-183578-1-1.html