Layer Manager freeze!! [Archive] - AutoCAD Forums

PDA

View Full Version : Layer Manager freeze!!


Nightline
4th Mar 2006, 02:41 am
Ok, we got some new work stations at my office where we have autocad 2005 (with s.p.1 installed) and 4 liscenses running off of our server. Before the new install off of the server onto my local machine everything worked fine, our lisp. and layer manager....

Now, whenever i click on the layer manager icon beside the layers drop down in any drawing the program seems to "freeze" i look it up in the task manager, still running, yet the program doesnt respond after i press this button. wtf? Remember i have sp1 installed which is suppost to fix this problem along with others....


Second problem is our lisp. print button we use to attach a file path, date, time to our printed drawings is not showing up in the toolbar area when we load it into our menu. Not even after creating a customized toolbar with this icon being the only one in it will it show up!!! We load the application, it sais it loads fine but when we check it under the load/unload applications it appears as grey text. Both working/support paths point to the folder with the mnc. file in it, menu customization box shows its loaded in the menu groups.... but when i go into the Menu Bar tab and select our DateStamp, no folders come up showing any items........ im running out of ideas guys, ive wasted a whole day of work getting this damb liscense and autocad running and these 2 problems are the only ones still bugging me. Been through multiple forums and searched the archives but couldnt find anything to help me out, hopefully there is someone in here who will be able too, thanks in advance, Ryan

Nightline
6th Mar 2006, 05:49 pm
heres the code that the lisp. is using.....

; DATESTMP updates the drawing date stamp
;
;
;
(defun C:DATESTMP ()
(setq cmdecho (getvar "CMDECHO"))
(setvar "CMDECHO" 0)

;
; Locate hidden block
;

(setq DATESTAMPSET (ssget "X" (list (cons 2 "DATESTMP"))))
(if (= nil DATESTAMPSET)
(progn
(princ "\n***** DATE STAMP DOES NOT EXIST - USE SAB TO INSERT ONE *****\n")
)
)

;
; Update
;

(setq C (sslength DATESTAMPSET))
(while (> C 0)
(setq C (- C 1))
(setq DATESTAMP (ssname DATESTAMPSET C))
(setq ENT (entnext DATESTAMP))
(setq ENTLIST (entget ENT))
(if (= (substr (getvar "DWGNAME") 2 1) ":")
(setq NEWLIST (strcat(getvar "DWGNAME")
", "
(getvar "LOGINNAME")
", "
(substr (rtos (getvar "CDATE") 2 4) 1 4)
"/"
(substr (rtos (getvar "CDATE") 2 4) 5 2)
"/"
(substr (rtos (getvar "CDATE") 2 4) 7 2)
"-"
(substr (rtos (getvar "CDATE") 2 4) 10 2)
":"
(substr (rtos (getvar "CDATE") 2 4) 12 2)
)
)
(setq NEWLIST (strcat(getvar "DWGPREFIX")
(getvar "DWGNAME")
", "
(getvar "LOGINNAME")
", "
(substr (rtos (getvar "CDATE") 2 4) 1 4)
"/"
(substr (rtos (getvar "CDATE") 2 4) 5 2)
"/"
(substr (rtos (getvar "CDATE") 2 4) 7 2)
"-"
(substr (rtos (getvar "CDATE") 2 4) 10 2)
":"
(substr (rtos (getvar "CDATE") 2 4) 12 2)
)
)
)
(setq ENTLIST (subst (cons 1 NEWLIST) (assoc 1 ENTLIST) ENTLIST))
(entmod ENTLIST)
(entupd ENT)
)

(setvar "CMDECHO" CMDECHO)
)