[求助]将全选改为框选,谢谢! (解决了)

yoyoho

将全选改为框选,谢谢!
程序如下:
;Flattening 2D and 3D Object in AutoCAD
; Flatten a 2D and 3D drawing
; This command will set all elevations and points to zero, effectively flattening any 3D drawing.
;
(defun c:flat (/ total-nabor)
(vl-load-com)
(if
(setq total-nabor (ssget "x" '((410 . "model"))))
(progn
(setq total-nabor
(mapcar 'vlax-ename->vla-object
(mapcar 'cadr
(ssnamex total-nabor)

) ;_ end of mapcar
) ;_ end of mapcar
) ;_ end of setq
(foreach i '(1e99 -1e99)
(mapcar (function (lambda (x)
(vla-move x
(vlax-3d-point (list 0 0 0))
(vlax-3d-point (list 0 0 i))
) ;_ end of vla-move
) ;_ end of lambda
) ;_ end of function
total-nabor
) ;_ end of mapcar
) ;_ end of foreach
) ;_ end of progn
) ;_ end of if
(princ)
) ;_ end of defun

gdslqs

(setq total-nabor (ssget "x" '((410 . "model"))))
改为(setq total-nabor (ssget))

yoyoho

感谢 gdslqs 回覆!
刚试了一下!
(setq total-nabor (ssget "x" '((410 . "model"))))
改为(setq total-nabor (ssget))
不行啊!

yoyoho

指令: flat
选取物件: 指定对角点: 找到 2 个
选取物件:
ERROR:损坏的引数类型: lentityp (0 (-13.0124 -17.2568 -30.2692) (0.57735 0.57735
-0.57735))-osnap
目前的物件锁点模式: 端点,中点,中心点,交点
输入物件锁点模式的清单: endp,mid,int,cen

yoyoho

顶一下!
为何
(setq total-nabor (ssget "x" '((410 . "model"))))
改为(setq total-nabor (ssget))
不行呢?

ljpnb

(setq total-nabor (ssget '((410 . "model"))))
     (progn
       (setq total-nabor
              (mapcar 'vlax-ename->vla-object                       
                      (cdr(reverse(mapcar 'cadr
                              (ssnamex total-nabor)

                      ) ;_ end of mapcar
                              ))
              ) ;_ end of mapcar
       ) ;_ end of setq

chshsl

楼上正解，过滤条件不可省

ygp820601

改为不就行了：
(setq total-nabor (ssget '((410 . "model"))))

yoyoho

感谢 ljpnb 帮忙,谢谢您!