Begde Posted January 30, 2013 Posted January 30, 2013 Dear all, I have many polylines that I have to put a label that shows the length and the measurement unit for each of them; basically they are underfloor heating loops. I started a routine that solved the problem of labeling but I need help to develop it. (defun c:clength() (setvar "osmode" 1) (setq dst1 (getdist "\n Pick first point: ")) (initget "MM CM M") (setq s (getreal "measurement unit=1000/100/1: ")) (setq g (fix(/ dst1 s))) (setq dst1(rtos g 2 0)) (setvar "osmode" 0) (terpri) (setvar "osmode" 512) (setq currnt (getint "\n Enter circuit number: ")) (setq gh (getpoint "\nPick insertion point: ")) (setq J (getreal "\nEnter text hieght: ")) ;(setq H (atoi J)) (setq kl (rtos currnt 2 0)) (setq d (strcat (strcat "C-" kl": ") dst1 " m")) (command "text" "j" "c" gh "1" "0" d "") ) Quote
gS7 Posted January 30, 2013 Posted January 30, 2013 Check this i hope it will help u http://www.cadtutor.net/forum/showthread.php?76205-Need-Little-Help-with-my-Lisp-File/page2 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.