@saitoib wrote:
....I think the value obtained by (ssname ss i) is the memory address of the variable.Is it possible to sort by this value order? ....
The value obtained by (ssname ss i) would be an entity name. I'm not on an AutoCAD computer right now, so I can't test whether those can be compared in a way that you could sort them by -- they sort of look numerical and/or like text, but they're not really numbers or text strings. But entity names can be different from one session to another, so I would expect that you could get different results at different times from sorting the same group of entities, selected in the same way, and using the same sorting function.
But you could sort by handles: (cdr (assoc 5 (entget (ssname ss i)))) Those don't change from one session to another. And though they are not always sequential [there can be gaps], I think they only increase as objects are added. If that's right, you should be able to sort things by their handles and always get drawing order. But they're hexadecimal "numbers" [actually text strings in hexadecimal format], so they would need to be converted for sorting [there are converter functions around].
@saitoib . As I can see , the SS,both by ssget or by activeselectionset order, is in reverse as it were add.
Handle is in the same order it were add.
;; Design by Gabo CALOS DE VIT from CORDOBA ARGENTINA
;;; Copyleft 1995-2022 by Gabriel Calos De Vit ; DEVITG@GMAIL.COM
;;
; Hecho por Gabo CALOS DE VIT de CORDOBA ARGENTINA
;;; Copyleft 1995-2022 por Gabriel Calos De Vit
;; DEVITG@GMAIL.COM
;;;
;;************************************************************
;;;get-ss-order
(progn
;
;;-------------------------------------------------------------------------------------------------
;; hex2int.lsp
;; Hexadecimal to base-10 Integer converter [e.g. for entity handles]
;; Modified/simplified from Frank Oquendo's (basetodecimal) function.
;; Added negative-argument capability and argument validity controls.
;; Kent Cooper, January 2011
(DEFUN HEX2INT/HNDL$ (HNDL / RESULT NEG POWER TMP)
(IF (/= (TYPE HNDL) 'STR)
(PROGN
(ALERT "Requires string argument.")
(HEX2INT/HNDL$)
) ; end progn
) ; end if
(SETQ
HNDL (STRCASE HNDL)
RESULT 0
) ; end setq
(IF (= (SUBSTR HNDL 1 1) "-")
(SETQ NEG T
HNDL (SUBSTR HNDL 2))
) ; end if
(IF (/= (VL-STRING-TRIM "0123456789ABCDEF" HNDL) "")
(PROGN
(ALERT "Invalid hexadecimal string.")
(QUIT)
) ; end progn
) ; end if
(REPEAT (SETQ POWER (STRLEN HNDL))
(SETQ RESULT
(+
RESULT
(*
(-
(SETQ TMP (ASCII (SUBSTR HNDL 1 1)))
(IF (> TMP 64)
55
48)
) ; end -
(EXPT 16 (SETQ POWER (1- POWER)))
) ; end *
) ; end +
HNDL (SUBSTR HNDL 2)
) ; end setq
) ; end while
(IF NEG
(- RESULT)
RESULT)
) ; end defun - hex2int
;;*//*/*/*/*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
;;************************************************************************************************
)
;;*//*/*/*/*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/
(DEFUN get-ss-order (/
ACAD-OBJ
ADOC
HND-$
HND-POINT
MODEL
OBJ
ORDER
POINT
SS
SS-0
SS-0-OBJ
SS-OBJ
SS-OBJ-0
UTILITY
)
(VL-LOAD-COM)
(SETQ ACAD-OBJ (VLAX-GET-ACAD-OBJECT)) ;_ el programa ACAD
(SETQ ADOC (VLA-GET-ACTIVEDOCUMENT ACAD-OBJ)) ;_ el DWG que esta abierto-
(SETQ MODEL (VLA-GET-MODELSPACE ADOC))
(setq UTILITY (VLA-GET-UTILITY adoc))
(setq ss (ssget "X" '((0 . "circle"))))
(setq ss-0 (ssname ss 0))
(setq ss-0-obj (VLAX-ENAME->VLA-OBJECT ss-0))
(setq ss-obj (VLA-GET-ACTIVESELECTIONSET adoc))
(setq ss-obj-0 (vla-item ss-obj 0)); just to compare is SS-ent , have the same order as activselectionset
(setq order 0)
;;;(setq obj ss-obj-0)
(VLAX-FOR
obj
ss-obj
(setq point (VLAX-CURVE-GETPOINTATPARAM obj 0))
(VLA-ADDTEXT model (itoa order) (VLAX-3D-POINT point) 200)
(setq hnd-point (VLAX-CURVE-GETPOINTATPARAM obj pi))
(setq
hnd-$ (VLA-ADDTEXT model (HEX2INT/HNDL$ (VLA-GET-HANDLE obj)) (VLAX-3D-POINT hnd-point) 100)
) ;_ setq
(vla-move
hnd-$
(VLAX-3D-POINT hnd-point)
(vla-polarpoint UTILITY (VLAX-3D-POINT hnd-point) pi 100)
) ;_ vla-move
(setq order (1+ order))
) ;_ VLAX-FOR
) ;end main defun
(DEFUN C:order# ()
(get-ss-order)
(prompt "Command Name : C:order#" )
(princ)
)
;|«Visual LISP© Format Options»
(100 2 1 2 T " " 100 6 0 0 1 nil T nil T)
;*** DO NOT add text below the comment! ***|;
