SKlLL to Offsets lines and arcs by a specified distance,

Question

Hi Bro, 
 would you help to provide the skill which can offsets lines and arcs by a specified distance ,like the following picture show, （the original command offset copy is not good for any angle copy , only support X or Y direction offset copy） 
 thanks in advanced!

Hoangkhoipcb · Accepted Answer

Hi Xiaome8, you can refer this code. axlCmdRegister ( "offset_line" `offset_line ) ( defun offset_line ( ) axlVisibleLayer ( "anti etch/all" , t ) axlClearSelSet () axlSetFindFilter ( ? enabled '(noall CLINES NAMEFORM) ? onButtons '(noall ALL)) axlSingleSelectPoint () cline = car ( axlGetSelSet ()) axlClearSelSet () if ( cline != nil then pick_airgap = axlEnterPoint () if (pick_airgap != nil then airgap = axlAirGap (cline pick_airgap nil 'anyLayer ) if (airgap > 0 then segs = cline -> segments st_end_list = segs ~> startEnd st_seg = car (segs) first_seg_point = car (st_seg -> startEnd) tmp = setof ( e st_end_list e != st_seg -> startEnd && member (first_seg_point e ) != nil ) if (tmp != nil then first_seg_point = cadr (st_seg -> startEnd)) last_seg = lastelem (segs) last_seg_point = car (last_seg -> startEnd) tmp = setof ( e st_end_list e != last_seg -> startEnd && member (last_seg_point e ) != nil ) if (tmp != nil then last_seg_point = cadr (last_seg -> startEnd)) cline_poly = axlPolyFromDB (cline ? endCapType 'ROUND ) if ( length (cline_poly) > 1 then cline_poly = car ( axlPolyOperation ( car (cline_poly) cdr (cline_poly) 'OR )) ) exp_poly = car ( axlPolyExpand (cline_poly airgap 'NONE )) shape = car ( axlDBCreateShape (exp_poly t "anti etch/all" )) rpath = axlDB2Path (shape) new_cline = car ( axlDBCreatePath (rpath cline -> layer nil ) ) seg_width = car (cline -> segments) -> width axlChangeWidth ( car (new_cline), car (cline -> segments) -> width ) axlDeleteObject (shape) new_cline = car (new_cline) tmp_list = nil foreach (seg new_cline -> segments if (seg -> xy != nil then if ( axlDistance (seg -> xy first_seg_point) <= seg_width || axlDistance (seg -> xy last_seg_point) <= seg_width then axlDeleteObject (seg) else tmp_list = cons (seg -> parent tmp_list) ) ) ) axlClearSelSet () axlAddSelectPoly( exp_poly t ) clines = setof ( e axlGetSelSet () e != cline ) if (tmp_list != nil then clines = setof ( e clines member ( e tmp_list) != nil ) ) foreach (item clines cline_poly = axlPolyFromDB (item ? endCapType 'NONE ) if ( length (cline_poly) > 1 then cline_poly = car ( axlPolyOperation ( car (cline_poly) cdr (cline_poly) 'OR )) ) exp_poly = car ( axlPolyExpand (cline_poly seg_width 'NONE )) if ( ! axlGeoPointInShape (pick_airgap exp_poly nil ) then axlDeleteObject (item) ) ) axlShell ( "offset_line" ) ) ) ) ) Regards, HoangKhoi.

Hoangkhoipcb · Answer

Hi Xiaome8, Here your the code: ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ axlCmdRegister("offset_line" `offset_line) offset_value_s = "" (defun offset_line () offset_value = axlUIPrompt( "Enter offset value:" offset_value_s) if(offset_value != nil && atof(offset_value) > 0.0 then offset_value_s = offset_value axlClearSelSet() axlSetFindFilter(?enabled '(noall CLINES NAMEFORM) ?onButtons '(noall ALL)) axlSingleSelectPoint() cline = car(axlGetSelSet()) axlClearSelSet() if( cline != nil then pick_airgap = axlEnterPoint() if(pick_airgap != nil then _airgap = axlAirGap(cline pick_airgap nil 'enhanced) airgap = axlAirGap(cline pick_airgap nil 'anyLayer) if(_airgap != nil && _airgap->airgap > 0.0 then ol = axlGeoCircleLineInt2(_airgap->location1 _airgap->location2 _airgap->location1 atof(offset_value)) dis1 = axlDistance(_airgap->location2 car(ol)) dis2 = axlDistance(_airgap->location2 cadr(ol)) pick_airgap = car(ol) if(dis2 < dis1 then pick_airgap = cadr(ol) ) segs = cline->segments st_end_list = segs~>startEnd st_seg = car(segs) first_seg_point = car(st_seg->startEnd) tmp = setof(e st_end_list e != st_seg->startEnd && member(first_seg_point e) != nil) if(tmp != nil then first_seg_point = cadr(st_seg->startEnd)) last_seg = lastelem(segs) last_seg_point = car(last_seg->startEnd) tmp = setof(e st_end_list e != last_seg->startEnd && member(last_seg_point e) != nil) if(tmp != nil then last_seg_point = cadr(last_seg->startEnd)) cline_poly = axlPolyFromDB(cline ?endCapType 'ROUND ) if(length(cline_poly)>1 then cline_poly = car(axlPolyOperation(car(cline_poly) cdr(cline_poly) 'OR)) ) exp_poly = car(axlPolyExpand(cline_poly atof(offset_value) + car(cline->segments)->width*0.5 'NONE)) axlClearSelSet() axlAddSelectPoly(exp_poly t) cline_displays = axlGetSelSet() axlDBAddProp(cline_displays list( "FIXED" t)) axlDBRefreshId(nil) shape = car(axlDBCreateShape(exp_poly t "anti etch/all")) rpath = axlDB2Path(shape) new_cline = car(axlDBCreatePath(rpath cline->layer nil ) ) seg_width = car(cline->segments)->width axlChangeWidth(car(new_cline), car(cline->segments)->width ) axlDeleteObject(shape) new_cline = car(new_cline) foreach(seg new_cline->segments if(seg->xy != nil then if(axlDistance(seg->xy first_seg_point) <= seg_width || axlDistance(seg->xy last_seg_point)<= seg_width then axlDeleteObject(seg) ) ) ) axlClearSelSet() axlAddSelectPoly(exp_poly t) clines = axlGetSelSet() foreach(item clines cline_poly = axlPolyFromDB(item ?endCapType 'NONE ) if(length(cline_poly)>1 then cline_poly = car(axlPolyOperation(car(cline_poly) cdr(cline_poly) 'OR)) ) exp_poly = car(axlPolyExpand(cline_poly seg_width 'NONE)) if(!axlGeoPointInShape(pick_airgap exp_poly nil) then if(axlDBIsFixed(item) == nil then axlDeleteObject(item) ) ) ) axlDBDeleteProp(cline_displays list( "FIXED")) axlShell("offset_line") ) ) ) ) )

Stats

SKlLL to Offsets lines and arcs by a specified distance,

Top Replies

Community Guidelines