CAD Forum discussion (EN) : LISP to generate wire labels https://www.cadforum.cz/forum_en/ Sun, 12 Apr 2026 00:19:17 +0000 Mon, 18 Jul 2022 23:41:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=13712 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[LISP to generate wire labels : I had the same issue some months...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13712&PID=38298&title=lisp-to-generate-wire-labels#38298 Author: julecave
Subject: 13712
Posted: 18.Jul.2022 at 23:41

I had the same issue some months ago and couldn?t find a solution I was happy with. Now all cables in my network are fully documented and labeled. Best of luck!



https://tutuapp.uno/
https://9apps.ooo/
https://showbox.kim/




Edited by julecave - 19.Jul.2022 at 10:59]]> Mon, 18 Jul 2022 23:41:25 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13712&PID=38298&title=lisp-to-generate-wire-labels#38298 <![CDATA[LISP to generate wire labels : I’ve had great experiences with...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13712&PID=38295&title=lisp-to-generate-wire-labels#38295 Author: julecave
Subject: 13712
Posted: 17.Jul.2022 at 18:30

I’ve had great experiences with Brother printers and their P-Touch software. They had a template for network cables to go off of and you can import labeling number schemes from an excel sheet.

I had the same issue some months ago and couldn’t find a solution I was happy with. Now all cables in my network are fully documented and labeled. Best of luck!


]]> Sun, 17 Jul 2022 18:30:27 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13712&PID=38295&title=lisp-to-generate-wire-labels#38295 <![CDATA[LISP to generate wire labels : I could use some help with creating...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13712&PID=38250&title=lisp-to-generate-wire-labels#38250 Author: joeljbennett
Subject: 13712
Posted: 28.May.2022 at 06:23

I could use some help with creating a LISP file to generate wire labels. Here is how I would like the program to work (see screenshot).

 

User loads and runs routine

1. User is prompted to SELECT 1ST blocktxt. Program extracts the first 8 characters from the model tag, it skips counting spaces. Or extract all characters up to the left bracket, which ever comes first. Then append a colon and space
2) Next the user is prompted to SELECT 1st text, which extracts the last digit or last two digits.  If there are no digits at the end of the string then extract the last word (eg OUT). Then append a line break
3) Then the user is prompted to SELECT 2nd blocktxt, program extracts the first 8 characters from the model tag, skip counting spaces. Or extract all characters up to the left bracket, which ever comes first. Then append a colon and space
4) Next the user is prompted to SELECT 2nd text, which extracts the last digit or last two digits.  If there are no digits at the end of the string then extract the last word (eg OUT).  
5) Allow user to place resulting mtext in the drawing on the Label layer

 

Here is the desired results on the Label layer from the drawing and pic below

 

DP DA 2: 1
TH-55CQE: 1

 

 

I found this LISP that extracts all text from multiple blocks and converts it to mtext.

https://autocadtips1.com/2011/04/26/autolisp-attribute-to-text-mtext/

 

And this LISP combines multiple selected text in to one mtext

 

http://www.lee-mac.com/text2mtext.html

 

I thought these  two LISPs might be helpful as a starting place.





]]> Sat, 28 May 2022 06:23:34 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13712&PID=38250&title=lisp-to-generate-wire-labels#38250