Jump to content

Search the Community

Showing results for tags 'lisp lsp'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


  • CADTutor
    • News, Announcements & FAQ
    • Feedback
  • AutoCAD
    • AutoCAD Beginners' Area
    • AutoCAD 2D Drafting, Object Properties & Interface
    • AutoCAD Drawing Management & Output
    • AutoCAD 3D Modelling & Rendering
    • AutoCAD Vertical Products
    • AutoCAD LT
    • CAD Management
    • AutoCAD Bugs, Error Messages & Quirks
    • AutoCAD General
    • AutoCAD Blogs
  • AutoCAD Customization
    • The CUI, Hatches, Linetypes, Scripts & Macros
    • AutoLISP, Visual LISP & DCL
    • .NET, ObjectARX & VBA
    • Application Beta Testing
    • Application Archive
  • Other Autodesk Products
    • Autodesk 3ds Max
    • Autodesk Revit
    • Autodesk Inventor
    • Autodesk Software General
  • Other CAD Products
    • BricsCAD
    • SketchUp
    • Rhino
    • SolidWorks
    • MicroStation
    • Design Software
    • Catch All
  • Resources
    • Tutorials & Tips'n'Tricks
    • AutoCAD Museum
    • Blocks, Images, Models & Materials
    • Useful Links
  • Community
    • Introduce Yourself
    • Showcase
    • Work In Progress
    • Jobs & Training
    • Chat
    • Competitions


  • Programs and Scripts
  • 2D AutoCAD Blocks
  • 3D AutoCAD Blocks
  • Images
    • Backgrounds

Find results in...

Find results that contain...

Date Created

  • Start


Last Updated

  • Start


Filter by number of...

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

    Menu update

    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
  3. 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
  4. 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.
  • Create New...