Lisp to create Point with name Labeling
Did you attach the wrong file? I don't see any relationship between your image and what the file does. At the least, if I give it a starting number of 0, it doesn't put 0 at every location, but increments the numbers upward, so it won't make what you have in your image. What would be the purpose of having them all be the same, when you therefore can't distinguish one point from another by its nearby Text?
And the code has some strange things in it, like asking you to supply a file name twice when it could ask only once, and the use of (* 1 pi) when plain pi would do [why multiply anything by 1?]. And something's wrong with the chart-making [not included in the image] -- it seems to do the first point's worth by itself, but not subsequent ones without some encouragement, by hitting Enter/space a few times and ignoring some error messages. And that gets around to only the Text elements, but doesn't do the linework that the code looks like it's intended to draw.
Finally, I would recommend not using "I" as a command name, since it is the default command alias for INSERT.
More explanation, and a sample drawing file complete with all that the routine does, would help.
Regards @m.galib
It is not necessary to apply lisp, the Acad "FIND" command can do it.
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@m.galib some like it?
(defun run ()
(setq pll (getstring t "\n get name of new file (name.ext) :")) ; t so you can put spaces
(setq pl (open pll "w"))
;(setq e (getstring "\nget no. of first Point :"))
;(setq a (atoi e))
(setq a "GRB")
(setq osmode (getvar 'osmode))
(setvar 'osmode 512)
(while (setq p (getpoint "\nselect point :"))
;;; (setq v1 (strcat "\n " (itoa a) " "))
(setq v1 (strcat "\n " a " "))
(setq d (polar p (/ (* 1 pi) 2) 0.5))
(command "layer" "m" "number" "c" "3" "" "")
(command "text" "m" d 1.0 0.0 a)
(setq num (entlast))
(command "change" num "" layer "" number "")
(command "layer" "m" "point" "c" "1" "" "")
(command "point" p)
(setq pt (entlast))
(command "change" pt "" layer "" point "")
(princ v1 pl)
(setq x (car p))
(setq x (rtos x 2 3))
(setq x (strcat x " "))
(setq v2 x)
(princ v2 pl)
(setq y (cadr p))
(setq y (rtos y 2 3))
(setq y (strcat y " "))
(setq v3 y)
(princ v3 pl)
;;; (setq a (+ a 1))
)
(command "layer" "m" "txt" "c" "5" "" "")
(close pl)
(redraw)
(princ)
)
; to get what is at pll
(startapp "notepad" pll)
;;
(defun c:pt+lb ()
(run)
;(setq fil (getstring "\nget name of the file (name.ext) :"))
(setq fil pll); you just have the file.
(setq p1 (getpoint "select insertion point :"))
(setq p2 (polar p1 0.0 30.0))
(setq p3 (polar p1 0.0 100.0))
(setq p4 (polar p1 (/ (* -1 pi) 2) 20.0))
(setq p5 (polar p4 0.0 30.0))
(setq p6 (polar p4 0.0 65.0))
(setq p7 (polar p4 0.0 100.0))
(setq p8 (polar p2 (/ (* -1 pi) 2) 10.0))
(setq p9 (polar p8 0.0 35.0))
(setq p10 (polar p8 0.0 70.0))
(setq p11 (polar p8 (* -1 pi) 15.0))
(setq p12 (polar p8 (/ pi 2) 5.0))
(setq p13 (polar p8 (/ (* -1 pi) 2) 5.0))
(setq p14 (polar p12 0.0 35.0))
(setq p15 (polar p13 0.0 17.5))
(setq p16 (polar p13 0.0 52.5))
(setq p1- (polar p1 (/ (* -1 pi) 2) 2000000000.0))
(command "text" "m" p11 3.0 0.0 "POINT NO.")
(command "text" "m" p14 3.0 0.0 "COORDINATES")
(command "text" "m" p15 3.0 0.0 "X")
(command "text" "m" p16 3.0 0.0 "Y")
;new lines
(setq osmode (getvar 'osmode))
(setvar 'osmode 0)
;new
(command "line" p1 p4 "")
(setq L14 (entlast))
(command "line" p2 p8 p5 "")
(setq L285 (entlast))
(command "line" p9 p6 "")
(setq L96 (entlast))
(command "line" p3 p10 p7 "")
(setq L3107 (entlast))
(command "line" p1 p2 p3 "")
(command "line" p8 p9 p10 "")
(command "pline" p4 p5 p6 p7 "")
(setq L4567 (entlast))
(setq fill (open fil "r"))
(read-line fill)
(setq new ())
(setq j 0.0)
(setq p44 p4)
(while (setq S (read-line fill))
(setq pt (polar p44 (/ (* -1 pi) 2) (+ 5 j)))
(setq pt1 (polar pt 0.0 15.0))
(setq pt2 (polar pt 0.0 47.5))
(setq pt3 (polar pt 0.0 82.5))
(setq t1 (substr S 1 4))
(setq t2 (substr S 5 16))
(setq t3 (substr S 21 32))
(command "text" "m" pt1 3.0 0.0 t1)
(command "text" "m" pt2 3.0 0.0 t2)
(command "text" "m" pt3 3.0 0.0 t3)
(setq p4 (polar p4 (/ (* -1 pi) 2) 10.0))
(setq p5 (polar p5 (/ (* -1 pi) 2) 10.0))
(setq p6 (polar p6 (/ (* -1 pi) 2) 10.0))
(setq p7 (polar p7 (/ (* -1 pi) 2) 10.0))
(command "offset" (+ j 10.0) (list L4567 p4) p1- "")
(setq new (entlast))
(command "extend" new "" (list L14 P4) "")
(command "extend" new "" (list L285 p5) "")
(command "extend" new "" (list L96 p6) "")
(command "extend" new "" (list L3107 p7) "")
(setq j (+ j 10.0))
)
(close fill); to close fill
)
