Insert Block at Intersection

[javid]

Hi Friends,

Can anybody help me to find a lisp routin that can insert a block atomate in to any intersections i have in my drawing?

please help me to find.

Thanks in advance for your kindness.

Sincerely Yours,

Javid.

[ReMark]

javid: This thread is in regard to take offs for pipe fittings.

 

There are custom lisp routines that will assist you with the procedure. I think Lee Mac may have written one. I'd suggest you conduct a search for such a routine.

[javid]

Ok My Friend and Thanks for your reply to my request.

But as it is not realy easy to find it in this forum, Would you please help me to find it?

I will be very grateful for your help.

Thanks in advance.

[ReMark]

javid: Try Lee Mac's website, the CADforum, The Swamp or over at Cadalyst magazine.

[javid]

Thanks Dear Mr. ReMark,

But I did not find any help in his website yet.

[ReMark]

Lee Mac's Point Manager can work with blocks.

 

http://www.lee-mac.com/ptmanager.html

 

Or see lisp routine at link below posted by Scott Bolton.

 

http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Insert-block-at-intersection/td-p/3067930

 

In the future might I suggest you start a new thread for questions that do not relate to the title of a posted thread? Makes things easier to follow and causes less confusion. Thank you.

 

One more for creating points or blocks at intersections.

 

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=5686

 

All you have to do is look.

[javid]

Thanks Again Dear ReMark,

It is very useful Lisp routine, but i need it automaticaly find each Intersection cordinates in my drawing and then insert my block on each one.

this routine can read a text file containing the x,y,z cordinates and insert a block in to any of those cordinates...

It is not very easy when we have handreds of points in drawing and each time to find all the intersection x,y,z and write them in a text file for use them in this way...

[ReMark]

I provided you with three possible solutions. If the first one does not meet your needs then move on to the next one.

[Lee Mac]

Try the attached simple program.

InsertatIntersections.lsp

Edited January 26, 2013 by Lee Mac

[BIGAL]

Similar theme architects like to show tics on hand drawn plans where they have traced over their original pencil sketch with a thicker pen so this adds the ticks to the ends of lines. Ps this code was created in 1994!

 

; draw architectural tic marker
;pick layer required  
(setvar "cmdecho" 0)
(setq exlay (getvar "clayer"))

(setq obj nil)
(while (= obj nil)
 (setq obj (entsel "\n Pick any object on the required layer :"))
)
(setq tic_len (getreal "\nEnter tick size mm <2> "))
(if (= tic_len nil)
(setq tic_len (* 2 setsc))
(setq tic_len (* tic_len setsc))
)
(setq player (cdr (assoc 8 (entget (car obj)))))  
(princ "\n   Object is on the layer:  ")
(princ player)  
(princ "\n ")  
; Selection set to measure
 (while (not (setq ss (ssget))))     
;; For each entity in the selection set, check if it is an entity that can
;; be used.
;now pick multiple lines etc
(setvar "clayer" tics)
(while (setq en (ssname ss 0))
; Entity type
    (setq entyp (cdr (assoc 0 (entget en)))) 
;layer type
    (setq aclayer (cdr (assoc 8 (entget en))))
   (if (and (= entyp "LINE") (= player aclayer))
   (progn
   (setq p1 (cdr (assoc 10 (entget en))))
   (setq p2 (cdr (assoc 11 (entget en))))
   (setq ang (angle p1 p2))
   (setq p3 (polar p1 (- ang pi) tic_len))
   (setq p4 (polar p2 ang tic_len))
   (command "line" p1 p3 "")   
   (command "line" p2 p4 "")   
   )                         
   )                              
; Delete each measured entity from set
    (ssdel en ss)
;end while
)

(setq p1 nil
     p2 nil
     p3 nil
     p4 nil
     tic_len  nil
     ss nil
     en nil
     )
(setvar "clayer" exlay)
(princ)

[javid]

Dear Lee Mac,

Many Thanks for your regardds to my request.

i tried to use this lisp routin, but it seems somthing is not work!

everytime i want to use this routin i got an error message like this:

Error: too few arguments

would you please help me again to solv this problem?

Thanks again

Best regards,

Javid

Edited January 26, 2013 by javid

[javid]

Thank you Dear ReMark,I find it And Its Working:)

[Lee Mac]

i tried to use this lisp routin, but it seems somthing is not work!

everytime i want to use this routin i got an error message like this:

Error: too few arguments

 

The program works fine on my system.

Anyone else having problems?

[stevesfr]

The program works fine on my system.

Anyone else having problems?

 

Hi my friend, program does not work for me either, but I am using vanilla AC2008 .

"browse" select, does put selected block into drawing definition, but not into model space.

invoking IB, does nothing at all.

HTH

Steve

[Lee Mac]

Apologies, I was testing an earlier version of the code - I have updated the code here to correct this error.

 

Cheers,

 

Lee

[javid]

:DDear Lee Mac, Thanks a lot,

It's working perfect and it was very useful for me.

So many Thanks dear friend, you make me happy.

Have a good time my friend.

[Lee Mac]

Excellent to hear javid, you're welcome.

[javid]

Dear Lee Mac,

Why Every drawing that I recently opened, an acad.lsp file is created automatically in its drawing folder?

Can you help me to find the reason please?

And finally how to stop it?

I don't know am I ask my question in a right popst or not please help me if I doing wrong:oops:

Thanks in advanced.

This acad.lsp file always looks like this:

 

BM5 959356,322 416084,076 133,985

1 958948,718 416047,502 134,325

2 959153,108 416019,028 134,554 GALP5

3 959139,028 416017,803 134,539 GALP5

4 959158,628 415956,825 134,295 GALP5

5 959144,059 415955,583 134,241 GALP5

6 959167,06 415972,893 134,563 GALP6

7 959180,92 415974,036 134,558 GALP6

8 959162,942 416019,783 134,569 GALP6

BM10 959145,965 416016,701 134,58 GALP6

1 959158,883 416014,452 134,579 TAN

2 959157,982 416014,375 134,571 TAN

3 959158,069 416013,392 134,565 TAN

4 959159,013 416013,499 134,577 TAN

5 959159,583 416006,931 134,561 TAN

6 959158,631 416006,89 134,584 TAN

7 959158,709 416005,938 134,577 TAN

8 959159,662 416005,99 134,571 TAN

9 959160,729 415993,151 134,564 TAN

10 959159,783 415993,06 134,561 TAN

11 959159,896 415992,127 134,562 TAN

Edited February 11, 2013 by javid
Adding som more information about the acad.lsp file

[Lee Mac]

Sounds like you have an 'AutoCAD virus' - but don't worry, its relatively easy to fix.

 

See these threads:

http://www.cadtutor.net/forum/showthread.php?70760&p=484221&viewfull=1#post484221

http://www.cadtutor.net/forum/showthread.php?58117