sxsmy 发表于 4 天前

定点坐标

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

kozmosovia 发表于 4 天前

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

llsheng_73 发表于 4 天前

本帖最后由 llsheng_73 于 2024-11-21 12:55 编辑

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

chslwj521 发表于 4 天前

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


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

Andyhon 发表于 4 天前

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


页: [1]
查看完整版本: 定点坐标