blagojer Posted March 12, 2010 Share Posted March 12, 2010 How can I do it? Like in AutoCAD electrical, when I drawing wire? Please see attach. Thanks Blagojer Quote Link to comment Share on other sites More sharing options...
Fire_col Posted March 12, 2010 Share Posted March 12, 2010 I think you just need to draw and arc then trim the line, that's what I would do anyway. Quote Link to comment Share on other sites More sharing options...
blagojer Posted March 12, 2010 Author Share Posted March 12, 2010 Yes, but I would like "automatic drawing"! Sometime, I have 200 lines without same distance (no copy-paste)!!! Maybe some LISP?... Quote Link to comment Share on other sites More sharing options...
ReMark Posted March 12, 2010 Share Posted March 12, 2010 You would need either a macro or a lisp routine to accomplish the task. You want to insert an arc at the intersection then break or trim away the line segment between the two endpoints of the arc. Quote Link to comment Share on other sites More sharing options...
Fire_col Posted March 12, 2010 Share Posted March 12, 2010 Would a block not suffice? Quote Link to comment Share on other sites More sharing options...
dbroada Posted March 12, 2010 Share Posted March 12, 2010 updating to electrical would be the only way to do it automatically. There are ways you can do it afterwards as Mark has said. Whenever it has been requested of me I always point out how much longer it will take, both to draw and to modify and I am usually left to stick to the company standard. Quote Link to comment Share on other sites More sharing options...
blagojer Posted March 12, 2010 Author Share Posted March 12, 2010 I cannot update to electrical, Mark has explaned what I want... Quote Link to comment Share on other sites More sharing options...
blagojer Posted March 12, 2010 Author Share Posted March 12, 2010 I find LISP, but doesn't work, I have error: no function definition: DXF (defun C:arcc ( / head hdata bulge en ed) (if (and (setq en (entsel "\nselect polyline: ")) (= (dxf 0 (setq hdata (entget (car en)))) "POLYLINE") ) (progn (entmod (subst '(70 . 1) '(70 . 0) hdata)) (setq bulge (list (cons 42 0.5))) (setq en (dxf -1 hdata)) (while (and (setq en (entnext en)) (setq ed (entget en)) (/= "SEQEND" (dxf 0 ed)) ) (setq ed (append ed bulge)) (entmod ed) ) (entupd en) ) ) (princ) ) (princ) Quote Link to comment Share on other sites More sharing options...
alanjt Posted March 12, 2010 Share Posted March 12, 2010 Yes, but I would like "automatic drawing"! Sometime, I have 200 lines without same distance (no copy-paste)!!!Maybe some LISP?... I cannot update to electrical, Mark has explaned what I want... I find LISP, but doesn't work, I have error: no function definition: DXF You can catch more flies with honey. (defun dxf (# e) (cdr (assoc # e))) Quote Link to comment Share on other sites More sharing options...
Coosbaylumber Posted March 12, 2010 Share Posted March 12, 2010 We used to use this sort of thing all the time in Civil for Autocad. What one fellow did was to create a special line type. Then as you move the line endpoint, it moves the lines and the symbol too. Most countyies and cities in California require such to be done when showing off the boundary for some parcel. The line type allowed you to use an open circle or a disc at angle points and long as you were on proper layer the wine width got set too. You may need a special linetype instead of a routine. Wm. Quote Link to comment Share on other sites More sharing options...
rkent Posted March 12, 2010 Share Posted March 12, 2010 How can I do it? Like in AutoCAD electrical, when I drawing wire? Please see attach. Thanks Blagojer This lisp file will do that after the fact, the size is controlled by ltscale. PIDcross.LSP Quote Link to comment Share on other sites More sharing options...
blagojer Posted March 15, 2010 Author Share Posted March 15, 2010 @alanjt No help with new code! I put it into firs line... But, Your lisp is very good! Thanks Quote Link to comment Share on other sites More sharing options...
Ryder76 Posted March 15, 2010 Share Posted March 15, 2010 This lisp file will do that after the fact, the size is controlled by ltscale. Excellent - been looking for this for a while. I do electrical and it will come in handy in my daily work. Thank you very much - I appreciate it. Quote Link to comment Share on other sites More sharing options...
Ryder76 Posted March 15, 2010 Share Posted March 15, 2010 BTW if I wanted an ltscale of .4072 for the arc and then have it return to ltscale of 1 how would I modify the lsp to make it do that? Quote Link to comment Share on other sites More sharing options...
rkent Posted March 15, 2010 Share Posted March 15, 2010 BTW if I wanted an ltscale of .4072 for the arc and then have it return to ltscale of 1 how would I modify the lsp to make it do that? Not entirely sure what you are asking. You want the arc to be a certain size that an ltscale of 1 doesn't give you now? The code has the arc size scaled at 0.1 * ltscale, this happens twice in the code at "(* LS 0.1)". This is really old code I obtained back in 1990 so I am sure it could be written much better today. You could change the 0.1 in the code, you could change ltscale on the fly to that amount, you could change the line in the code from (Setq LS (Getvar "LTSCALE")) to (Setq LS 0.4072) Hopefully that helps you, if not post back. Quote Link to comment Share on other sites More sharing options...
Ryder76 Posted March 16, 2010 Share Posted March 16, 2010 I don't know lisp, but after taking a look at the code, reading, searching, and trying to change things and then trial and error I gave up. Put a post in the LISP area and Lee Mac fixed me up with a new code. I needed the specific size because I am lazy and didn't want to do the ltscale command before the lisp and reset after the lisp. Anyway between you and Lee I have a lisp that makes my life simpler. I can't thank you enough. Hugs. Quote Link to comment Share on other sites More sharing options...
rkent Posted March 16, 2010 Share Posted March 16, 2010 I don't know lisp, but after taking a look at the code, reading, searching, and trying to change things and then trial and error I gave up. Put a post in the LISP area and Lee Mac fixed me up with a new code. I needed the specific size because I am lazy and didn't want to do the ltscale command before the lisp and reset after the lisp. Anyway between you and Lee I have a lisp that makes my life simpler. I can't thank you enough. Hugs. Link to the new code: http://www.cadtutor.net/forum/showthread.php?t=45820 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.