Dimension intersection

[antistar]

I need a routine to scale the intersection of several lines.

Can someone help me?

[alanjt]

To code:

1. Draw a line from pick point to pick point.
   
2. Select all objects with ssget crossing (using two picked points)
   
3. Collect coordinates using (vlax-invoke obj 'IntersectWith with each object from ssget.
   
4. Draw in dimensions with collected coordinates.

[antistar]

Do not really know how to do this but I will search.

Thanks for the tips.

[alanjt]

A little inspiration...

[antistar]

Alan,

That's exactly what I need.

I will try to write a code that does this.

Thank you for your attention.

[alanjt]

Shout if you need any help.

[raed_jammal]

hi guys

did u write the code for it ?

i wish to have the code if u did it

thanks

[alanjt]

I did, but I'm trying to give him the opportunity to code it himself. I basically gave the procedure I used.

[Nardino]

I could use some like this too. Looks great

[antistar]

I'm a beginner and do not know how to work with Visual lisp.

If anyone has some code that does what I ask grateful.

[MSasu]

The QDIM command will do (quite) the same.

 

Regards,

[antistar]

MSASU,

I know QDIM and unfortunately he does not like the example posted by Alan.

QDIM creates unnecessary extension lines.

[MSasu]

For sure it will not work on slope, only orthogonal. But you may choose the location of dimension lines and extension lines can be disabled.

 

Regards,

[alanjt]

MSASU,

I know QDIM and unfortunately he does not like the example posted by Alan.

 

Who's 'he'?

[antistar]

Sorry: QDIM command.

[alanjt]

Sorry: QDIM command.

Ahh, OK.

[raed_jammal]

I did, but I'm trying to give him the opportunity to code it himself. I basically gave the procedure I used.

 

ok , that so cool ALAN

but really i wan it cuz i face problem from this ,,, am not coder

i hope u gave it to us ,,, i really sufer from the dimensions

[Tharwat]

To code:

Collect coordinates using (vlax-invoke obj 'IntersectWith with each object from ssget.

 

Hello Mr.Alan

 

Would you give me the complete code of the above mentioned

code plaease ...... ???

 

Is this the following code has somehow the same example ..???

(defun c:ww (/ ent obj lay ltype col)
 (vl-load-com)
 (if (setq ent(entsel"\nSelect an entity for inspection:"))
   (progn
     (setq obj(vlax-ename->vla-object (car ent)))
     (setq lay(vla-get-layer obj)
    ltype(vla-get-linetype obj)
    cor (vla-get-color obj))))
 (foreach p(list lay ltype cor)
   (princ"\n -->")
   (princ p)
       ))

 

Many Thanks

Tharwat

[alanjt]

Hello Mr.Alan

 

Would you give me the complete code of the above mentioned

code plaease ...... ???

 

Is this the following code has somehow the same example ..???

(defun c:ww (/ ent obj lay ltype col)
 (vl-load-com)
 (if (setq ent(entsel"\nSelect an entity for inspection:"))
   (progn
     (setq obj(vlax-ename->vla-object (car ent)))
     (setq lay(vla-get-layer obj)
       ltype(vla-get-linetype obj)
       cor (vla-get-color obj))))
 (foreach p(list lay ltype cor)
   (princ"\n -->")
   (princ p)
       ))

Many Thanks

Tharwat

The above code just displays the layer, linetype and color of selected object.

[Tharwat]

Hello Mr. Alanjt

 

Your way of giving the hint to something is really genius. And the answer to all members in this thread was already given by someone and somwhere and I also did not notice that.

 

But after deep investigation on the matter , I found it in front of my

eyes,, unfortunately.....

 

So I am so proud to be a member of this Genius Forum.

 

 

Tharwat