Sheep Posted August 24, 2020 Posted August 24, 2020 I want to increase to number in the WHILE. For example IP1 (starting number) when i click the next point it will change to IP2. Below is what i've tried but i dont know how to change it. (while (setq IP (getpoint "\nPick IP: ")) (setq txt_IP_1 00) (setq txt_IP_2 (+ 1 txt_IP_1)) (setq txt_IP_Node (strcat "IP" (rtos txt_IP_2 2 0))) (command ".text" "C" (list ( car IP) (+ 1 (cadr IP)) 0.0) 0.75 0 txt_IP_Node) ) Thank you. Quote
Jonathan Handojo Posted August 24, 2020 Posted August 24, 2020 (edited) (setq txt_IP_1 00) (while (setq IP (getpoint "\nPick IP: ")) (setq txt_IP_1 (1+ txt_IP_1)) (setq txt_IP_Node (strcat "IP" (rtos txt_IP_1 2 0))) (command ".text" "C" (list ( car IP) (1+ (cadr IP)) 0.0) 0.75 0 txt_IP_Node) ) On a more advanced note, this will do: Incremental Numbering Suite... And I mean, waaaay more advanced Edited August 24, 2020 by Jonathan Handojo 1 Quote
Sheep Posted August 24, 2020 Author Posted August 24, 2020 15 minutes ago, Jonathan Handojo said: (setq txt_IP_1 00) (while (setq IP (getpoint "\nPick IP: ")) (setq txt_IP_1 (1+ txt_IP_1)) (setq txt_IP_Node (strcat "IP" (rtos txt_IP_1 2 0))) (command ".text" "C" (list ( car IP) (1+ (cadr IP)) 0.0) 0.75 0 txt_IP_Node) ) On a more advanced note, this will do: Incremental Numbering Suite... And I mean, waaaay more advanced Thank you so much. Quote
BIGAL Posted August 24, 2020 Posted August 24, 2020 Another for you to try. Does numbers and A-Z etc. Pt num bubble.lsp Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.