Jump to content
MillerMG

CAD Doesn't Open Documents From Start-Up

Recommended Posts

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...