;采用以下方法试试
;设矩形选择集区域的左下角为p1,右上角为P2,则
(command "_zoom" "w" (mapcar '- p1 '(10 10)) (mapcar '+ p2 '(10 10)))
(setq d (ssget "c" p1 p2 '((0 ."LWPOLYLINE"))))
(command "_u")
lisp中ssget的选择集不确定.视口在不同的缩放比例下,利用ssget选择出来的对象也不同.
;采用以下方法试试
;设矩形选择集区域的左下角为p1,右上角为P2,则
(command "_zoom" "w" (mapcar '- p1 '(10 10)) (mapcar '+ p2 '(10 10)))
(setq d (ssget "c" p1 p2 '((0 ."LWPOLYLINE"))))
(command "_u")