Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 03/13/2023 in all areas

  1. @RubberDinero, beside it can make LIST , the main meaning is QUOTE , o CITAR en español , (setq osmode (getvar 'osmode)) ; get the osmode variable value ;then (setqvar 'osmode 1 ) ; setq syatem variable osmode to 1 , or END point ;When doing a LIST you can not make it by ' if the lisp hold a variable '( 0 . "insert") or '( 8 . "as-build") 'But if the layername becomes from a varible laki (setq layername "as-build" ) ; here layername is a variable that hold the string "as-build" ;You have to use (cons 8 layername)
    1 point
  2. a ' is shorthand for list, sort of... LISP is based around lists and these can be created using the function (list -list items-) or '( -list items- ) (and a couple of other ways). The main difference being (list ) evaluates what is in the list, so you could have (list (+ 2 2 )), where '( ) takes the list exactly as it is written For example you could use '((0. "INSERT")) or (list (0. "INSERT"))
    1 point
  3. getdir is a Doslib function not included in AutoCAD lisp. That lisp will only work if you have Doslib installed.
    1 point
  4. Unfortunately I've not found a satisfactory way to do that with a file that is already open. The main problem with LISP is that it runs in the document that opens it, when you move to another document, that document is not the file running the LISP and so it all stops. Scripts run outside of the drawing, but to change drawing they like to use commands or LISPs. As far as I know there is no command to change focus to a different drawing, but there is a command to open or close a file - which is what I tend to do. If it is a newly created drawing then I'd do the copy part first, then create and open the drawing, paste and zoom, save and close to return to the original. Not sure if this is a function that another language can handle
    1 point
  5. Something like this. I did not check if its degrees or radians input that is your homework. (setq obj (vlax-ename->vla-object (car (nentsel "\nPick dimension text ")))) (VLA-PUT-ROTATION OBJ (getreal "\nEnter text angle" )) (command "regen")
    1 point
  6. This weekend I found how to solve this issue ViewPort Creator - CFL.lsp
    1 point
×
×
  • Create New...