Creating Web/Thermal shape for paste mask

Hi JS202408156358!

You can refer this code.

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
axlCmdRegister("create_thermal_shape" 'create_thermal_shape)
(defun create_thermal_shape ()
let((angle layer in_put)
layer = "BOARD GEOMETRY/ASSEMBLY_NOTES"
axlVisibleLayer(layer t)
in_put = axlEnterString(?prompts list("Please enter 3 params:\n Ex: 4,100,25"))
if(in_put != nil && length(parseString(in_put ",")) == 3 then
point = axlEnterPoint(?prompts "" ?points nil ?gridSnap t)
if(point != nil then
p_in_put = parseString(in_put ",")
id = atoi(car(p_in_put))
ra = atof(cadr(p_in_put))
w = atof(caddr(p_in_put))
printf(" id: %d\n ra: %.2f\n w: %.2f\n" id, ra, w)
d = axlMXYAdd( 0:ra point)
r_path = axlMakeDynamicsPath(list(list(d d 0.0 point ra t) list(d d) ) )
poly1 = car(axlPolyFromDB(r_path ?layer layer ?endCapType 'ROUND))
poly_expand = car(axlPolyExpand(poly1 -w 'NONE))
poly2 = car(axlPolyOperation(poly1 poly_expand 'ANDNOT))
wheel = 360.0 / id
angle = 0.0
poly_list = nil
tmp_point = axlMXYAdd( 0 : (ra + w) point)
while(angle <= 360.0
point_rotate = axlGeoRotatePt(angle tmp_point point)
r_path2 = axlMakeDynamicsPath(list(list(point point_rotate w) ) )
poly3 = car(axlPolyFromDB(r_path2 ?layer layer ?endCapType 'NONE ?line2poly t))
poly_list = cons(poly3 poly_list)
angle = angle + wheel
)
poly_or = car(axlPolyOperation(car(poly_list) cdr(poly_list) 'OR))
poly_or2 = axlPolyOperation( poly2 poly_or 'ANDNOT)
foreach(poly poly_or2
axlDBCreateShape(poly t layer nil)
)

)
)
)
)
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Regards.

HoangKhoi.

Thank you! I will try this out end of the week once I get back to my computer. Thank you so much for posting this.

Thank you! I will try this out end of the week once I get back to my computer. Thank you so much for posting this.