Jump to content

Search the Community

Showing results for tags 'script'.

  • 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. Hi, I am have a database containing object information. I am able to write out a script from my database that inserts blocks into Autocad C3D. Here is an example of the script file: osmode 0 -layer Set "2020_DESIGN" ATTREQ 1 ATTDIA 0 -insert "DESIGN" 607476.547,7574318.945,0 1 1 0 GAS GR04L001 10354 Is there a way that I can also insert Object Data (into a data table) using this script when creating the block? I have attached an image showing the structure of the data table that I would like to populate. Thanks in advance Lee
  2. ;; [INSERT INCEPTION SOUND EFFECTS HERE] ;; Preface: I've built a lisp routine that generates a script. The script then runs a SECOND lisp routine on a series of drawings. ;; I'm having serious trouble passing information from the first lisp routine to the second lisp routine. ;; The first lisp routine uses a DCL dialog box to gather user information, and the second lisp routine needs to apply this information to each drawing in a set. ;; I have assembled the information into a list of strings, which I'd like to pass as an argument into the second lisp (unless there's an easier way someone can
  3. I am creating a copy from a drawing with Autolisp and creating a script which will be dettaching all xrefs on the copy. After saving the copy, the last command of the script is "close", then I would like to go back to the original drawing from where the copy was made from. This is not happening if there are some other drawings opened, then it makes active the last opened drawing. I need an automatic process since I will not be the final user and they might get confused. Here it is the code: (defun run (/ mc_scr) (setq switch_dwg (strcat (getvar 'dwgprefix) (getvar 'dw
  4. I am new to script so this is basically my first script file: Don't know why but my script only run about 4 line in and then no more output in the text window is observed. Curiously if I reorder some of the line in the scr I get only 1 line being run. The (command) is not as intended as enter/space but rather as Cancel. And this script is trying to find out which are read-only; I want the print out for each variable of whether it accept value or is read-only as though it's done manually with the Setvar Command. So I'm not trying to change any variable. I thought of using (setvar) and see which
  5. Jord_91

    Make boundary

    Hey guy's I've got this lisp that is working pretty well with an end user but when I try to add it to a script it saids that it's an Unknown command... is there something in it that is wrong? (defun lib:Zoom2Lst( vlist / bl tr Lst OS) (setq Lst (lib:pt_extents vlist) bl (car Lst) tr (cadr Lst)) (if (not (and (lib:IsPtInView bl) (lib:IsPtInView tr))) (progn (setq OS (getvar "OSMODE"))(setvar "OSMODE" 0) (command "_.Zoom" "_Window" (trans bl 0 1)(trans tr 0 1) "_.Zoom" "0.95x") (setvar "OSMODE" OS) T) NIL)) ;External contour of objects (defun C:MakeBoundary ( / *error* blk obj MinPt MaxP
  6. Hi, I'm looking to make a script, lisp or batch sort I could take all the 3D drawing from a file and convert it to a 2d drawing. I've tried a lot of thing like "flatshot", "outbounding", "flatten"... The best result was definitely with the "Flatshot" command, but it cannot be use as a script or lisp (I might be wrong). Outbounding wasn't effective at all. So I came ou with the Flatten Function from the Express tools that i run in the Wscript of Lee Mac. I made all a routine that goes like this : _open *file* _-view _top -calque nouv 2D _ai_selall _Flatten no _change tout proprié
  7. Hello, I have 5000 drawings that contains three specific tables. All these tables are linked to external Excel using data links. The main issue i have is, after the data link is removed the cell content of all three tables remain locked. Is there any way to unlock the cells using lisp??. I know i can do it manually but i don't want to go that route unless it is the only the way to do so. Please take a look at the drawing & lsp file. Trial.dwg Thank you very much. Regards, A AUTOCAD AUTOMATION.LSP
  8. Hi, Recently been testing the water with writing scripts to try and automate some of the functions that I do repetitively so a newbie to this. Unfortunately only have access to AutoCAD LT so can't use LISP or anything. Have tried the ^C^C and (command) suggested in other forums. Essentially my script something like this: -layer set Datum LINE 0,-14000 850000,-14000 -INSERT BLOCK1 10000,20000 1 1 0 20000,20000 1 1 0 30000,20000 1 1 0 -INSERT BLOCK2 37000,7000 1 1 0 When I run it in CAD it keeps asking for an insertion point for BLOCK1 (even though I don
  9. Hello dear community, My task is to validate coordinates of antenna changes for a mobile network; this list is supplied in Excel format an the respective points are introduced in matlab on separate layers for each antenna change, e.g. AC_1>2, AC_5>100, AC_80>34, ... On another layer are the locations of the antennae as points. I want to validate that no antenna change (AC) takes place too far away from that antenna. I have developed a process to do this, yet I still don't have figured out how to do each step. Process: For each antenna (how are for-l
  10. Hello All, I am trying to remove one table from my drawings. Please take a look at the attached sample dwg. I have over 8000 drawings to modify. All drawings contains 3 tables as shown in sample drawing. I want to erase table 3. The location of the table 3 can be anywhere in with in outside border. tried many things. but no luck so far. right now i have an autolisp that works fine if i run it in one drawing. but it doesn't work while running thru script. (defun c:abcd() (setq ss1 (ssget)) (command "erase" "p" "" ) (command "zoom" "e" "") (command "qsave")
  11. Hi All. I was wondering if anyone knows of a tool or a way to basically, batch PDF multiple viewports or specific coordinates within a paper layout. I have an A0 drawing where i need a print of the A0 drawing, and multiple grids set to A4 then a Jpeg showing the full plan with the grids on. I have set up a script using the -plot command and set the Coordinates for each grid. However it is a bit slow and cumbersome to do this on multiple drawings. Does anyone know of a way to maybe either through a script or a lisp, to open a drawing. Find certain instances of a block or polyline and print
  12. Hi, I need to run a scrit on multiple files and I would like it To chose wich SCR to run bas on the begining of the Name of the DWG File. In this case i have file with 2436, 3648 etc... and my scr would need to run the 2436INS.SCR on the 2436 ans same thing with the 3648 etc... I have try using Script Pro 2.0 But as it's openning a new file that has nothing in it it wont run proprelly the srcip. Here's my .scr Also Got it in Macro Command I would at least be able to run it in Script Pro but if someone is able to make a.bat or a lisp quith that it would be so fantastic I'm r
  13. I am trying to script a counter of specific strings. How can I select all occurrences of text that has a specific value? I cannot use filter or quickselect, and I cannot get selection sets to find specified values. Any help would be greatly appreciated. I am using ACADE 2015.
  14. I have a client who used Simplex.shx font all over their drawing package. Is there a way to use Simplex.ttf in a text style instead? I have read and searched all over and haven't gotten anything to work. When I go to my style manager Simplex_IV25 and SimplexIV_IV50 are the only true type fonts I can use of Simplex. They are wider and bolder than the regular version, which is not selectable. I would like to change the style using a script on my 300+ drawings so that when we convert to PDF it is searchable. I cannot use either Simplex_IV25 or Simplex_IV50 because the clients would notice and wou
  15. Hello.. Not familiar with autolisp or scripts I work for a earthworks company, and we are looking for a way to have an excel worksheet to update progress completion by coloring a property another colour in autocad. Example - lot 1 10% complete, and lot 10 is 30% complete as per excel data. I would like lot 1 (10%) to be light green and lot 10(30%) to be a darker green and darker shades for higher % completion and for the autocad drawing to update as the excel data sheet is updated. I have aproximatly 400 lots to program in this way if possible. Each lot will have 10 conditions (ie 10%,
  16. Hi, I want to make a script who draw circles in multiple Points. The Points are automaticly made in a extension to autocad. All the Points are in same layers. It´s around 200 to 1000 Points in the drawing. My first issue is to find a commando who draw circles, with basepoints in all Points. Does anyone know the appropriate command for me? Regards, Emil
  17. I'm trying to write either a script or a macro to make it easier to do an array that we will need to replicate on a regular basis. Basically, I want a path array to offset mtext every 20m along a centreline. If I do this in the command line, it's fine: ARRAY select object PA [path] select path curve M [method] M [measure] I [item] 20 [distance apart] F [fill length of path] A [align to path] Y [confirm] X [exit] If I do this in a script or macro, I encounter a difficulty in that the type of array is limited to polar or rectangular. It doesn't even register that path
  18. Hello, I have some drawings that requires CONVERTPSTYLES run to be able to use the plot style .ctb files. Otherwise it shows missing. So, I have created a script per below (btw my first script ever ). CONVERTPSTYLES QSAVE QUIT This script works well if all the files in folder has the issue of missing plot style. If any one file is not having this issue, then the script stops. I noticed that the CONVERTPSTYLES is having two different responses and if the file does not have any issue, then it pops-up different window causing my script to stop. The first image is the n
  19. Hey all, this is my first post so I'm sorry if I violate any of the forum rules. I appreciate the help! I'm trying to write a script to get the latest revision number from our drawings, then save that info into a text or CSV file. Each drawing has a revision block like the image tagged below. How would I do that in LISP? Thanks!
  20. I have created a .cuix file that I would like to apply to AutoCAD2015 for each user on the network, so that I do not have to log in under each name and manually transfer in the CUI one at a time. So far I have tried multiple methods for loading the custom .cuix file into AutoCAD on launch, however I am unable to get the workspace to transfer in at all. I have created an acaddoc.lsp file, saved into a support file path, that calls another .lsp file to load in the cuix, based on code I have seen on this forum: (command "cuiunload" "FILENAME" ^C "cuiload" "X:\XX\XXX\FILENAME.cuix" ^C)
  21. Hello everybody! Few programmers (including myself) decided to create a website with free (for now) AutoLisp programs and scripts for Autocad. Well, we have few questions to define where to start. Your answers would really help. - Do you use programs (scripts) in your work? - Which program (script) you would use but do not have. Best regards, ... PS Link to website asap
  22. Hi all I really do not have much experience with AutoLISP but I would like to write a script that allows me to: 1. Create a new DWG 2. Draw a line from a set of existing coordinates from a .txt file 3. Save this drawing in a specified location 4. Close the drawing 5. Rinse and repeat until all of the .txt files have been drawn. Basically this will be used for hundreds of .txt files containing coordinates to draw the cross-sections of a tunnel. Is this something that can be done? As after hours of research I have only managed to be able to draw one cross-section using a bat
  23. Hi, this is my first post on the forum & I'm also pretty new to AutoCAD scripts & Lisp routines, so please bear with me. Basically I have the following script: (setq dn (strcat (getvar "dwgprefix") "New Drawing.dwg")) (vl-propagate 'dn) _.saveas 2010 !dn This script saves my current drawing as 'New Drawing.dwg' within my current directory, and works fine. When I try to modify the script to the following, which attempts to open instead instead of save, it doesn't work, just prompts for drawing name: - (setq dn (strcat (getvar "dwgprefix") "New Drawing.dwg")) (vl-pro
  24. Hi guys! I try this http://askjerry.info/weird_gear/ to get a gear of two SQUARE tooth wheels. I have downloaded and installed ACAD especially for the project. For now I could run the script to get a result curve (made out from big white wheel on the left) for primitives (triangle, square, ellipse, etc.) I draw in small red circle on the right. Almost everything seems to be okay but when I try to paste there (to the right red circle) ready made and complicated pattern (tooth wheel) from another CAD software the script goes ERROR. Where my mistake is? Please answer in most common
  25. I've made this script to adjust the extensions on our rectangular transition ducts but it doesn't want to work for me. Everything is fine if I keep it simple and leave out the " Or "Ductmate 35" " part but for this to work, I will need the or statement. Anyways, here's the script... select item.cid case 2 dim extin = item.dim[6].numvalue dim extout = item.dim[7].numvalue dim con1 = item.connector[1].value dim con2 = item.connector[2].value if ( con1 = ("TDC" or "Ductmate 35") ) and (extin < 2 ) then item.dim[6].value = 2 end if if ( con2 = ("TDC" or "Ductmate 35") ) a
  • Create New...