- #Running lisp routine cad for mac how to
- #Running lisp routine cad for mac code
- #Running lisp routine cad for mac plus
But when I type "dr" I either get "dragmode" or "invalid keyword or command". I have loaded that shortcut command in the nCAD.pgp file. Same as with the other program above, it seems to load okay and I have entered the support path for it in the same location. The shortcut "ss" should operate the program as it does in every other CAD program I have used or tried out.Īnother program I use which draws doors uses the shortcut "dr" to open it's dialog box. So I assume that Nanocad has the right path to use to execute the program.
#Running lisp routine cad for mac plus
For now, I have entered this path: C:\Program Files (x86)\Nanosoft\nanoCAD Plus en 6.0\Steel in the category "Standard files - common file locations".
#Running lisp routine cad for mac how to
I am not clear on how to enter the correct support path for lisp routines. When I do this in Nanocad, "ss" brings up some strange text box with a great deal of command strings listed. To bring up the dialog box for the program, I would enter "ss" at the keyboard. lsp file it finds, so if youre not I did load it into the Visual Lisp Editor and did a check. For example, I have a program which draws steel shapes. I am using common lisp for customizing CoCreate Cad software. However, the shortcuts I normally use to start them do not work. I have set them up to load every time Nanocad starts and they seem to load okay. The new function is then evaluated by your c:ttt function and c:123 function - the former prompting for a selection per your existing command, and the latter automatically processing all white text found in the drawing.I have loaded the several lisp routines I always use in my work. Here, I have defined a new function ttt accepting a selection set argument comprised of single-line text objects, and successively writing the content of each text object in the set to a temporary CSV file (though, this could ultimately be any text format file, since only one column is used). (write-line (LM:csv-addquotes (cdr (assoc 1 (entget (ssname sel idx)))) ",") des) (setq fnm (vl-filename-mktemp nil nil ".csv")) (princ "\nNo single-line text found with object colour set to white.") You will note that I have also revised the selection criteria for your ssget expression to only consider white single-line text residing in the current viewport/layout to ensure that the implied selection operates as expected.ĮDIT: I would suggest the following revision to your code: (defun c:123 ( / s ) (princ "\nNo single-line text with object colour set to white found in the current layout/viewport.") However, without knowledge of the definition of the c:ttt function, the best that I could suggest would be to provide an implied selection in the following manner: (defun c:123 ( / ss ) Ideally, the c:ttt function would be restructured as a function accepting a single selection set parameter, such that you could evaluate the function and pass your ss selection set variable.
The successful operation of your program will be dependent on the definition of the c:ttt function, specifically whether or not this function has been written to accept an implied selection. If you know any other way to achieve this, other then what i pointed to, it's just as good. In principal, i want it to zoom extents => select all texts with colour 7 => run this TTT command and export the selected text in a. (if (and lst (LM:WriteCSV (reverse lst) fn)) (setq fn (vl-filename-mktemp nil nil ".csv")) (setq lst (append lst (list (list (cdr (assoc 1 el)))))) (setq lst (list) ss (ssget (list (cons 0 "TEXT"))) ) (setq str (vl-string-subst "\"\"" "\"" str pos) (while (setq pos (vl-string-position 34 str pos)) (defun LM:csv-addquotes ( str sep / pos ) (strcat (LM:csv-addquotes (car lst) sep) sep (LM:lst->csv (cdr lst) sep)) (foreach row lst (write-line (LM:lst->csv row sep) des)) (setq sep (cond ((vl-registry-read "HKEY_CURRENT_USER\\Control Panel\\International" "sList")) (","))) Please see below TTT function: (defun LM:writecsv ( lst csv / des sep )
#Running lisp routine cad for mac code
Lee Mac, that’s an honour to get help from you🙏 you probably don’t know, but your site helped me many times before and i want to thank you, you’re doing a tremendous job👍🏼 About that TTT function, i have it from a friend, but probably is a code made by you:))
0 kommentar(er)
