Eentsel 选取对象问题

dennylaw163

请大师指正一下,希望实现选取对象ractang是一个矩形，如果不是，继续选取。

• (defun c:HV(/)
•   (setvar "cmdecho" 0)
•   (setq rectang (car(entsel"选择一个矩形")))
•   (setq re_content (entget rectang))
•   (setq Lst (mapcar 'cdr(vl-remove-if '(lambda (x) (/= (car x) 10)) re_content))
•     s1 (nth 0 Lst)
•     s2 (nth 1 Lst)
•     s3 (nth 2 Lst)
•     s4 (nth 3 Lst)
•   )
•   (command "ucs" "z" "0")
•   (command "plan" "")
•   (command "ucs" "")
•   (command "'-VIEW" "W" "v1" s2 s4)
•   (command "'-VIEW" "R" "v1")
•   (princ
•   )
• )
  

wzg356

(while (/= name "AcDbrectang")
(and(setq en (car(entsel)))   
(= (cdr(assoc 0(entget en))) "LWPOLYLINE")   
(setq ob(vlax-ename->vla-object en))
(= (vlax-curve-getendparam ob) 4)
(setq a(vlax-curve-getDistAtParam ob 1))
(equal (vlax-curve-getArea ob)(* a (- (vlax-curve-getDistAtParam ob 2)a))1e-4)
(setq name "AcDbrectang")
)
)

菜卷鱼

(defun c:tt (/ ss)
(while (= ss nil)
(OR (setq ss(ssget ":S" '((0 . "LWPOLYLINE"))))
  (princ "\n没选到"))
)
(princ "选到了")
(prin1)
)

dennylaw163

wzg356 发表于 2021-4-14 12:32
(while (/= name "AcDbrectang")
(and(setq en (car(entsel)))   
(= (cdr(assoc 0(entget en))) "LWPO ...

提示错误
error: bad argument type: consp nil

dennylaw163

菜卷鱼 发表于 2021-4-14 14:23
(defun c:tt (/ ss)
(while (= ss nil)
(OR (setq ss(ssget ":S" '((0 . "LWPOLYLINE"))))

貌似不可以用ssget的，会出错，只能用entsel

wzg356

程序前加(vl-load-com)
选择前加(setq name nil)