求大神相助用select创建选择集，提示错误参数点无效

yigexinren

求大神相助用select创建选择集，提示错误参数点无效，太难啊， 代码如下

(setq ss_collection (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SelectionSets))

   (vlax-for sset ss_collection
  (if (= "sset" (vlax-get sset 'name)) (vlax-invoke sset 'delete))
   )
   (setq ss_cc (vlax-invoke ss_collection 'add "sset"))
  
   (setq sa1 (vlax-make-safearray vlax-vbdouble '(0 . 2)))
   (setq sa2 (vlax-make-safearray vlax-vbdouble '(0 . 2)))
  (setq sa1 (vlax-safearray-fill sa1 (car area)))
   (setq sa2 (vlax-safearray-fill sa2 (cadr area)))
   (setq sa1 (vlax-make-variant sa1))
   (setq sa2 (vlax-make-variant sa2))
   (Vlax-Invoke-Method (Vlax-Get doc 'Application) 'ZoomAll )
   (vlax-invoke ss_cc 'Select 'acSelectionSetCrossing sa1 sa2)

marting

给你个例子

1. (vl-load-com)
   
2. (defun c:Example_Select()
   
3.     ;; This example adds members to a selection set, first by crossing and
   
4.     ;; then by filtering for circles.
   
5.     (setq acadObj (vlax-get-acad-object))
   
6.     (setq doc (vla-get-ActiveDocument acadObj))
   
7. 
   
8.     ;; Create the selection set
   
9.     (setq ssetObj (vla-Add (vla-get-SelectionSets doc) "SSET"))
   
10.    
    
11.     ;; Add all object to the selection set that lie within a crossing of (28,17,0) and
    
12.     ;; (-3.3, -3.6,0)
    
13.     (setq mode acSelectionSetCrossing
    
14.           corner1 (vlax-3d-point 28 17 0)
    
15.           corner2 (vlax-3d-point -3.3 -3.6 0))
    
16. 
    
17.     (vla-Select ssetObj mode corner1 corner2)
    
18.     (alert (strcat "Objects selected: " (itoa (vla-get-Count ssetObj))))
    
19.     (vla-Clear ssetObj)
    
20.   
    
21.     ;; Add all the Circles to the selection set that lie within the crossing of (28,17,0) and
    
22.     ;; (-3.3, -3.6,0) by filtering from the current drawing
    
23.     (setq gpCode (vlax-make-safearray vlax-vbInteger '(0 . 0)))
    
24.     (vlax-safearray-put-element gpCode 0 0)
    
25.     (setq dataValue (vlax-make-safearray vlax-vbVariant '(0 . 0)))
    
26.     (vlax-safearray-put-element dataValue 0 "Circle")
    
27.    
    
28.     (vla-Select ssetObj mode corner1 corner2 gpCode dataValue)
    
29.     (alert (strcat "Objects selected: " (itoa (vla-get-Count ssetObj))))
    
30. 
    
31.     (vla-Delete ssetObj)
    
32. )
    

(vl-load-com)<br /> (defun c:Example_Select()<br />     ;; This example adds members to a selection set, first by crossing and<br />     ;; then by filtering for circles.<br />     (setq acadObj (vlax-get-acad-object))<br />     (setq doc (vla-get-ActiveDocument acadObj))<br /> <br />     ;; Create the selection set<br />     (setq ssetObj (vla-Add (vla-get-SelectionSets doc) "SSET"))<br />     <br />     ;; Add all object to the selection set that lie within a crossing of (28,17,0) and<br />     ;; (-3.3, -3.6,0)<br />     (setq mode acSelectionSetCrossing<br />           corner1 (vlax-3d-point 28 17 0)<br />           corner2 (vlax-3d-point -3.3 -3.6 0))<br /> <br />     (vla-Select ssetObj mode corner1 corner2)<br />     (alert (strcat "Objects selected: " (itoa (vla-get-Count ssetObj))))<br />     (vla-Clear ssetObj)<br />   <br />     ;; Add all the Circles to the selection set that lie within the crossing of (28,17,0) and<br />     ;; (-3.3, -3.6,0) by filtering from the current drawing<br />     (setq gpCode (vlax-make-safearray vlax-vbInteger '(0 . 0)))<br />     (vlax-safearray-put-element gpCode 0 0)<br />     (setq dataValue (vlax-make-safearray vlax-vbVariant '(0 . 0)))<br />     (vlax-safearray-put-element dataValue 0 "Circle")<br />     <br />     (vla-Select ssetObj mode corner1 corner2 gpCode dataValue)<br />     (alert (strcat "Objects selected: " (itoa (vla-get-Count ssetObj))))<br /> <br />     (vla-Delete ssetObj)<br /> )<br />

select方法

VBA:
object.Select Mode [, Point1] [, Point2] [, FilterType, FilterData]
object Type: SelectionSet
The object this method applies to.

Mode Access: Input-only
Type: AcSelect enum

• acSelectionSetWindow
• acSelectionSetCrossing
• acSelectionSetPrevious
• acSelectionSetLast
• acSelectionSetAll
  

Point1 Access: Input-only; optional
Type: Variant (three-element array of doubles)
The 3D WCS coordinates, or array of coordinates, specifying Point1. See the mode definitions for the proper use of Point1.

Point2 Access: Input-only; optional
Type: Variant (three-element array of doubles)
The 3D WCS coordinates specifying Point2. See the mode definitions for the proper use of Point2.

FilterType Access: Input-only; optional
Type: Variant
A DXF group code specifying the type of filter to use.

FilterData Access: Input-only; optional
Type: Variant
The value to filter on.

yigexinren

          (vlax-invoke-method (vlax-ename->vla-object ent) 'Getboundingbox 'minpt 'maxpt)
          (setq area (list (vlax-safearray->list minpt) (vlax-safearray->list maxpt)))
其中的ent是一个矩形，然后area是他的最小和最大的点

Lisphk

操作选择集， ssget 多直接

yigexinren

Lisphk 发表于 2020-5-11 21:08
操作选择集， ssget 多直接

copyobjects里面的objects，对象数组，可以用ssget的来求出么？有例子么，大佬

yigexinren

marting 发表于 2020-5-11 21:16
给你个例子

完美解决，感谢大佬