7th Nov 2009, 06:55 pm
|
#21 |
|
Forum Newbie
Using: AutoCAD 2010 Join Date: Nov 2009
Posts: 8
|
Thanks, its interesting to see all the different approaches to solve a problem.
I modified Lee Mac routine ;; Open Polylines at Selected Edge. To Change Selected Edge to Arc, I changed the (vla-put-closed Obj :vlax-false) to (vla-setbulge obj 3 1). |
|
|
|
9th Nov 2009, 08:02 pm
|
#22 |
|
Forum Newbie
Using: AutoCAD 2010 Join Date: Nov 2009
Posts: 8
|
Gile
I finally had time to put yours to the test, you were right it is really simple.
;Select pline segment to change to arc (defun c:arcpl (/ pl pt pa) (setq pl (entsel "\nSelect the pline segment: ")) (setq pt (trans (osnap (cadr pl) "_nea") 1 0)) (setq pl (car pl)) (setq pa (fix (vlax-curve-getParamAtPoint pl pt))) (vla-setbulge (vlax-ename->vla-object pl) pa 1.0) ) Thanks again! |
|
|
|
|
9th Nov 2009, 08:26 pm
|
#23 |
|
Forum Newbie
Using: AutoCAD 2010 Join Date: Nov 2009
Posts: 8
|
More Polyline Tricks?
How would I go about creating a lisp routine to modify a closed polyline recatangle with .6" radius bulge on oposing sides at one end or both ends of a rectangle. The rectangle would look like a dog bone, see the attached jpg.
|
|
|
|
 |
«
Previous Thread
|
Next Thread
»
| Thread Tools | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| VBA Create a polyline through overall perimeter of selected objects | Andresig | AutoLISP, VBA, the CUI & Customisation | 1 | 22nd Jul 2009 04:51 pm |
| edge settings | manchest | AutoCAD 3D Modelling & Rendering | 1 | 23rd May 2009 03:06 pm |
| Selected lines not appearing on screen as being selected. | mrjangles | AutoCAD Drawing Management & Output | 7 | 17th Feb 2009 05:42 pm |
| Can't chamfer edge... | mdbdesign | AutoCAD 3D Modelling & Rendering | 1 | 12th Aug 2008 10:44 pm |
| Help w/ Ogee edge | controversia | AutoCAD 3D Modelling & Rendering | 4 | 7th May 2008 04:14 am |
All times are GMT +1. The time now is 06:28 am.
