[LISP程序]：关于“bhatch”命令的 PICK POINT 算法问题！

dingweidong

在bhatch 命令中通过PICK POINT 可以实现点选范围边界。
对此难点就在于如何实现“点选” SELECT 算法！
本人从事GIS电子地图，很多地方需要做到将地图符号放在“区域”的中央！
要是可以解决这个算法问题，将会对实际工作将会产生很大的帮助！
兄弟说了，解决了请喝啤酒！

f5612140

(setq bp (bpoly pt1))
   (command "region" "l" "")
   (setq en (ssget "l"))
   (setq ename (ssname en 0))
   (setq xobj (vlax-ename->vla-object ename))
   (setq ptlist (vla-get-Centroid xobj))
   (setq ptms (vlax-safearray->list (variant-value ptlist)))