Originally Posted by
bweir
1)
Can any body tell me how to keep the Map 3D stylization while zooming unlinked? I can toggle it with the little lock icon on the task bar but when I start a new drawing or open an existing one it is turned back on. It seems to wreak havoc with my Undo when it is turned on.
Haven't a clue. Drives me nuts!
2)
Also sometimes we've been getting this error:
Assignment to protected symbol:
C:AI_MOLC
Enter break loop?
How can I remedy this? I am assuming that we have a LISP function defined the same as an Autodesk function but have not been able to correct this yet. Can you tell me if I'm on the right track?
MOLC = Make Object Layer Current routine from Autocad = LAYMCUR in current version. Found oddly enough in acmap.mnl, but no longer needed since the Express Layer Tools are built into Autocad now. It must be defined somewhere else as well. Loading any old Bonus Tools?
3)
How can I change my taskbar back to the old style. Seams people around here don't really like the Tool flyout, they would rather have the toggles listed across the bottom as in 2005. Also everytime we click it it toggles SNAP so you have to click it again to set the SNAP back.
Try this:
Code:
; 2D / 3D Statusbar toggle for Autodesk Map 3D 2007
; BY: Tom Beauford - 7/11/2005
; Tombu@LeonCountyFL.gov
; LEON COUNTY PUBLIC WORKS SURVEY & R/W SECTION
;Menu item: ^P(or TabBar (load "Statusbar.lsp"));(Statusbar)
;=============================================================
(defun Statusbar ( / pro vlt newlen strCaption)
(setvar "cmdecho" 0)
(setq pro (getvar "PRODUCT")
vlt (substr (getvar "_VERNUM") 1 1)
strCaption (vla-get-Caption (vlax-get-acad-object)); Thanks Matt
newlen (vl-string-search " - [" strCaption)
strCaption (substr strCaption 1 newlen)
)
(if(= strCaption "Autodesk Map 3D 2007")
(if(= 0(vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Applications\\AcMap") "Statusbar"))
(progn
(vl-registry-write (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Applications\\AcMap") "Statusbar" 1)
(alert "\nStatusbar option will be set to Map 3D 2007 on restart of Autocad.")
);progn
(progn
(vl-registry-write (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Applications\\AcMap") "Statusbar" 0)
(alert "\nStatusbar option will be set to 2D Autocad 2007 on restart of Autocad.")
);progn
);if
(alert "Will only work with \"Autodesk Map 3D 2007\".")
);if
(princ)
)