entsel选择问题

KAIKENZHE

我现在想写一句，就是用entsel,想达到以下的效果，第一，用户选空，提示再选；

第二，选的必须是直线或只有两个点的多线段，如果用户选错，回到提示，还是不能选空，

就是必须选到对的东东时，才继续下面的程序。

大家指点一下，我想破了头。

wandong

(setq enobj (car (entsel "\nSelect Objectine or Pline with to point, Press \"Esc\" to Exit:")))
(while (null enobj)
(setq enobj (car (entsel "\nNothing selectedine or Pline with to point, Press \"Esc\" to Exit:")))
)
(setq endata (entget enobj))
(while (or (and (/= (cdr (assoc 0 endata)) "LINE") (/= (cdr (assoc 0 endata)) "LWPOLYLINE")) (and (= (cdr (assoc 0 endata)) "LWPOLYLINE") (/= (cdr (assoc 90 endata)) 2)))
 (setq enobj (car (entsel "\nObject selected is unexpected, Line or Pline with to point again! Press \"Esc\" to Exit:")))
(while (null enobj)
(setq enobj (car (entsel "\nNothing selectedine or Pline with to point, Press \"Esc\" to Exit:")))
)
(setq endata (entget enobj))
)

byghbcx

对polyline没有考虑到

无痕

2. (defun tt (/ a en)
3.   (while (not (and
4.   (setq a (car (entsel)))
5.   (setq en (entget a))
6.   (or (= (cdr (assoc 0 en)) "LINE")
7.       (and (wcmatch (cdr (assoc 0 en)) "*POLYLINE")
8.     (equal(vlax-curve-getendpoint a)(vlax-curve-getpointatparam a 1))
9.       )
10.   )
11.        )
12.   )
13.   )
14.   a
15. )
16. ; 测试:  (tt)

(defun tt (/ a en)   (while (not (and   (setq a (car (entsel)))   (setq en (entget a))   (or (= (cdr (assoc 0 en)) "LINE")       (and (wcmatch (cdr (assoc 0 en)) "*POLYLINE")     (equal(vlax-curve-getendpoint a)(vlax-curve-getpointatparam a 1))       )   )        )   )   )   a ) ; 测试:  (tt)

KAIKENZHE

谢谢诸位的意见，学习了