如何获得一个实体最近另外一个实体

fwdll

比如获得指定的文字最近line线或者pline，用autolisp如何实行？谢谢。
还有，AutoCAD2004在提示输入的时候，能不能用autolisp在鼠标旁边输出一行提示文字，就像2007一样的半透明提示框。

fwdll

自己解决了，获得实体的坐标，然后构造一个选择区域，用ssget获得区域内的实体，可逐步增加区域，获得实体后停止。挺简单。呵呵。

userzhl

我现在也正需要这方面的，可不可以贴出来学习一下？

fwdll

(defun Fun_SSGet(sdPt sdDelObj sdLayNM / My_tot My_objss My_LD My_RU My_x My_y );//(点坐标，ssname,图层)
  (setq My_x (car sdpt)
    My_y (cadr sdpt)
    My_objss nil
    My_prcsn 5.0
    My_addstep 0.5
    My_tot 0
  )
  (while(< My_tot 2)
    (setq My_prcsn (+ My_prcsn My_addstep)
          My_RU (list (+ My_x My_prcsn) (+ My_y My_prcsn))
      My_LD (list (- My_x My_prcsn) (- My_y My_prcsn))
          My_objss (ssget "_c" My_LD My_RU sdLayNM)
    )
    (if ( null My_objss)
      (setq My_objss nil)
      (setq My_tot (sslength My_objss ))
    )
    (if (> My_prcsn 100.0)
       (setq My_tot 10000)
    )
  )
  (if ( null My_objss)
     (alert "None object")
      (progn
         (setq My_obj(ssdel sdDelObj My_objss));;删除自身
      )
  )
 (setq ObjNm(ssname My_objss 0))
)

liujing95

对于一个初学者来说是一个很大的帮助

fwdll

fwdll 发表于 2008-12-28 23:02
(defun Fun_SSGet(sdPt sdDelObj sdLayNM / My_tot My_objss My_LD My_RU My_x My_y );//(点坐标，ssname,图 ...

这个子函数只是针对我自己的目的写的，可能不一定通用，比如选取不同类型的物体，我的图纸一般是分层处理，所以有一个图层的参数，不过大家可以在上面修改，增加类型判断还是很容易的。
至于第二点，其实还有一个子函数，求距离最近的物体，只是增加一个函数，感觉运算慢了很多，所以还是删除了，大家有兴趣也可以增加进去，distance函数就ok了。