Draw section line and insert Section Mark

[Guest]

Hi.I use 4 attribute blocks as section arrows. Is any way to :

 

1) Draw the section line

2) Pick the direction of the section

3) and insert the correct arrow blocks "looking" to the picking direction

 

I attach the clocks i use

 

Thanks

eCwsy203.dwg eCwsy204.dwg eCwsy205.dwg eCwsy206.dwg test.bmp

[mhupp]

Id make a dynamic block. then the simple lisp would be to

 

• pick two points to set the length and angle.
• insert block
• ask if its the right direction or flip

 

http://www.lee-mac.com/dynamicblockfunctions.html#toggleflipstate

Edited February 11, 2023 by mhupp

[Guest]

Hi  mhupp. Thanks for the reply, But I am not searching for a dynamic block because I don't use them. Look the *.dwg file.

 

Thanks

TEST.dwg

[devitg]

28 minutes ago, prodromosm said:

Hi  mhupp. Thanks for the reply, But I am not searching for a dynamic block because I don't use them. Look the *.dwg file.

 

Thanks

TEST.dwg 359.3 kB · 0 downloads

Please upload the test dwg , whit the 4 blocks  203 204  205 and 206 , inserted as you want they to be 

 

[Guest]

Hi devitg. I upload the test.dwg with all blocks.

 

Thanks

TEST.dwg

[Guest]

Any options devitg ?

 

Thanks

[BIGAL]

You have asked for lots of freebies you should know by now how to get an angle of 2 points or an included angle of 3 points then use a cond to select the correct block.

 

Edited March 5, 2023 by BIGAL

[Guest]

Hi Bigal. I can go so far

 

1) Pick the first point of the section
2) Pick the second point of the section
3) Pick a point for the direction of the section
4) Give the name for the section (A,B,A1, etc)
5) Draw the section line with marks like the example

 

(defun c:test ()
(setq pt1 (getpoint "\nSpecify first point: "))
(setq pt2 (getpoint p1 "\nSpecify second point:"))
(command "line" pt1 pt2 "")
;How to insert the blocks at the end of the line ??
(setq pt3 (getpoint "\nSpecify direction: "))
(setq ang1 (angle pt1 pt2))
);end defun

 

Thanks

Edited March 5, 2023 by prodromosm

[BIGAL]

Thought that you were leaving ?