![]() ![]() (mapcar '(lambda (x) (if (and (= 'vla-object (type x))(not (vlax-object-released-p x)))(vlax-release-object x))(set (quote x) nil)) lst)) (setq fl (vlax-get-property (vlax-get-property fl 'self) 'path))(setq fl nil))(release_me (list sh)) fl) (if (and (setq sh (vlax-create-object "Shell.Application")) (setq fl (vlax-invoke sh 'browseforfolder 0 msg 0 ""))) (vl-directory-files Filepath Filetype 1)))) (cons Dir (if subs (_GetSubFolders Dir)))))) (apply 'append (mapcar (function (lambda ( Filepath ) (mapcar (function (lambda ( Filename ) (strcat Filepath "\\" Filename))) (vl-remove "." (vl-remove "." (vl-directory-files folder nil -1)))))) (defun _GetSubFolders ( folder ) (apply 'append (mapcar (function (lambda ( f ) (cons (setq f (strcat folder "\\" f)) (_GetSubFolders f)))) (defun _GetAllFiles ( Dir Subs Filetype / _GetSubFolders ) (princ (strcat "\nSearch string " search-string " not found")) (if (and search-string (not (eq search-string ""))) (setq result-list (cons file result-list) done t))) (if (wcmatch (strcase data) (strcase (strcat "*" search-string "*"))) (while (and (not done) (setq data (read-line fp))) ![]() (princ (strcat "\nStart processing files (" (itoa (length lst)) "). (if (setq lst (_GetAllFiles fol t "*.lsp")) (princ "\nCollecting data files, this can take a few moments / minutes. (if (and (setq search-string (getstring "\nString to search : ")) (defun c:tst ( / txt fol lst done data result-list) I usually use Total Commander to search for a string.īut just for fun quickly pasted something together if you don't mind the messy coding it has been helpful to have the polar tracking to be turned on also but i just cant seem to get it to turn back on.Īny help? all thoughts are welcomed and thanked. So the command that i really use this for is the osnaps getting set back to the ones that i like to use. i have also tried to change (setvar "POLARMODE" 0) to either of these (setvar "autosnap" (boole 7 (getvar "autosnap") 8)) polar on (setvar "autosnap" (boole 2 (getvar "autosnap") 8)) ploar off and that doesnt seem to want to get it to work either. i have tried changing the (setvar "POLARMODE" 0) to a 1 or a 2 and that doesnt seem to want to work. it turns everything else that i need back on just not the polar tracking. \nRCC - Rev Cloud Sketch \nRCB - Rev Cloud Block")īeing that the command is "K" one would think that it would turn back on the polar tracking. \nREAD - removes Quick Save command \nKL - Draw backwards three point leader \nCleantitle - Clean title drawing \nCleanBase - Clean base drawing "Dave - list of commands \nK - Your ACAD Defaults \nQS - Quick Save \nERH Erase Hatch \nMA Match Properties (defun c:qs () (alert "NO! NO! NO! NO! NO! NO!")) (Defun C:QS () (command ".qsave") (princ)) ![]() (defun c:cleantitle () (load "cleantitle") (C:cleantitle)) (defun c:cleanbase () (load "cleanbase") (C:cleanbase)) (defun c:explodable () (load "explodable") (C:explodable)) when you type K, it resets your osnaps to your custom setting It seems that i have to open up appload and reload it each time in order for the polar tracking to turn on. is there anyone that can take a look at this for me and let me know if there is something wrong with the set up of the lisp or is there something else that is wrong? i have noticed over the last few months (updated to AutoCAD 2019) the polar tracking will turn off from time to time, and normally when i run the command for this custom lisp to get it to turn back on, and now it no longer is turning that back on. lsp file that was set up for me, and it has been normally working fine for me. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |