ENTSEL问题请教

xubin_9705

用ENTSEL点击在一根线上,怎么求出当前点的坐标在这根线的哪两个端点之间,请教一下,小弟有礼了,

Andyhon

3. (if (and
4.       (setq sel (entsel "\nSelect pline: "))
5.       (setq ent (car sel))
6.       (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE")
7.     )
8.   (setq pt (vlax-curve-getclosestpointto ent (cadr sel))
9. param1 (fix (vlax-curve-getparamatpoint ent pt))
10. param2 (1+ param1)
11. startpt (vlax-curve-getpointatparam ent param1)
12. endpt (vlax-curve-getpointatparam ent param2)
13.   ;; bulge1 (vla-getbulge (vlax-ename- )
14.          ;;do whatever with the data
15.   )
16. )

(if (and       (setq sel (entsel "\nSelect pline: "))       (setq ent (car sel))       (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE")     )   (setq pt (vlax-curve-getclosestpointto ent (cadr sel)) param1 (fix (vlax-curve-getparamatpoint ent pt)) param2 (1+ param1) startpt (vlax-curve-getpointatparam ent param1) endpt (vlax-curve-getpointatparam ent param2)   ;; bulge1 (vla-getbulge (vlax-ename- )          ;;do whatever with the data   ) )

ref link: http://www.rafal.waw.pl/cad/get-segment-data-selected-lwpolyline-out-exploding.html

xubin_9705

谢谢了