I:EntSelF

hothua · 发表于 2002-10-17 16:23:00

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

龙龙仔 · 发表于 2002-10-18 11:11:00

(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")))

I:EntSelF

发表回复

精选推荐