VisDak Posted June 6, 2010 Share Posted June 6, 2010 Hi All, Good day, is there some of route that will off on that selected a center line and offset side by side and atomatically divided according to distance to be offset to be exact the distance of offset side by side, or possible create a centre line then offset a a distance to be offset side by side exact distance, Please see attached image for your reference, Thanks in advance, Quote Link to comment Share on other sites More sharing options...
Tharwat Posted June 6, 2010 Share Posted June 6, 2010 Hi, most of your questions are not clear, So could please direct your question to the idea that you wanted? I would be more than happy to help if I could Tharwat Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted June 6, 2010 Share Posted June 6, 2010 I've created many routines that will do this - just search the forum. Quote Link to comment Share on other sites More sharing options...
Tharwat Posted June 6, 2010 Share Posted June 6, 2010 Hello Visdak. I do not know if I got you right so this might be what you look for; Command Line:copy; select objects; specify the base point: mtp specify end point of first line and after that second point of line. I hope that what you wanted. Tharwat Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted June 6, 2010 Share Posted June 6, 2010 Oh, look what the search button found... http://www.cadtutor.net/forum/showpost.php?p=329318&postcount=3 Quote Link to comment Share on other sites More sharing options...
Tharwat Posted June 6, 2010 Share Posted June 6, 2010 Hello, Nice kick Mr.Lee Mac.. Is it activeX the language that you have used with this lisp file (doff.lsp) ? I am proud of your programming lisps. Have a good day. Tharwat Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted June 6, 2010 Share Posted June 6, 2010 Yes, Visual LISP which uses ActiveX Quote Link to comment Share on other sites More sharing options...
VisDak Posted June 6, 2010 Author Share Posted June 6, 2010 thanks Lee, Nice route, sorry for my explainations not clear, Lee is this possible that that the specific distance offset must be on both end line that offset, i mean the offset distance must be not specified on centre line, distance must be divided both side for example : select line, specify distance offset " 100 ", (the selected line must offset on "50" both side) must be divided to 2 equal the distance so that both offseted line are distance to "100" Thanks again, Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted June 6, 2010 Share Posted June 6, 2010 1) Pick up calculator 2) Enter Offset Distance 3) Divide Offset Distance by 2. 4) Enter result. Simples. Quote Link to comment Share on other sites More sharing options...
VisDak Posted June 6, 2010 Author Share Posted June 6, 2010 LOL nice solution anyway thanks Lee Quote Link to comment Share on other sites More sharing options...
VisDak Posted June 8, 2010 Author Share Posted June 8, 2010 Oh, look what the search button found... http://www.cadtutor.net/forum/showpost.php?p=329318&postcount=3 Hi Lee Thanks for this link, I have modified this code to fits my need, (defun c:dOff ( / *error* ofa undo doc ss ) (vl-load-com) (defun *error* ( msg ) (and undo (vla-EndUndomark doc)) (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*") (princ (strcat "\n** Error: " msg " **"))) (princ) ) (if (and (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*LINE"))) (setq of (getdist "\nSpecify Offset Distance: ")) (setq ofa (/ of 2))) (progn (setq undo (not (vla-StartUndomark (setq doc (vla-get-ActiveDocument (vlax-get-acad-object) ) ) ) ) ) (vlax-for obj (setq ss (vla-get-ActiveSelectionSet doc)) (mapcar (function (lambda ( o ) (vl-catch-all-apply (function vla-offset) (list obj o) ) ) ) (list ofa (- ofa)) ) ) (vla-delete ss) (setq undo (vla-EndUndoMark doc)) ) ) (princ) Thanks Again 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.