Community
Try this.
I hope it covers all combination, for horizontal, vertical and inclined wall.
By mixing start and end point create opposite side.
(defun c:dd () (setq lyr (tblsearch "layer" "door")) (if (not lyr) (command "._layer" "_M" "door" "_Lt" "Continuous" "door" "")) (initget 1 "l r") (setq side (getkword "\nside l/r >")) (cond ((eq side "L") (setq pt1 (getpoint "\nselect start point left >") pt2 (getpoint "\nselect end point right >") di (distance pt1 pt2) ang1 (angle pt1 pt2) ang2 (+ ang1 (/ pi 2)) pt3 (polar pt1 ang2 di) di (distance pt1 pt2) ) (entmake (list (cons 0 "lwpolyline") (cons 8 "door") (cons 90 4) (cons 43 0.015) (cons 10 pt1) (cons 42 0) (cons 10 pt2) (cons 42 0.414214) (cons 10 pt3) (cons 42 0) (cons 10 pt1) (cons 42 0) ) ) ) ) (cond ((eq side "R") (setq pt1 (getpoint "\nselect start point right >") pt2 (getpoint "\nselect end point left >") di (distance pt1 pt2) ang1 (angle pt1 pt2) ang2 (- ang1 (/ pi 2)) pt3 (polar pt1 ang2 di) di (distance pt1 pt2) ) (entmake (list (cons 0 "lwpolyline") (cons 8 "door") (cons 90 4) (cons 43 0.015) (cons 10 pt1) (cons 42 0) (cons 10 pt3) (cons 42 0.414214) (cons 10 pt2) (cons 42 0) (cons 10 pt1) (cons 42 0) ) ) ) ) (princ) )
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Thank you @marko_ribar for fine tuning my unpolished code, written on the fly during my coffee brake.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Just a single correction (getvar "plinegen") instead of (getvar 'plinegen)
(defun c:dd ( / lyr side pt1 pt2 di ang1 ang2 pt3 )
(setq lyr (tblsearch "layer" "door"))
(if (not lyr) (command "._layer" "_M" "door" "_Lt" "Continuous" "door" ""))
(initget 1 "Left Right")
(setq side (getkword "\nSide [Left/Right] : "))
(if (eq side "Left")
(progn
(setq
pt1 (getpoint "\nPick or specify start point left >")
pt2 (getpoint "\nPick or specify end point right >")
di (distance pt1 pt2)
ang1 (angle pt1 pt2)
ang2 (+ ang1 (/ pi 2.0))
pt3 (polar pt1 ang2 di)
)
(entmake
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 8 "door")
(cons 90 3)
(cons 70 (1+ (* 128 (getvar "plinegen"))))
(cons 43 0.015)
(cons 10 pt1)
(cons 42 0.0)
(cons 10 pt2)
(cons 42 (/ (sin (/ pi 8.0)) (cos (/ pi 8.0))))
(cons 10 pt3)
(cons 42 0.0)
)
)
)
(progn
(setq
pt1 (getpoint "\nPick or specify start point right >")
pt2 (getpoint "\nPick or specify end point left >")
di (distance pt1 pt2)
ang1 (angle pt1 pt2)
ang2 (- ang1 (/ pi 2.0))
pt3 (polar pt1 ang2 di)
)
(entmake
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 8 "door")
(cons 90 3)
(cons 70 (1+ (* 128 (getvar "plinegen"))))
(cons 43 0.015)
(cons 10 pt1)
(cons 42 0.0)
(cons 10 pt3)
(cons 42 (/ (sin (/ pi 8.0)) (cos (/ pi 8.0))))
(cons 10 pt2)
(cons 42 0.0)
)
)
)
)
(princ)
)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@Anonymous wrote:Hi,
Sorry for the delay in getting back. Just wanted to try a few things out etc.
- it is only the door leaf that needs to be 'global-width' 0.015, not the arc;
- the line across the door opening should be omitted.
What should be thickness of arc. Line across the door will be fixed.
- Is there a possibility of having the 'side' determined by a mouse click rather than having to type it in? ie start-point, end-point, side.
- And then finishing off by exploding the block?
We use those two points to determine door width. Alternative would be to create functions for standard door widths, or to wait for user to enter value.
Each element will be created separately, and side determined by mouse click.
Best option.
Procedure starts at first pick point (arc origin), second pick point determines door width and alignment, and third point door side.
If needed, door element could be mirrored (vertical at midpoint between first two points, or horizontal).
Decide what would you like most.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
I have been following @marko_ribar for many years and I know that he always got right solution to any task.
This time he has created a sophisticated and dynamic code I don't have a reason to beat. Something I was thinking
about in my previous post.
Here is my simplified solution so you may choose the one that suites you most.
(defun c:dd ( / lyr side pt1 pt2 di ang1 ang2 pt3 *error* ss mid1 mid 2 flip) ;
(defun *error* ()(princ))
(setq lyr (tblsearch "layer" "door"))
(if (not lyr) (command "._layer" "_M" "door" "_Lt" "Continuous" "door" ""))
(setq
pt1 (getpoint "\nPick or specify start point > ")
pt2 (getpoint "\nPick or specify end point > ")
di (distance pt1 pt2)
ang1 (angle pt1 pt2)
ang2 (+ ang1 (/ pi 2.0))
pt3 (polar pt1 ang2 di)
ss (ssadd)
)
(entmake
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 8 "door")
(cons 90 2)
(cons 70 0)
(cons 10 pt2)
(cons 40 0.00018)
(cons 41 0.00018)
(cons 42 (/ (sin (/ pi 8.0)) (cos (/ pi 8.0))))
(cons 10 pt3)
)
)
(setq ss (ssadd (entlast) ss))
(entmake
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 8 "door")
(cons 10 pt3)
(cons 40 0.015)
(cons 41 0.015)
(cons 42 0.0)
(cons 10 pt1)
)
)
(setq ss (ssadd (entlast) ss))
(setq mid1 (mapcar '* (mapcar '+ pt1 pt2)(list 0.5 0.5)))
(setq mid2 (polar mid1 (+( angle pt1 pt2)(/ pi 2.0))100))
(initget 1 "Yes No")
(setq flip (getkword "\nFlip vertically [Yes/No] : "))
(if (eq flip "Yes")
(command "mirror" ss "" pt1 pt2 "y" )
)
(initget 1 "Yes No")
(setq flip (getkword "\nFlip horizontally [Yes/No] : "))
(if (eq flip "Yes")
(command "mirror" ss "" mid1 mid2 "y" )
)
(princ)
)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
My code creates all elements separately , don't to explode them.
(entmake
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 8 "door")
(cons 90 2)
(cons 70 0)
(cons 10 pt2)
(cons 40 0.00018) ;
(cons 41 0.00018)
(cons 42 (/ (sin (/ pi 8.0)) (cos (/ pi 8.0))))
(cons 10 pt3)
)
)
(setq ss (ssadd (entlast) ss))
(entmake
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 8 "door")
(cons 10 pt3)
(cons 40 0.015)
(cons 41 0.015)
(cons 42 0.0)
(cons 10 pt1)
)
)You just have to set line thickness by replacing values for (cons 40 0.015) (cons 41 0.015) - door leaf and (cons 40 0.00018) (cons 40 0.00018) for arc.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Forums Links
Can't find what you're looking for? Ask the community or share your knowledge.
Post to forums
