Search the Community

How can I return the osmode to user's previous mode after running any of my lisp? Could you please help? Thanks

I am trying to load this menu using this code: (do not laugh if it looks dumb)! (defun c:MENLD (/ f) (if (setq f (getfiled "V:\\SALLE A DESSIN\\SAM - OUTILS XLS DWG\\3-LSP XLS\\MENU\\TOWER.cuix")) (progn (setvar 'filedia 0) ;(command "_.menuunload" (vl-filename-base f)) (command "_.menuload" f) (setvar 'filedia 1) ) (print "TOWER.cuix found...") ) (princ) ) The reason I wanted to do this was to update my menu each time someone changes something - But I think I am super beginner. is there a way to update your menu based on the address I provided - even if I have it already on my menubar? I guess unload previous and then load again from that address. Thank you all

Please see below the lisp I have been using to align blocks I had referencing a line. On the snapshot above, as can be seen, the block (customized text leader block) my reference block is at the tip of the leader and not as i prefer (Position2) on this specific block. Can someonw let me know how I can manipulate this lisp so it would take Position2 as a point to align and not 0,0 "Position". The reason for doing this is the leader pointer can be dragged but I would like the alignment to happen on that fixed "Position2". This lisp works well with my other blocks I need to align due to the proper placement of 0,0. alternatively, is there a way, if I cannot specify "Position2", to select which point I would like to be aligned? Thanks (defun C:alit () (prompt "\nPick base line upon which project/align objects:") (setq ent (entsel)) (setq pt2 (cadr ent)) (setq nlin (car ent)) (setq pt2 (osnap pt2 "Nea")) (prompt "\nSelect texts/blocks to project/align: ") (setq conj (ssget)) (setq num 0) (setq con (ssadd)) (setq lon (sslength conj)) (repeat lon (setq name (ssname conj num)) (setq lst (entget name)) (setq tip (cdr (assoc 0 lst))) (if (or (= tip "TEXT")(= tip "INSERT")) (ssadd name con) ) (setq num (+ 1 num)) ) ; end repeat (setq lon1 (sslength con)) (setq num1 0) (repeat lon1 (setq e1 (entget (ssname con num1))) (setq pt1 ( cdr (assoc 10 e1))) (setq name (cdr (assoc -1 e1))) ( command "line" pt1 (osnap pt2 "per") "") (setq pfin (cdr (assoc 11 (entget (entlast))))) (command "_erase" (entlast) "") (command "_move" name "" pt1 pfin) (setq num1 (+ 1 num1)) );end repeat (initget "Yes No") (setq what (getkword "\n¿Erase base line? (Y/N) <Y>: ")) (if (= what nil)(setq what "Yes"));end if (cond ((= what "Yes")(command "_erase" nlin "")) ); end cond (princ) ) ; end defun

Hello every one... Sorry if i have posted in wrong forum. I am quite new to this forum. I have searched these forums for this code but i was not able to find it. I am working with this daily routine of copying a block or some lines or plines to multiple co-ordinates and i am tired of it. Here is the routine that i follow. 1) copy (a set of lines) and specify a base point (usually a center). 2) pasteclip and enter coordinates manually at the prompt (specify insertion point). 3) pasteclip and enter coordinates manually again and again. All I want to do is to copy the object or lines and then specify a csv file for the insertion point(s). Thanks in advance.