I:EntSelF

hothua

这个自编的LISP函数思路很不错,但有一点小问题:
大家可以试试在第一次使用该函数直接右键或回车,然后你使用该函数即使你选择LWPOLYLINE或POLYLINE,也讲返回NIL,这是因为ERRNO只是在发生错误时才置位,所以应在函数起头处加上(setvar "ErrNo" 0)
另外建议加上(= (getvar "errno") 7)的判断以避免继续进行后面无谓的计算与判断

龙龙仔

(defun I:ENTSELF (MSG FILTER / SS SSS PT1)
  (while (not SS)
    (setq SS (entsel MSG))
    (if        (/= SS NIL)
      (progn
        (setq PT1 (osnap (cadr SS) "NEA"))
        (if (not (setq SSS (ssget PT1 FILTER)))
          (setq SS NIL)
          (list (ssname SSS 0) PT1)
        )
      )
    )
  )
)

;;USAGEI:EntSelF "\n請選Polyline物件: " '((0 . "*Polyline")))