How to force running commands in the created drawing ?

[y.awwad]

How to force running commands in the created drawing ?

I created a new drawing using ( vla-add )

The code creates a point in the created drawing but ( zoom extents ) in the original drawing not the created drawing  .. anyone can help in this ?

(defun C:DRZ (/ acadApp acadDoc)

  (vl-load-com)
  (setq acadApp (vlax-get-acad-object))
  (setq acadDoc (vla-Add (vla-get-Documents acadApp)))
  (vla-AddPoint (vla-get-ModelSpace acadDoc) (vlax-3d-point 10000 10000 0))
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (vla-put-ActiveDocument acadApp acadDoc)
  (vla-ZoomExtents acadApp)
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (vla-Activate acadDoc)
  (vla-SendCommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "Zoom" " " "e" " "))
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (princ)

)
(princ)

[ec-cad]

; Try changing:
(vla-SendCommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "Zoom" " " "e" " "))
; To be:
(vla-SendCommand acadDoc (strcat "Zoom" " " "e" " "))

ECCAD

[y.awwad]

@ec-cad

Same issue .. The code created a point in the created drawing but ( zoom extents ) in the original drawing not the created drawing

[komondormrex]

@y.awwad 

try this one. you cannot zoom extents a point if pdmode is set to 0.

(defun C:DRZ (/ acadApp acadDoc)
  (vl-load-com)
  (setq acadApp (vlax-get-acad-object))
  (setq acadDoc (vla-Add (vla-get-Documents acadApp)))
  (vla-put-ActiveDocument acadApp acadDoc)
  (vla-postcommand acadDoc "pdmode 3 ")
  (vla-postcommand acadDoc "point 10000,10000,0 ")
  (vla-postCommand acadDoc "Zoom e ")
  (princ)
)

[y.awwad]

@komondormrex 

Thanks for replying , I tried the code .. it keeps loading till i select the original drawing and click anywhere ( when i return back to created drawing i found it zoomed extents ) but i have to select the original drawing and left click anywhere 1st to stop hanging , Do you have a solution for this ?

[ВeekeeCZ]

Last time I was fighting the same issue ended up with using acaddoc.lsp. 

https://forums.autodesk.com/t5/civil-3d-customization/vla-sendcommand-issue/m-p/12251272#M24275

[y.awwad]

@ВeekeeCZ 

Strange that Autodesk didn't put an option to do so 🤦‍

[komondormrex]

triple <Esc>.

but you should to look at odbx.