Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 04/02/2023 in all areas

  1. (while (setq l (tblnext "LAYER" (not l))) (or (wcmatch (setq n (cdr (assoc 2 l))) "*ET_LS*,*|*") (or (minusp (setq v (cdr (assoc 62 (setq e (entget (tblobjname "LAYER" n))))))) (entmod (append e (list (cons 62 (- v))))) ) ) )
    1 point
  2. You did not read me well !... (command "_.DIMARC" MyEnt "_none" mid "_none" mid) DIMARC requires a selection by point and not a selection by entity name.
    1 point
  3. 2 or 3 smple internet searches would give you this, for example this (https://www.afralisp.net/autolisp/tutorials/file-handling.php) gives you information on how to read lines of text from a text file, with an example you can work through here from Lee Mac which gives an option to select a file. Have a go and say where you need more help
    1 point
  4. haven't tested your routine but my first guess would be to declare / localize all your variables
    1 point
  5. Pimped printing a little but printing in general depends a lot on user preferences. If you select a printer it can be either a real printer or a pdf printer. App will look for pdf in printer name and takes action accoordingly. Run app on two different machines and nos problemos. Pdf's are saved in same output folder as dwg files. Whether pdf is shown directly depends on how your printer is configured. That's for you or your IT to configure , I'm certainly not coming to India to check that haha. Hope it all works now , if not let me know (don't rush ) RlxSnake.lsp Clamp.dwg GP.dwg POP.dwg
    1 point
  6. You get a selection set of text, 1 or more so convert the text into a string you would use something like this then write to file (setq tstr "") (repeat (setq x (sslength ref)) (setq str (cdr (assoc 1 (entget (ssname ref (setq x (1- x))))))) (setq tstr (strcat tstr "," str)) ) Just a comment you can write direct to Excel no need to use a csv.
    1 point
×
×
  • Create New...