Jump to content

Search the Community

Showing results for tags 'increment'.

More search options

  • 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...

Found 5 results

  1. sandiegophil

    create corridor - options

    Hello all, I would like to know if anyone has been able to do the following: - create a corridor leaving all 'CreateCorridor' - 'Assembly Insertion Defaults' to the default values in the settings tab. -apply a different "style" that changes all the increment values. I'm trying to find a way to make custom corridor styles so users do not have to go in and manually change all the 25' increments to 50' (for example). They want to apply a 25' style and then change that to a 50' style at will. Any and all help is appreciated. thanks, phil
  2. I am looking for a routine to automate what we already do. We have a routine that currently when we run the command it ask for "Select location on pipe" which then user selects a point where they want the leader to start. After selecting the initial point the user then selects the "landing" point- the point where the number on a specific layer will appear. It then asks the user to enter the number for point they are referencing. Once the user hits "1" then "enter". It automatically puts in that number on the layer specified in the code with a prefix(#) and a suffix (-). This gets the job done.. However, I am curious to see if there is a way we can automate the numbering some way so that maybe when the user starts the command it prompts [specify Starting Reference Point Number] so if the user wants to start with #44, he/she enters #44 then can begin putting in these points and it populate the numbers automatically instead of the user having to RERUN the command separately, having to specify the number then hit enter everytime. Basically identical to Lee Macs Incremental Numbering Suite but with the option to pull leaders. Just seeing if there is anything out there I can use? Thanks in advance.
  3. Hi. I want to create sections in a solid. These sections pass through planes xy which are incremented by a value to set (Z = 0.05 ... ), and the beginning and the end of the planes must be set too ( Z = 0 to Z = 123 ...). Regions generated would be converted to polylines (open at one end (N, S, E , W) ) shifted inward or outward 1x by an indicated value ( Offset = 3 ...). Each section as well created would be converted into block *.dxf appointed by the drawing name - value of the plan Z. This macro serve to generate a G-code (clean) almost directly usable by a CNC control software (with a post traitment with ACE converter). The interest to create different "block" is to have the choice to enter different block of programmation in the CNC software. Merci pour tout éventuel renseignement.
  4. I made a couple routines for a friend who wanted to increment numbers and letters. I know there are a few different programs out there already but you only learn by trying, right! I used kind of a different approach than the programs I have seen. I tried to understand Lees suite but promptly gave up on that adventure... for now... Please take a look as I would like to know if I did anything that could be improved. All your input lately has been much appreciated, thank you all! The numbering program creates a new text style and gives the user an option to add a suffix to the number with a default option. Is the key the only way i can exit this to be able to reset my variables? (defun c:incnum(/ *error oldcmd oldtextstyle num tht inc lr bp) (setq oldcmd (getvar 'cmdecho) oldtextstyle (getvar 'textstyle) ) (defun *error* (msg) (if oldcmd (setvar 'cmdecho oldcmd)) (if oldtextstyle (setvar 'textstyle oldtextstyle)) (setq msg "Function Completed") (princ msg) (princ) ) (setvar 'cmdecho 0) (command "-style" "ROMANS" "romans.shx" "" "" "" "" "" "") (initget 7) (setq num (getint "\nEnter number to start:")) (initget 7) (setq tht (getreal "\nEnter text height desired:")) (initget 7) (setq inc (getint "\nEnter number to increment by:")) (initget "Left Right") (setq LR (getkword "\nChoose kerf [Left/Right] <Right>: ")) (if(not LR)(setq LR "Right")) (initget 1) (while (setq bp (getpoint "\nPick point--Press <Esc> when finished")) (entmake (list (cons 0 "text") (cons 1 (if (= LR "Right") (strcat(itoa num)",r") (itoa num) ) ) (cons 10 bp) (cons 11 bp) (cons 40 tht) (cons 7 "romans") ) ) (setq num (+ inc num)) (initget 1) ) ) The letter program is set up to always display capital letters regardless of the case of the input.. Also it will quit after letter "Z". (defun c:inclet(/ *error oldcmd start nascii tht bp) (setq oldcmd (getvar 'cmdecho)) (defun *error* (msg) (if oldcmd (setvar 'cmdecho oldcmd)) (setq msg "Function Completed") (princ msg) (princ) ) (setvar 'cmdecho 0) (initget "a b c d e f g h i j k l m n o p q r s t u z w x y z") (setq start (getkword "\Enter starting letter: ")) (if(> (setq nascii (ascii start)) 90) (setq nascii (- nascii 32))) (setq tht (getvar "TEXTSIZE")) (initget 1) (while(<= nascii 90) (setq bp (getpoint "\nPick point--Press <Esc> when finished")) (entmake (list (cons 0 "text") (cons 1 (chr nascii)) (cons 10 bp) (cons 11 bp) (cons 40 tht) ) ) (setq nascii (+ 1 nascii)) (initget 1) ) )
  5. Hello Everyone! As my first post I'm going to give a doozy. I've searched and searched, but can't find a lisp or info that helps me with my problem. Maybe I can find some help here - even though I've already turned grey, I'd still appreciate it. So, here we go... I insert attributed blocks into my drawings that list part number, model number, etc. Along with these attributes, there's another tag that is an incremental number (used in our Bill of Materials). If there are two identical parts (i.e., same model number), the incremental number needs to be the same; if the parts are different, the next sequential number needs to be used. Doing this by hand is not only time-consuming, but tends to be extraordinarily erroneous. So I'm looking to make a lisp routine that I can run to auto-number these blocks. I'm thinking that I can insert my blocks (or re-use them, copy, etc.) without too much concern over the number tag, then run the lisp at the end to give the numbers to each unique block. It'd be nice if any numbers already there could stay the same (we re-use drawings all the time). Block: BOMTAG Tags: ITEM (Increment Number) MODEL (Model Number) PART (Part Number) I don't know a ton of lisp, so I don't know that I can make it on my own, but maybe a nudge in the right direction could keep me from wasting a bunch of time. Any ideas? Make a list of blocks, do something with them, give if-then statements, re-number if needed, move to next block. Easy to type, hard to program. Free rendering to anyone who gets the winning code. Thanks so much, I appreciate any help. -stu
  • Create New...