I am a beginner in lisp. I have a routine task like these.
1. insert circle block number begin with some text (example 1.1 , a.1 , 2-2 ...) and at the 1st point.
2. insert 2nd block number 2 and with line or polylint to connect it.
3. insert 3nd block with incremental number (3) and and draw the line to connect it.
... repeat it until the end point
Please, guys. Help me.
You'd probably get more responses if you posted your drawing. This is very easy to do, here's a simple example with lines and text.
(defun c:foo (/ n p1 p2)
(defun _txt (pt txt /)
(entmake (list '(0 . "TEXT")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "text")
'(100 . "AcDbText")
(cons 10 pt)
'(40 . 1.)
(cons 1 txt)
'(50 . 0.)
'(41 . 1.)
'(51 . 0.)
'(71 . 0)
'(72 . 1)
(cons 11 pt)
'(100 . "AcDbText")
'(73 . 2)
)
)
)
(setq n 0)
(while (and (or p1 (setq p1 (getpoint "\nSpecify start point: ")))
(setq p2 (getpoint p1 "\nSpecify next point: "))
)
(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))
(_txt p1 (itoa (setq n (1+ n))))
(setq p1 p2)
)
(_txt p1 (itoa (setq n (1+ n))))
(princ)
)
