Search the Community
Showing results for tags 'increment'.
Found 6 results
Hi, I would like to know some help. 01 - Is there a possibility in this Lee Mac lisp, Automatically Label Attributes, that it can be changed so that every time I open a different file it asks me about the increment, prefix and suffix settings? Because in the current way it always loads the pre-configuration that is already in lisp. I don't want to have to edit the lisp to configure the numbers for each file. Note: I use attributed blocks and multileader blocks. 02 - I also use the Lisp Incremental Numbering Suite, I would like to know if the option for multileaders can be added. As the current options are only for text, mtext and blocks. For my use multileaders are more interesting. Because the use of block with attributes will have to be manually making the leader lines to indicate their positions and references after their insertion and when you have many blocks end up wasting valuable time. I would like to know if it is possible to make any of these changes, since lisps have many lines. Note: Sorry for the google translation. #NumIncV3-9.lsp AutoLabelAttributesV1-4.lsp
create corridor - options
sandiegophil posted a topic in Civil 3D & LDDHello 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
AutoNumbering Leader Routine! Any ideas?
tmelancon posted a topic in AutoLISP, Visual LISP & DCLI 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.
CNC Tool - Solid to sections with automatique xy increment.
TCH posted a topic in AutoLISP, Visual LISP & DCLHi. 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.
incrementing numbers and letters
JPlanera posted a topic in AutoLISP, Visual LISP & DCLI 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) ) )
LISP to Increment Unique Attributes?
stusic posted a topic in AutoLISP, Visual LISP & DCLHello 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