Simple Lisp for Cross lines between rectangle.
Bonjour @zaid.k3112
First I would like to know if you want to learn AutoLisp,
or if you want someone to write you a program to do this work.
If you are learning, give us the code already written, and we will correct it to make it work properly.
If you want a program from scratch, thank you for giving a specific example of what needs to be done, and from which it needs to be done.
It’s a matter of respect for people who want to help others.
Either way, we should find a solution.
Amicalement
@zaid.k3112 wrote:
Hello, I need a simple lisp which lets me select a 2 points i.e. a rectangle in which it will make cross lines in a desired layer with line type.
If "a rectangle" means a closed Polyline such as is made by the RECTANG command, then you don't need to select 2 points, but a routine would be able to find the points from just a single pick of the Polyline [see Message 5]. And that could work whether the rectangle is orthogonally oriented or at any angle, or just a quadrilateral [not necessarily rectangular].
If "a rectangle" might be something else [e.g. 4 Lines, perhaps not even ending at the corners but, for example, in a space within a grid of Lines or Xlines, etc.], and if they would always be orthogonal, that would also not be difficult if you are sure to select two diagonally opposite corners [a Line between the 2 points, and one from X-of-one-and-Y-of-the-other to Y-of-one-and-X-of-the-other]. But that won't work if the rectangle or grid is not orthogonally oriented.
So what's the expected situation?
There are routines out there, such as >this< that includes the drawing of the rectangle as a Polyline, and others on the same Topic that use Lines, from which you can take the diagonal-Line-drawing parts only.
Here's another way to draw the Lines, given that p1 and p2 are established:
(command "_.line" p1 p2 "" "_.line" ".x" p1 p2 ".y" p1 p2 "")
@zaid.k3112 wrote:
Hello, I need a simple lisp which lets me select a 2 points i.e. a rectangle in which it will make cross lines ....
How about one pick inside any four-sided closed area [rather than two picks at opposite corners], and the ability to do that in as many of them as you want in one running of the command? In simplest terms:
(defun C:Xit (/ pt bnd)
(command "_.layer" "_thaw" "YourLayer" "_make" "YourLayer" "_ltype" "YourLinetype" "" "")
(while (setq pt (getpoint "\nPick inside four-sided area: "))
(command "_.boundary" pt "")
(setq bnd (entlast))
(command
"_.line" (vlax-curve-getPointAtParam bnd 0) (vlax-curve-getPointAtParam bnd 2) ""
"_.line" (vlax-curve-getPointAtParam bnd 1) (vlax-curve-getPointAtParam bnd 3) ""
)
(entdel bnd)
); while
(command "_.layerp")
(princ)
)
Edit the "YourLayer" [twice] and "YourLinetype" names as desired. [One advantage of using a Layer command is that if the linetype is in the acad.lin / acadiso.lin file, it is not necessary for it to be already loaded in the drawing -- the Layer command will find it.]
It's up to you to pick only within the right kind of bounded area, but it could be expanded to verify certain things before trying to draw the Lines [e.g. success in the BOUNDARY command, four sides, all-straight-edges if you like, etc.).
It works in any shape of quadrilateral area, even if non-rectangular or non-orthogonal [either of which a MIRROR-based command or a two-points approach would get wrong].
@rbischoffatsr wrote:
Draws single polyline rectangle with X by picking two points.
....
(command ".PLINE" P1 P2 P3 P4 P2 P3 P1 P4 "")
....
[That really doesn't do what they asked for, namely with the X of a different layer/linetype than the perimeter -- see the wording of Message 1 and the sample drawing at Message 9.]
@john.uhden FWIW .. 😀
The 'dummy' command' and the setvars are not useful. Even more so when command calls are not used and you're not resetting it to the original value.
