antistar Posted June 30, 2010 Share Posted June 30, 2010 I need a routine to scale the intersection of several lines. Can someone help me? Quote Link to comment Share on other sites More sharing options...
alanjt Posted June 30, 2010 Share Posted June 30, 2010 To code: Draw a line from pick point to pick point. Select all objects with ssget crossing (using two picked points) Collect coordinates using (vlax-invoke obj 'IntersectWith with each object from ssget. Draw in dimensions with collected coordinates. Quote Link to comment Share on other sites More sharing options...
antistar Posted June 30, 2010 Author Share Posted June 30, 2010 Do not really know how to do this but I will search. Thanks for the tips. Quote Link to comment Share on other sites More sharing options...
alanjt Posted June 30, 2010 Share Posted June 30, 2010 A little inspiration... Quote Link to comment Share on other sites More sharing options...
antistar Posted June 30, 2010 Author Share Posted June 30, 2010 Alan, That's exactly what I need. I will try to write a code that does this. Thank you for your attention. Quote Link to comment Share on other sites More sharing options...
alanjt Posted June 30, 2010 Share Posted June 30, 2010 Shout if you need any help. Quote Link to comment Share on other sites More sharing options...
raed_jammal Posted June 30, 2010 Share Posted June 30, 2010 hi guys did u write the code for it ? i wish to have the code if u did it thanks Quote Link to comment Share on other sites More sharing options...
alanjt Posted June 30, 2010 Share Posted June 30, 2010 I did, but I'm trying to give him the opportunity to code it himself. I basically gave the procedure I used. Quote Link to comment Share on other sites More sharing options...
Nardino Posted June 30, 2010 Share Posted June 30, 2010 I could use some like this too. Looks great Quote Link to comment Share on other sites More sharing options...
antistar Posted June 30, 2010 Author Share Posted June 30, 2010 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. Quote Link to comment Share on other sites More sharing options...
MSasu Posted July 1, 2010 Share Posted July 1, 2010 The QDIM command will do (quite) the same. Regards, Quote Link to comment Share on other sites More sharing options...
antistar Posted July 1, 2010 Author Share Posted July 1, 2010 MSASU, I know QDIM and unfortunately he does not like the example posted by Alan. QDIM creates unnecessary extension lines. Quote Link to comment Share on other sites More sharing options...
MSasu Posted July 1, 2010 Share Posted July 1, 2010 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, Quote Link to comment Share on other sites More sharing options...
alanjt Posted July 1, 2010 Share Posted July 1, 2010 MSASU,I know QDIM and unfortunately he does not like the example posted by Alan. Who's 'he'? Quote Link to comment Share on other sites More sharing options...
antistar Posted July 1, 2010 Author Share Posted July 1, 2010 Sorry: QDIM command. Quote Link to comment Share on other sites More sharing options...
alanjt Posted July 1, 2010 Share Posted July 1, 2010 Sorry: QDIM command. Ahh, OK. Quote Link to comment Share on other sites More sharing options...
raed_jammal Posted July 1, 2010 Share Posted July 1, 2010 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 Quote Link to comment Share on other sites More sharing options...
Tharwat Posted July 1, 2010 Share Posted July 1, 2010 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 Quote Link to comment Share on other sites More sharing options...
alanjt Posted July 1, 2010 Share Posted July 1, 2010 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. Quote Link to comment Share on other sites More sharing options...
Tharwat Posted July 2, 2010 Share Posted July 2, 2010 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.