Topic: Creating object under another..

[Andrea]

Hi all...

Anyone know how to create an object under another without using draworder or cdorder ?

Code: [Select]

(setq MyPLINE  
(entmakex
  (list
    '(0 . "LWPOLYLINE")
    '(100 . "AcDbEntity")
    '(100 . "AcDbPolyline")
    '(90 . 6)
    '(70 . 1)
    '(43 . 0.0)
    '(38 . 0.0)
    '(39 . 0.0)
    (cons 10 p1)
    (cons 10 p2)
    (cons 10 p3)
    (cons 10 p4)
    (cons 10 p5)    
   )
  )
)

(command "._draworder" MyPLINE "" "_A" MyObject "")


[CAB]

Maybe you could entmod the object you want on top?
Just a guess.

[Lee Mac]

Perhaps use the relevant methods on the Sortents Table?

Example:

Code: [Select]

(defun getOrder  (/ doc spc Dic sort order) 
 
  (setq doc (vla-get-ActiveDocument
              (vlax-get-Acad-Object))
        spc (if (zerop (vla-get-activespace doc))
              (if (= (vla-get-mspace doc) :vlax-true)
                (vla-get-modelspace doc)
                (vla-get-paperspace doc))
              (vla-get-modelspace doc)))
 
  (if (vl-catch-all-error-p
        (setq sort
          (vl-catch-all-apply 'vla-item
            (list
              (setq Dic
                (vla-getextensiondictionary spc)) "ACAD_SORTENTS"))))
    (setq sort (vla-addobject Dic "ACAD_SORTENTS" "AcDbSortentsTable")))

  (vla-getfulldraworder sort 'order :vlax-false)
  (if (< 0 (vlax-safearray-get-u-bound order 1))
    (vlax-safearray->list order)))


[Joe Burke]

There are vlisp methods which can be used to control draworder. Example: see help regarding MoveToTop method.

[Spike Wilbury]

edit...

i remember in the old days, the use of the command copy and move and using as the base point the 0,0,0

[Andrea]

well...thanks all...

I've made many test for DiLEADER program...
and I can't understand why the result is working alternatively....
see the animated Gif..

I have tried with Wipeout,Solid and LWpolyline..but the result still the same.. 

(I have put a blue color to let you see what it's happen..)

[Andrea]

Fixed !

Thanks again all..
i'll upgrade the routine soon..

[Lee Mac]

What was the solution Andrea?  Or are we going to have to wait for the update... 

[Andrea]

What was the solution Andrea?  Or are we going to have to wait for the update... 

I've made a mistake creating object order vs Modified object..
but I take your sortents code as a snipet.

thanks. 

[Lee Mac]

I see - no worries

Looking forward to the next DiLeader update