Rectangle point required in one direction at any direction
(defun c:mark_rect ( / pointlist2d e eo pts)
(defun pointlist2d (lst / ret)(while lst (setq ret (cons (list (car lst)(cadr lst)) ret) lst (cddr lst))) (reverse ret))
(cond
((and(setq e (car(entsel "\nSelect rect >" ))))
(setq
eo (vlax-ename->vla-object e)
pts (pointlist2d (vlax-get eo 'Coordinates))
)
(entmake
(list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcText")
(cons 1 "P1")
(cons 10 (nth 0 pts))
(cons 40 (getvar 'textsize))
)
)
(entmake
(list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcText")
(cons 1 "P2")
(cons 10 (nth 1 pts))
(cons 40 (getvar 'textsize))
)
)
(entmake
(list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcText")
(cons 1 "P3")
(cons 10 (nth 3 pts))
(cons 40 (getvar 'textsize))
)
)
(entmake
(list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcText")
(cons 1 "P4")
(cons 10 (nth 2 pts))
(cons 40 (getvar 'textsize))
)
)
)
(T (princ "\nNothing selected !"))
)
(princ)
)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
(defun c:mark_rect ( / pointlist2d eo pts )
(defun pointlist2d (lst / ret)(while lst (setq ret (cons (list (car lst)(cadr lst)) ret) lst (cddr lst))) (reverse ret))
(defun pick_rect ()
(setq e (car(entsel "\nSelect rectangle >")))
(if (and (not e) (= (getvar 'Errno) 7)) (pick_rect) e)
)
(setq
e (pick_rect)
eo (vlax-ename->vla-object e)
pts (pointlist2d (vlax-get eo 'Coordinates))
)
(entmake
(list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcText")
(cons 1 "P1")
(cons 10 (nth 0 pts))
(cons 40 (getvar 'textsize))
)
)
(entmake
(list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcText")
(cons 1 "P2")
(cons 10 (nth 1 pts))
(cons 40 (getvar 'textsize))
)
)
(entmake
(list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcText")
(cons 1 "P3")
(cons 10 (nth 3 pts))
(cons 40 (getvar 'textsize))
)
)
(entmake
(list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcText")
(cons 1 "P4")
(cons 10 (nth 2 pts))
(cons 40 (getvar 'textsize))
)
)
(list (nth 0 pts)(nth 1 pts)(nth 3 pts)(nth 2 pts))
)Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Sequence of rectangle points is
(list (nth 0 pts)(nth 1 pts)(nth 3 pts)(nth 2 pts))
Modify code above and you have it. I would really like to see code for this written by OP (you?)
Its really simple task and helps learning autolisp.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@avinash.patilWHS3Z wrote:
Thanks for your prompt reply,
I required all points marked as per my drawing file point location
like. please see the location or P1 , P2 , P3 , P4.
First and second code does that, second returns sequence of points in order p1 p2 p3 p4
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
A different approach, embedded into a context that will do all closed 4-vertex lightweight Polylines you choose, all at once. And you can choose them with windowing, fence, lasso, individual picks, etc., and it will "see" only the qualifying objects among the selection -- no error from picking the wrong kind of thing.
(vl-load-com)
(defun C:RCL (/ ss n pl i); = Rectangle Corner Labels
(if (setq ss (ssget '((0 . "LWPOLYLINE") (90 . 4) (-4 . "&") (70 . 1))))
(repeat (setq n (sslength ss))
(setq
pl (ssname ss (setq n (1- n)))
i 0
); setq
(foreach x '(0 1 3 2)
(command "_.text" "_mc" (vlax-curve-getPointAtParam pl x) "" ""
(strcat "P" (itoa (setq i (1+ i))))
); command
); foreach
); repeat
); if
(prin1)
)
It uses the current Text Style [assumed to not have a fixed height] and height, on the current Layer, but specifics for those could be built in.
It would even be possible to check each Polyline for whether it is, in fact, rectangular, if desired.
@avinash.patilWHS3Z wrote:
....
I need points as marked in drawing.
My routine did what was asked for in the original drawing, exactly. Please be more specific in your descriptions if the example you give is not really representative of what you want.
And mine does the Text as middle-center justified, as in your original drawing, but this latest drawing at Message 9 has them left-justified, which means the results were not done with my routine, so it probably should not have been in reply to me. What justification do you really want?
EDIT: Message 10 from @Sea-Haven links to a Swamp topic "Make a pline rectang points with start point lower left. (theswamp.org)". This further compounds the confusion about what is intended. If that is the standard, then the original drawing example is wrong. Its vertical rectangle is numbered starting from lower right. So what really is the requirement?
