CAD Doesn't Open Documents From Start-Up

[MillerMG]

Hey Everyone,

 

Got something I find out and wanted to see if anyone else was having issues. When i start up Civil 3D 2017 and try to open documents using the open folder icon on my quick access bar at the top. From time to time, when I use that method it freezes and will not open. I have to use the Recent Documents quick open from the Start Tab first, then it will allow me to use the open folder icon. I have not tried using open from the Autodesk A drop down menu. Thanks for any and all comments

 

Regards,

Miller

[BIGAL]

Its not the answer but I did do a open another folder from command line recently d2010456 will open that project directory 2010456 on our server. It must have a single character at start could use 2. just saves going up and down the directory tree.

 

; Enter the filet radius as part of a command line entry f100 offset O234 circle c123-45 
; note - is used for decimal point
; original code and methology by Alan H
; assistance and code that worked by Lee-Mac
; OCT 2015
; Job Directory added oct 2016 

(   (lambda nil
       (vl-load-com)
       (foreach obj (cdar (vlr-reactors :vlr-command-reactor))
           (if (= "fillet-reactor" (vlr-data obj))
               (vlr-remove obj)
           )
       )
       (vlr-command-reactor "fillet-reactor" '((:vlr-unknowncommand . fillet-reactor-callback)))
   )
)

(defun filletrad ( / rad)
(setq rad (distof (substr com 2) 2))
           (if (<= 0.0 rad)
             (progn        
             (setvar 'filletrad rad)
             (vla-sendcommand fillet-reactor-acdoc "_.fillet ")
             )
             ) 
)
(defun makecirc ( / rad radd)
(setq rad (distof (substr com 2) 2))
           (if (<= 0.0 rad)
           (progn 
           (setvar 'circlerad rad)
           (setq pt (getpoint "Pick centre pt"))       
           (vla-sendcommand fillet-reactor-acdoc "_.Circle !pt  ")       
           )
           )
)
(defun offdist ( / dist)
(setq dist (distof (substr com 2) 2))
           (if (<= 0.0 dist)
           (progn        
           (setvar 'offsetdist dist)
           (vla-sendcommand fillet-reactor-acdoc "_.Offset  ")
           )
           )
)

(defun pipeoff ( / dist)
(setq dist (distof (substr com 2) 2))
           (if (<= 0.0 dist)
           (progn
           (setq poff (strcat "P" (rtos dist 2 0)))
           (if (not poff)(load "Pipe offsets"))
           (vla-sendcommand fillet-reactor-acdoc poff)
           )
           )
)

(defun projopen ( / Proj year)
(setq year (atoi (substr com 2 4)))
(if (< year 2014) 
 (setq projno (strcat "EXPLORER \\\\xxxx.local\\zz\\yyyyy\\Ddddd\\project\\" (substr com 2 4) " Projects\\" (substr com 2) "\\Design\\"))
 (setq projno (strcat "EXPLORER P:\\" (rtos year 2 0) " Projects\\" (substr com 2) "\\Design\\"))           
)
(vla-sendcommand fillet-reactor-acdoc (STARTAPP projno))                   
)


(defun fillet-reactor-callback ( obj com )
(setq com (vl-string-translate "-" "." (strcase (car com))))
   (cond   
       (   (and
           (wcmatch com "~*[~F.0-9]*")
           (wcmatch com "F*")
           (wcmatch com "~F*F*")
           (wcmatch com "~*.*.*")
           ) ; and
           (filletrad) 
        ) 

        (  (and
           (wcmatch com "~*[~C.0-9]*")
           (wcmatch com "C*")
           (wcmatch com "~C*C*")
           (wcmatch com "~*.*.*")
           ) ;and
           (makecirc) 
        )

        (  (and
           (wcmatch com "~*[~O.0-9]*")
           (wcmatch com "O*")
           (wcmatch com "~O*O*")
           (wcmatch com "~*.*.*")
           ) ; and
           (offdist) 
        )

        (  (and
           (wcmatch com "~*[~D.0-9]*")
           (wcmatch com "D*")
           (wcmatch com "~D*D*")
           (wcmatch com "~*.*.*")
           ) ; and
           (projopen) 
        )

        (  (and
           (wcmatch com "~*[~P.0-9]*")
           (wcmatch com "P*")
           (wcmatch com "~P*P*")
           (wcmatch com "~*.*.*")
           ) ; and
           (pipeoff) 
        )

   ) ; master cond
) ; defun

[MillerMG]

Why am I just now seeing this?? For some reason I no longer get e-mail notifications about people posting on threads that I am subscribed to...hmm...maybe I changed somehting??

 

This is a great code! thanks BIGAL! between you and Lee I can do anything hahaha