vla点转为lisp点_晓东CAD家园-论坛-A/VLISP-[LISP函数]：返回块上距离指定点最近的点-这是我根据别的函数改过来的，由于对Vlisp不熟悉，函数只能得到距Curve类子实体最近的点...

[FONT=courier new]

;GetBlockNea   ---返回点距块内每个子实体最近的点

; 测试：(GetBlockNea (vlax-ename->vla-object (car (entsel))) (getpoint) acExtendNone)

;暂时仅支持Curve类子实体

; Arguments [Typ]:

;   Blk = Block object [VLA-OBJECT]

;   Pt1 = Point [LIST]

;   Mde = Intersection mode [INT]

;         Constants:

;         - acExtendNone           Does not extend either object.

;         - acExtendThisEntity     Extends the Fst object.

;         - acExtendOtherEntity    Extends the Nxt object.

;         - acExtendBoth           Extends both objects.

; Return [Typ]:

;   > list of points '((1.0 1.0 0.0)... [LIST]

;   > Nil if not found

; Notes:

;   None

;

(defun GetBlockNea (Blk Pt1 Mde / ObjNme PntLst TmpVal Pt2 dst1 Pt3 )

(foreach memb (vlax-invoke Blk "Explode"